Delphi 7. Нужно сдублировать многострочное содержимое Memo1 в Memo2 столько раз, сколько указано в edit1 (см. внутри)

Question

Например, в Memo1 написано: 
---------------------
Строка 1 
Строка 2 
---------------------
 
Если в Edit1 написано "3", то сдублировать текст 3 раза: 
 
Memo2: 
---------------------
Строка 1 
Строка 2 
Строка 1 
Строка 2 
Строка 1 
Строка 2 
---------------------

Антон · Accepted Answer

ну так заведи цикл, в нем копируй

Marian · Answer

function ЯДолбаныйЛентяйСтыжусьПрочитатьУчебникПоДельфям; 
var 
j, k: Integer; 
begin 
Memo2.Text:=''; 
j:=strtoint(Edit1.Text); 
for k:=1 to j do 
Memo2.Text:=Memo2.Text+Memo1.Text; 
end