با سلام
چگونه میتوانم یک کلمه را در یک فایل text بنویسم و یا آنرا بخوانم ؟
با تشکر
با سلام
چگونه میتوانم یک کلمه را در یک فایل text بنویسم و یا آنرا بخوانم ؟
با تشکر
درود
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 اشاره گر به خط بعدی منتقل میشه.
برای ساده تر شدن کار و دسترسی به امکانات بیشتر می تونید از TStringList استفاده کنید.
به نظر منم کار فا فایل های متن توسط 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;