15.06.2011, 01:13
|
Новичок
|
|
Регистрация: 01.06.2009
Сообщения: 54
Репутация: 27
|
|
Цитата:
Сообщение от ChinYan
Код:
var
fL:TextFile;
TMP:String;
begin
AssignFile(fL,ListBox1.Items[ListBox1.ItemIndex]);
Reset(fL);
while not eof(fL) do
begin
Readln(fL,TMP);
RichEdit1.Lines.Add(TMP);
end;
end
|
Спасибо Вам большое!
|