Присваевание разной информации в цикле для memo DELРHI

[DEFENEK]

не получаеться написать цикл в котором по нажатию кнопки будет присвайваться текст в memo, а при повторном нажатии другой текст.

[__STDC__]

Зачем цикл? Оо

[Sazary]

не получаеться написать

Покажите, что написали.

Чтобы при каждом нажатии было свое действие, вы можете использовать свойство Tag кнопки. При нажатии проверять его значение, в зависимости от него делать что-то, а потом увеличивать (/уменьшать/еще как-то изменять).

Вариантов много.

[DEFENEK]

То что я писал это полная глупость а как по другому я не знаю если надо могу скинуть код

[__STDC__]

ну, мы ждем...

[Sazary]

То что я писал это полная глупость а как по другому я не знаю если надо могу скинуть код

Код нужен не только для того, чтобы его исправить, но и для того, чтобы показать, что вы пытались его сделать сами.
Выкладывайте. Не забудьте поместить его в теги CODE ("#" на панели в окне редактирования).

[DEFENEK]

begin
for i:=1 to 5 do
if i=1 then
memo1.lines.add('text 1')
if i=2 then
memo1.lines.add('text 2')
i=3 then
memo1.lines.add('text 3')
i=4 then
memo1.lines.add('text 4')
 else memo1.lines.add('text 5');
end;

[__STDC__]

ну как было сказано выше:

begin
case button1.tag of
  1: memo1.lines.Add('text1');
  2: memo1.lines.Add('text2');
  3: memo1.lines.Add('text3');
  4: memo1.lines.Add('text4');
else memo1.lines.Add('text5');
end;
end;

и так далее..

[DEFENEK]

спасибо большое

[Sazary]

А теперь ответьте на вопрос __STDC__ из 2-го поста: зачем цикл?

Я так вижу это задание:

procedure TForm1.Button1Click(Sender: TObject);

begin
case Button1.Tag of
 0 : Memo1.Lines.Add('Text 0');
 1 : Memo1.Lines.Add('Text 1');
 2 : Memo1.Lines.Add('Text 2');
 3 : Memo1.Lines.Add('Text 3');
 4 : Memo1.Lines.Add('Text 4');
 5 : Memo1.Lines.Add('Text 5');
 end;
Button1.Tag := Button1.Tag + 1;
if Button1.Tag = 6 then Button1.Tag := 0;

end;

------
Опоздал немного )