Из файла в memo (Delphi)

Модераторы: Duncon, Naeel Maqsudov, Хыиуду, Игорь Акопян

Закрыто
Soli44
Сообщения: 6
Зарегистрирован: 09 янв 2008, 19:45

17 янв 2008, 22:05

Господа, не может ли кто-нибудь набрасать цикл для копирования всех строк файла в мемо?
Soli44
Сообщения: 6
Зарегистрирован: 09 янв 2008, 19:45

18 янв 2008, 00:12

Вот, надо добавить в эту процедуру цикл, но я не знаю как:

procedure TForm1.N2Click(Sender: TObject);
begin
with OpenDialog1 do begin
if Execute then begin
Memo1.lines.LoadFromFile(FileName);
Form1.Caption:=' '+filename;
end;

Никто не подскажет?
Soli44
Сообщения: 6
Зарегистрирован: 09 янв 2008, 19:45

18 янв 2008, 00:56

Вопрос отпал)
Закрыто