Код:
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 ;
|
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.
|