21-03-2009, 03:41 AM
حصلت حل يمكن يكون حلو وهذا الى كنت اسئل عنه
ناقص تعديل من المحترفين
شكرا
كود :
procedure Tfrm1.btn5Click(Sender: TObject);
begin
dlgSave1.FileName := edt3.text;
dlgSave1.Filter := 'Txt Files|*.Txt';
if dlgSave1.Execute then
lst2.Items.SaveToFile
(dlgSave1.FileName + '.txt');
frm1.Caption:=dlgSave1.FileName;
end;ناقص تعديل من المحترفين
شكرا

