PDA

نسخه کامل مشاهده نسخه کامل : بدست آوردن مسير مربوط با ديالوگ OpenDialog



hashem_te
15-05-2006, 10:09
با سلام
من خاصيتي كه مسير كامل فايل انتخاب شده از طريق 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
15-05-2006, 10:13
كد خوانا
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
15-05-2006, 11:45
سلام

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