Показать сообщение отдельно
  #5  
Старый 17.12.2010, 17:38
Аватар для dr. F.I.N.
dr. F.I.N. dr. F.I.N. вне форума
I Like it!
 
Регистрация: 12.12.2009
Адрес: Россия, г. Новосибирск
Сообщения: 663
Версия Delphi: D6/D7
Репутация: 26643
По умолчанию

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