delphi4arab منتديات دلفي للعرب

الصفحات : 1 2

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

إقتباس :C:\File.txt

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

اما ان كتبت :

إقتباس :C://File.txt

لن يقبل .

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

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

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

هذه شئ مهم... Smile

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

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

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

شكرا

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

كود :
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;

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

شكرا

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

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

إقتباس :c:\file.txt

اكتب

إقتباس :file.txt

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

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

اخي 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

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

الصفحات : 1 2

musvc

AL-MOB4RM3G

Xdreambox

Xdreambox

AL-MOB4RM3G

musvc

AL-MOB4RM3G