فایل متنی

[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;

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

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