[help] lill help needs

6748222

Турист
Регистрация
1 Апр 2009
Сообщения
2
Реакции
0
Credits
2
hi! im beginer :mersi:
sory if i post in wrong forum =(

Question:

how to do this

if edit1.text is "lala" and edit3.text is 3
on button click edit2.text is "lala lala lala" if edit3.text is 4
then edit2.text is 'lala lala lala lala' etc..

Thanks!

and sory again if i post in wrong forum;(
 

AT4RE

Местный
Регистрация
8 Янв 2009
Сообщения
25
Реакции
54
Credits
50
Код:
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
Edit2.Text:='';
for i:=1 to StrToInt(Edit3.Text) Do
  Edit2.Text := Edit2.Text + Edit1.Text+ ' ';
end;
 

6748222

Турист
Регистрация
1 Апр 2009
Сообщения
2
Реакции
0
Credits
2
THANK YOU !!
 
Последнее редактирование модератором:

aa.

Турист
Регистрация
26 Авг 2008
Сообщения
7
Реакции
0
Credits
10
альтернативная
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  s1, s2: string;
begin
  s1 := Edit1.Text;
  if s1 <> '' then begin
    s1 := s1 + ' ';
    s2 := '';
    for i := StrToIntDef(Edit3.Text, 0) do
      s2 := s2 + s1;
    Edit2.Text := s2;
  end;
end;