حفظ من listbox في txt file

[musvc]

[COLOR="Indigo"]لا اعتقد ,,
تجربة صغيرة : انشيئ ملف txt يدويا ً ( يعني بالـ Notepad )
و احفضه في :

C:\File.txt

سوف يقبل حفضه ..

اما ان كتبت :

C://File.txt

لن يقبل .

لذا انصح بكتابتها بالطريقة الصحيحة ( و ذلك تجنبا ً من الأخطأ التي قد تحدث بسبب الأختلاف في اصدارات الويندوز )

بالتوفيق[/COLOR]

[AL-MOB4RM3G]

نعم صحيح اخي الكريم...
بارك الله فيك وجزاك خيرا...

هذه شئ مهم...

( و ذلك تجنبا ً من الأخطأ التي قد تحدث بسبب الأختلاف في اصدارات الويندوز )

بارك الله لك مرة اخرى

[Xdreambox]

كيف امسح C:\ واخليه ينزل في نفس مكان البرنامج يعني ماينزل في السي مثلا ينزل في نفس الفولدر الى فيه ملف exe الى هو البرنامج


شكرا

[Xdreambox]

حصلت حل يمكن يكون حلو وهذا الى كنت اسئل عنه

كود :

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;

ناقص تعديل من المحترفين

شكرا

[AL-MOB4RM3G]

اخي الكريم...
الآمر سهل ويسير...

بدل من ان تكتب هكذا

c:\file.txt

اكتب

file.txt

وينتج الملف في نفس المجلد...

بارك الله لك..

[musvc]

اخي moh__ هذه ِ الطريقة لا تنجح دائما ً ..

اليك الطريقة السليمة و الصحيحة اخي Xdreambox

كود :

[color=Blue]var[/color] S : [color=Navy]String[/color]; [color=blue]Begin[/color] S := ExtractFilePath(Application.ExeName)+'File.txt';

و بدل كتابة :

C:\file.txt

استعمل المتغير S

[AL-MOB4RM3G]

بارك الله لك اخي الكريم musvc
منك نستفيد..
جزاك الله خيرا