dosya ismini okutmak..

[efkan]

Arkadaşlar forumda yakın konular buldum ancak bişey çıkartamadım.

Kod: Tümünü seç

 edit1.text:=openpicturedialog1.filename;

ile dosya ismini aldıramıyorum.. elime geçen sonuç "c:\resimlerim\dosya.bmp" oluyor , halbuki benim sadece "dosya.bmp" yi çekebilmem lazım.
herkese çalışmalarında başarılar...

[mussimsek]

ExtractFileName işini görür.

Kolay gelsin.

[salvation]

Daha detaylı kullanmak istersen,

Kod: Tümünü seç

type
  TFileInfoRec = record
  Surucu, Yol, Dosya, Uzanti: String;
end;


function ParseFile(AFile: String): TFileInfoRec;
begin
  with Result do
  begin
    Surucu := ExtractFileDrive(AFile);
    Yol := '\' + ExtractFilePath(ExtractRelativePath(Surucu, AFile));
    Dosya := ChangeFileExt(ExtractFileName(AFile),'');
    Uzanti := ExtractFileExt(AFile);
  end;
end;

Sonuç:
"kur" döndürecektir.

(dosya uzantısını almak için) kullanımı:

Kod: Tümünü seç

  showmessage(ParseFile('C:\Kur.Exe').uzanti)

Sonuç:
".exe" döndürecektir.

[efkan]

her 2 cevap içinde teşekkürler kesinlikle işimi gördü..Allah razı olsun..tekrar çok teşekkürler..
iyi çalışmalar..