Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | var
f: Text;
...
implementation
...
procedure ...
var
s: String;
begin
AssignFile(f, 'YourFileName');
Reset(f);
while not EOF(f) do
begin
ReadLn(f, s);
if Memo1.Lines.Count = 0 then
Memo1.Lines.Add(s)
else
Memo1.Lines.Insert(1, s);
end;
CloseFile(f);
end;
|
|