+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : متتديات باسكال Pascal (https://delphi4arab.net/forum/forumdisplay.php?fid=7)
+--- قسم : Lazarus - Free Pascal - CrossKylix - Kylix - CrossVCL (https://delphi4arab.net/forum/forumdisplay.php?fid=34)
+--- الموضوع : مشكلة في rewrite (/showthread.php?tid=9053)
مشكلة في rewrite - 9aylas - 15-12-2017
اعمل برنامج صغير يقوم بكتابة على ملف تكست (txt) ولكن المشكلة هنا في ( rewrite )
اريد كل مرة ندخل فالبرنامج راح نزيد نكتب اسطر عالملف بدون ان يمسح محتواه
لانو اجباري الكتابة ب (rewrite) و تقوم بمسح محتواه اذا كان الملف موجود
و شكرا
RE: سؤال - عندي مشكلة في pascal - AX302 - 15-12-2017
وعليكم السلام اخي
تفضل هدا مثال بسيط ة يمكنك عمل هدا بعدة طرق...
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.
RE: سؤال - عندي مشكلة في pascal - AX302 - 15-12-2017
جرب هدا
كود :
program harder;
var
TextFile : Text;
OldString : String;
begin
Assign(TextFile,'file.txt');
Reset(TextFile);
Append(TextFile);
Writeln(TextFile,'Hello');
Close(TextFile);
end.RE: سؤال - عندي مشكلة في pascal - 9aylas - 15-12-2017
الله يحفضك
اذا نعمل متغيرة بنوع text
و reset + append
RE: مشكلة في rewrite - Delphi4Us - 18-12-2017
فكرة اخرى يمكنك استخدام الاداة
RechEdit.line.savefile
بسطر واحد فقط تستطبع ان تحفظ ملفك
وبسطر واحد فقط تستطيع ان تحمل ملفك
يعني تحمل الملف وتضيف عليه وتحفظه