بدست آوردن مسير مربوط با ديالوگ OpenDialog

[hashem_te]

با سلام
من خاصيتي كه مسير كامل فايل انتخاب شده از طريق OpenDialog را بدون نام فايل بدهد نديدم و مجبور شدم كد اضافي زير را بكار ببرم در صورت وجود متد ، خاصيت يا تابعي براي انجام اين كار به من اطلاع دهيد
براي خوانا شدن كد روي دگمه چپ به راست را فشار دهيد

var
s,s2:string;
loc:byte;
begin
s := OpenDialog1.FileName;
s2:='';
loc:=Pos('\', S);
while (loc > 0) do
begin
s2:=s2 + LeftStr(s,loc);
s:=midstr(s,loc+1,Length(s)-loc);
loc:=Pos('\', S);
end;

[hashem_te]

كد خوانا
var
s,s2:string;
loc:byte;
begin
s := OpenDialog1.FileName;
s2:='';
loc:=Pos('\', S);
while (loc > 0) do
begin
s2:=s2 + LeftStr(s,loc);
s:=midstr(s,loc+1,Length(s)-loc);
loc:=Pos('\', S);
end;

[NoneForce]

سلام

يه نگاهي به اينها بكنيد :
ExtractFileDir
ExtractFilePath
ExtractFileExt
ExtractFileName