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

[DEFENEK]

Не получаеться в memo присваевает только text5 и при каждом следуйщем нажатии добавляет новую строчку с тем же текстом

[__STDC__]

значит что-то неправильно делаешь... в моем варианте tag не меняется... вероятно поэтому
по какому алгоритму менять его? если по порядку, то вариант Sazary отлично подходит

[DEFENEK]

во а с добавлением

Button1.Tag := Button1.Tag + 1;
if Button1.Tag = 6 then Button1.Tag := 0;

работает. А как сделать чтоб перед присваеванием нового текста мемо отчищалось?

[__STDC__]

или например так (правда тогда ветка else бесполезна.. ну там можно в рандоме поставить число побольше =) )

begin
randomize;
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;
button1.tag := random(4)+1;
end;

А как сделать чтоб перед присваеванием нового текста мемо отчищалось?

memo1.clear;

еще что-то типа такого можно =)

begin
randomize;
memo1.clear;
memo1.lines.Add('text'+inttostr(button1.tag));
button1.tag := random(100);
end;

[DEFENEK]

понял все нормально. Спасибо

[koma_grusha]

чтобы не подчищать мемо, можно писать

 memo1.Text := 'text1';

[Катришка]

Помогите решить задачи в делфи, желательно сегодня. Пожалуйста: одномерный массив: 1) Задан числовой массив An. Вычислить сумму произведений всех пар соседних чисел.
двумерный массив :2) В прямоугольной матрице поменять местами элементы 2-х строк.