اعمل برنامج صغير يقوم بكتابة على ملف تكست (txt) ولكن المشكلة هنا في ( rewrite )
اريد كل مرة ندخل فالبرنامج راح نزيد نكتب اسطر عالملف بدون ان يمسح محتواه
لانو اجباري الكتابة ب (rewrite) و تقوم بمسح محتواه اذا كان الملف موجود
و شكرا
وعليكم السلام اخي
تفضل هدا مثال بسيط ة يمكنك عمل هدا بعدة طرق...
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.
جرب هدا
كود :
program harder;
var
TextFile : Text;
OldString : String;
begin
Assign(TextFile,'file.txt');
Reset(TextFile);
Append(TextFile);
Writeln(TextFile,'Hello');
Close(TextFile);
end.
الله يحفضك
اذا نعمل متغيرة بنوع text
و reset + append
فكرة اخرى يمكنك استخدام الاداة
RechEdit.line.savefile
بسطر واحد فقط تستطبع ان تحفظ ملفك
وبسطر واحد فقط تستطيع ان تحمل ملفك
يعني تحمل الملف وتضيف عليه وتحفظه