17-03-2009, 01:41 PM
moh__ كتب :اخي الكريم...
طورت البرنامح ولله الحمد...
الآن ممكن انت تحدد اسم البرنامج ويحفظ في ال سي c ...
بارك الله لكم
والسلام عليكم
لم اعمل complie للسورس لكن القيت نضرة سريعة عليه و ما انتبهت اليه هو هذا :
كود :
listbox1.Items.SaveToFile('C:[color=Red]//[/color]'+edit1.Text+'.txt');اعتقد انه :
كود :
listbox1.Items.SaveToFile('C:\'+edit1.Text+'.txt');لقد كتبته و كأنه رابط موقع
![[صورة: biggrin.gif]](http://www.delphi4arab.net/forum/images/smilies/biggrin.gif)
و لماذا عرفت S كــ edit1.text ولم تستخدمه ؟؟
كود :
var
[color=Red] s: string;[/color]
begin
[color=red]s:= edit1.Text;[/color]
listbox1.Items.SaveToFile('C://'+[color=red]edit1.Text[/color]+'.txt');الكود المختصر بدون متغير :
كود :
listbox1.Items.SaveToFile('C:\'+edit1.Text+'.txt');و بارك الله فيك

