چگونه میتوانم یک کلمه را در یک فایل 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 در کد فوق اضافی هستند.