Создание строк

[Devolarium]

Вобщем нужно чтобы когда вводишь в edit число и нажимаешь на кнопку то в memo выводилось столько раз строка сколько введено в Edit

Вот пока до чего дошел:

procedure TForm1.Button26Click(Sender: TObject);
var s: string; e: string; r: Integer;
begin
e:=Edit1.Text;
s:='строка';
r:=StrToInt(s)* StrToInt(e);
Memo1.Text:= Memo1.Text + IntToStr(r);
end;
end.

P.S: Возможно что-то неправильно, что-то не рационально но пишу пока как могу =)

[vovken1997]

А цикл не пробывал использовать?

[Devolarium]

как он мне тут поможет? обьясни

[vovken1997]

e:integer;

e:=StrToInt(edit1.text);
for i:=0 to e-1 do
begin
memo1.text:=memo1.text+s;
end;

должно быть где-то так, если конечно я правильно понял

[Devolarium]

Сообщение от vovken1997

e:integer;

e:=IntToStr(edit1.text);

остальное я понял, непонял только зачем из целочисленной переводить опять в строку? ведь эдит и есть строка?

[vovken1997]

эдиты это текст. а насчет перевода я исправил.

[vovken1997]

e:integer;
напиши в разделе описания переменных

[Devolarium]

спасибо за помощь еще 1 вопрос.
Вот нужно к этим строкам по бокам добавить еще по 2 строки но всего 1 раз т.е вне цикла.

что-то вроде этого

'текст1' + s + 'текст2'

[vovken1997]

До цикла: memo1.text:='строка1';
После цикла:memo1.text:=memo1.text+'строк а2';

[phomm]

Memo.Text использовать только если надо без переводов строки текст сцеплять.
А по идее, проще гораздо делать Lines.Add, тогда каждая новая строчка текста будет на новой строке