View Full Version : چگونه میتوانم یک کلمه را در یک فایل text بنویسم و یا آنرا بخوانم ؟
سیروس مقصودی
سه شنبه 25 مرداد 1384, 08:11 صبح
با سلام
چگونه میتوانم یک کلمه را در یک فایل text بنویسم و یا آنرا بخوانم ؟
با تشکر
m-khorsandi
سه شنبه 25 مرداد 1384, 10:51 صبح
درود
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
چهارشنبه 26 مرداد 1384, 02:22 صبح
برای ساده تر شدن کار و دسترسی به امکانات بیشتر می تونید از TStringList استفاده کنید.
MSK
چهارشنبه 26 مرداد 1384, 13:35 عصر
به نظر منم کار فا فایل های متن توسط 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
پنج شنبه 27 مرداد 1384, 01:54 صبح
دستورات a.Clear در کد فوق اضافی هستند.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.