فایل متنی

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

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;

نقل قول:

---

نوشته شده توسط علی کشاورز

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;

---

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

نقل قول:

---

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

---

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

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

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

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;

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

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