mas2 nanya donk gmana sih caranya menghilang kan 4 karakter di belakang string misalnya nya edit1.text:=savedialog1.filename hasilnya = test.txt nah gman carnay menghilankan .txt. mksih sebelumnya

knapa gak di parsing aja? cuma harus yakin di nama file nya gak ada tanda "."(titik) slain tanda (titik) untuk ektensi file

@vera: mas2 nanya donk gmana sih caranya menghilang kan 4 karakter di belakang string misalnya nya edit1.text:=savedialog1.filename hasilnya = test.txt nah gman carnay menghilankan .txt. mksih sebelumnya

Tujuan utamanya pengen menghilangkan ekstensi ya? Kalo iya coba baca disini Mengambil nama file dan menggandakan file melalui jaringan Tapi kalau cuma mau meghilangkan 4 string dibelakang secara umum, banyak cara yang bisa digunakan, salah satunya bisa menggunakan

function Buang4KarakterBelakang(ASource: String): String;
begin
   Result := LeftStr(ASource,Length(ASource)-4);
end;

Mudah-mudahan membantu. CMIIW

Kalau untuk mengekstrak nama file, gunakan fungsi ExtractFileName(FileName:string). Untuk mengekstrak extensionnya, gunakan ExtractFileExt(FileName:string). Semoga membantu.

@vera: mas2 nanya donk gmana sih caranya menghilang kan 4 karakter di belakang string misalnya nya edit1.text:=savedialog1.filename hasilnya = test.txt nah gman carnay menghilankan .txt. mksih sebelumnya

kalo untuk file extension, kan sudah ada fungsi internalnya: changefileext(filename,newext) fname := changefileext('test.txt','.ini') ;// -> 'test.ini' fname := changefileext('test.txt','') ;// -> 'test' regards, .:blinkz:. ---------------------------------------------------------------------------- .: malu bertanya sesat di jalan, banyak bertanya malu di jalan :. .