فایل متنی

[skmkh6056]

نوشتن در ادامه فایل متنی(فایل را باز می کنم و اطلاعات را داخل آن میریزم. حال میخوام اطلاعات دیگه ای به آن اضافه کنم و اطلاعات قبلی در آن محفوظ باشد)

[vcldeveloper]

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;

[skmkh6056]

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;


با سپاس. ولی من کد بالا را دقیقا کپی کردم و هیچ اتفاقی نمی افتد. یعنی اصلا کار نمی کند. اگه راهنماییم کنین ممنون میشم.

[vcldeveloper]

ولی من کد بالا را دقیقا کپی کردم و هیچ اتفاقی نمی افتد. یعنی اصلا کار نمی کند.
قرار نبود کار کنه؛ قرار بود نحوه انجام کار رو به شما نشون بده. کار نمیکنه چون فایل C:\Test.txt وجود نداره.

[skmkh6056]

آقای کشاورز من اون فایل را ایجاد کردم بعدش برنامه را اجرا کردم ولی عمل نکرد. لطفا خودتون برنامه را چک کنید. مرسی

[Touska]

خدایش این ملت برنامه نویس :


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;

موفق باشید :)

[skmkh6056]

و اگه بخواهیم در ادامه مطلب بنویسه نه سر سطر؟ (مطلب جدید در ادامه متن قبلی درج گردد)

[Touska]

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;


بجای صفر شماره سطر مورد نظر رو می نویسید.

یکم خودتون هم سعی کنید ، راهنمای دلفی برای چی هست.