نوشتن در ادامه فایل متنی(فایل را باز می کنم و اطلاعات را داخل آن میریزم. حال میخوام اطلاعات دیگه ای به آن اضافه کنم و اطلاعات قبلی در آن محفوظ باشد)
نوشتن در ادامه فایل متنی(فایل را باز می کنم و اطلاعات را داخل آن میریزم. حال میخوام اطلاعات دیگه ای به آن اضافه کنم و اطلاعات قبلی در آن محفوظ باشد)
var
MyFileName : string;
MyFile : TStringList;
begin
MyFileName := 'C:\Test.txt';
MyFile := TStringList.Create;
try
if not FileExists(MyFileName) then
Exit;
MyFile.LoadFromFile(MyFileName);
MyFile.Add('Adding a new line');
MyFile.Add('Adding another line');
finally
MyFile.Free;
end;
end;
وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.
قرار نبود کار کنه؛ قرار بود نحوه انجام کار رو به شما نشون بده. کار نمیکنه چون فایل C:\Test.txt وجود نداره.ولی من کد بالا را دقیقا کپی کردم و هیچ اتفاقی نمی افتد. یعنی اصلا کار نمی کند.
وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.
آقای کشاورز من اون فایل را ایجاد کردم بعدش برنامه را اجرا کردم ولی عمل نکرد. لطفا خودتون برنامه را چک کنید. مرسی
خدایش این ملت برنامه نویس :
var
MyFileName : string;
MyFile : TStringList;
begin
MyFileName := 'C:\Test.txt';
MyFile := TStringList.Create;
try
if not FileExists(MyFileName) then
Exit;
MyFile.LoadFromFile(MyFileName);
MyFile.Add('Adding a new line');
MyFile.Add('Adding another line');
MyFile.SaveToFile('C:\Test.txt');
finally
MyFile.Free;
end;
موفق باشید :)
و اگه بخواهیم در ادامه مطلب بنویسه نه سر سطر؟ (مطلب جدید در ادامه متن قبلی درج گردد)
var
MyFileName : string;
MyFile : TStringList;
begin
MyFileName := 'C:\Test.txt';
MyFile := TStringList.Create;
try
if not FileExists(MyFileName) then
Exit;
MyFile.LoadFromFile(MyFileName);
MyFile.Strings[0] := MyFile.Strings[0]+' Next string';
MyFile.SaveToFile('C:\Test.txt');
finally
MyFile.Free;
end;
بجای صفر شماره سطر مورد نظر رو می نویسید.
یکم خودتون هم سعی کنید ، راهنمای دلفی برای چی هست.