مشكلة في rewrite

[9aylas]

اعمل برنامج صغير يقوم بكتابة على ملف تكست (txt) ولكن المشكلة هنا في ( rewrite )
اريد كل مرة ندخل فالبرنامج راح نزيد نكتب اسطر عالملف بدون ان يمسح محتواه
لانو اجباري الكتابة ب (rewrite) و تقوم بمسح محتواه اذا كان الملف موجود
و شكرا

[AX302]

وعليكم السلام اخي
تفضل هدا مثال بسيط ة يمكنك عمل هدا بعدة طرق...

PHP كود :

=============================================
program Project1;
{$APPTYPE CONSOLE}
uses
Classes;
const
New_String = 'My New String Here';
var
Old_File : TStringList;
begin
 Old_File := TStringList.Create;
 try
 Old_File.LoadFromFile('old.txt');
 Old_File.Add(New_String);
 Old_File.SaveToFile('old.txt');
 finally
  Old_File.Free;
 end;
end. 


[AX302]

جرب هدا

كود :

program harder; var TextFile : Text; OldString : String; begin Assign(TextFile,'file.txt'); Reset(TextFile); Append(TextFile); Writeln(TextFile,'Hello'); Close(TextFile); end.

[9aylas]

الله يحفضك
اذا نعمل متغيرة بنوع text
و reset + append

[Delphi4Us]

فكرة اخرى يمكنك استخدام الاداة

RechEdit.line.savefile

بسطر واحد فقط تستطبع ان تحفظ ملفك

وبسطر واحد فقط تستطيع ان تحمل ملفك

يعني تحمل الملف وتضيف عليه وتحفظه