Из файла в memo (Delphi)
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
Господа, не может ли кто-нибудь набрасать цикл для копирования всех строк файла в мемо?
Вот, надо добавить в эту процедуру цикл, но я не знаю как:
procedure TForm1.N2Click(Sender: TObject);
begin
with OpenDialog1 do begin
if Execute then begin
Memo1.lines.LoadFromFile(FileName);
Form1.Caption:=' '+filename;
end;
Никто не подскажет?
procedure TForm1.N2Click(Sender: TObject);
begin
with OpenDialog1 do begin
if Execute then begin
Memo1.lines.LoadFromFile(FileName);
Form1.Caption:=' '+filename;
end;
Никто не подскажет?