فهمیدم اشکال از ویندوز و ویروس یاب هم نیست(از یه ویندوز دیگه با ویروس یاب دیگه استفاده کردم،مشکل باقی بود)
فکر کردم شاید RightStr مشکل داره.ازش استفاده نکردم باز رشته رو خراب می کرد:
procedure ShowGifName(Col4,Col6,Col7:String);
var
S:String;
P,I:word;
begin
S:='Bk'+Col4;//RightStr('0000'+Col4,5);
P:=pos('-',Col6);
if P>0 then
Begin
S:=S+'G'+Col6;//RightStr('00'+copy(Col6,1,P-1),3);
S:=S+'\'+S+'S'+copy(Col6,P+1,2);
End
else
Begin
S:=S+'G'+col6;//RightStr('00'+Col6,3);
S:=S+'\'+S+'S1';
End;
S:=S+'\'+S+'P'+Col7+'.gif';
ShowMessage(S);
end;
نمی فهمم چطور ممکنه؟من بارها تصویر رو با برنامه نمایش دادم.
برای اونها که حوصله ندارند کد رو بخونند.این هم یه بک اسلش اضافه آخرش میذاره
procedure TForm1.FormCreate(Sender: TObject);
var
S:String;
begin
S:='Bk'+'123';
S:=S+'G'+'123';
S:=S+'\'+S;
ShowMessage(S);
end;