بدست آوردن پسوند فایل

سلام
چطوری میشه پسوند یک فایل را بدست آورد؟
ممنون

ExtractFileExt('c:\example.doc');

نقل قول:

---

نوشته شده توسط m-khorsandi

ExtractFileExt('c:\example.doc');

---

با سلام
درسته که تاریخ ایجاد تاپیک تقریبا 3 ساله پیشه اما خواستم از ایجاد کردن تاپیک تکراری جلوگیری کنم
جناب خرسندی کدی که شما نوشتید حتما باید پسوند فایل رو خودمون بنویسیم
اما چجوری میشه پسوند یه فایلی رو که نمیدونیم استخراج کنیم
ممنونم

نقل قول:

---

کدی که شما نوشتید حتما باید پسوند فایل رو خودمون بنویسیم
اما چجوری میشه پسوند یه فایلی رو که نمیدونیم استخراج کنیم

---

پسوند فایل رو نمی دونیم یعنی چی؟! مگه فایل شما اسم نداره؟ پسوند فایل هم جزوی از اسم فایل هست.

سلام فعلا با کد زیر سر کن اگه تابعی بدست آوردی ما را هم خبر کن.
procedure TForm1.Button6Click(Se

nder: TObject);
var
i : Integer;
s : String;
begin
OpenDialog2.Execute;
Caption := OpenDialog2.FileName;
s := '';
for i := Length(OpenDialog2.FileName) downto Length(OpenDialog2.FileName) do
s := s + copy(OpenDialog2.FileName,i-2,3);
s := '.' + s;
end;

اصلا اگه با خود OpenDialoge و FileName ش اسم فایل و بگیری ، میتونی با همون ExtractFileExt
کار کنی

ExtractFileExt( Opendialoge1.filename );

من هم قبلاً به این چیزی که شما دنباش بود نیاز داشتم . فایل پیوست آن فکر می کنم بدردت بخورد . موفق باشید ...

نقل قول:

---

اما چجوری میشه پسوند یه فایلی رو که نمیدونیم استخراج کنی

---

سئوال عجیبیه؟

ببین، این تابع به اینکه این فایل روی دیسک هست یا نه کاری نداره، در واقع فقط با رشته‌ای که پاس میکنی مثل یک فایل(نام و پسوند) برخورد میکنه.
حالا من یه سئوال دارم، اگه سه تا فایل با سه پسوند مختلف روی دیسک داشته باشی، انتظار داری این تابع چه خروجی داشته باشه!!!؟