لود کردن همه خطهای فایل متنی در متغییر

[amin2dpr]

سلام به همگی من این کدی اجرا می کنم و خط اول از فایل و بهم برمیگردونه



var
F : TextFile;
All: string;
Begin
AssignFile(F, 'D:\Code.txt');
Reset(F);
Readln(F, All);
CloseFile(F);
end;
چطوری می تونم همه خطارو با هم تو متغییر All داشته باشم؟
در ضمن من از دلفی 7 استفاده می کنم

[یوسف زالی]

سلام. روشی که دارید استفاده می کنید مال دوره ناصرالدین شاهه.


var
lst: TStringList;
begin
lst := TStringList.Create;
lst.LoadFromFile ...
lst.Free;
end;