چگونه میتوانم یک کلمه را در یک فایل text بنویسم و یا آنرا بخوانم ؟

[سیروس مقصودی]

با سلام

چگونه میتوانم یک کلمه را در یک فایل text بنویسم و یا آنرا بخوانم ؟

با تشکر

[m-khorsandi]

درود

var

  fFile: TextFile;

  sStr: String;

begin

  AssignFile(fFile, 'C:\sample.txt');

  Rewrite(fFile);

  Writeln(fFile, 'test');

  CloseFile(fFile);





  AssignFile(fFile, 'C:\sample.txt');

  Reset(fFile);

  ReadLn(fFile, sStr);

  Caption := sStr;

  CloseFile(fFile);

فقط یادت باشه موقع خوندن رشته از فایل و استفاده از دستور ReadLn اشاره گر به خط بعدی منتقل میشه.

[vcldeveloper]

برای ساده تر شدن کار و دسترسی به امکانات بیشتر می تونید از TStringList استفاده کنید.

[MSK]

به نظر منم کار فا فایل های متن توسط ‏TStringList خیلی آسانتره.

var

  a : TStringList;

begin

  a := TStringList.Create;

  try

    a.Clear;

    a.Add('Test');

    a.SaveToFile('C:\Test.txt');



    a.Clear;

    a.LoadFromFile('C:\Test.txt');

    ShowMessage(a.Strings[0]);

  finally

    a.Free;

  end;

end;

[vcldeveloper]

دستورات a.Clear در کد فوق اضافی هستند.