برگرداندن نام فایل از طریق opendialog

[hamide_kh]

سلام
دوستان من در برنامه ام یکopen dialog دارم(که این open dialog فقط فایلهای jpg را نمایش میده)و می خوام از طریق open dialog نام فایل به همراه پسوندش را بگیرم نه آدرس کامل که با خاصیت file name بر میگرده مثلا اگه یه عکس در درایوe و در پوشه image هست فقط نام عکس را بهم بده و در یک متغیر رشتهای بریزم
ممنون

[ahmadr]

می تونی از این کد استفاده کنی :
procedure TForm1.Button1Click(Sender: TObject);
var
FileName:String;
i:Integer;
begin
if OpenDialog1.Execute then
begin
FileName:=ReverseString(OpenDialog1.FileName);
i:=PosEx('\',FileName);
FileName:=Copy(ReverseString(FileName),length(File Name)-(i-2),i+1);
ShowMessage(FileName);
end;
end;

[DAMAVAND]

البته راه راحت تری هم هست :

procedure TForm1.Button1Click(Sender: TObject);
var
FileName:String;
begin
if OpenDialog1.Execute then
FileName:=ExtractFileName(OpenDialog1.FileName);
end;

[nouri2015]

اگه می خواهی پسوندشو هم بگیری از دستور ExtractFileExt استفاده کن

[hadisalahi2]

البته اگه میخوای با عکس کار کنی بهتره با Open PictureDialog کار کنی