[DKV]

Помогите. Вот я нажимаю на Button и у меня на Edit выходит текст Вопрос:
как сделать, так чтобы при нажатии второй раз выходил уже другой текст,
если можно напишите пример плиз. заранее пасиб

[glaZZ]

Мне на ум приходят два варианта
1.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

var   Form1: TForm1;   i: Integer;   StrList: TStringlist;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); begin   Edit1.Text := StrList[i]; // Запись в Edit i-й строки из списка   inc(i); // Увеличение i на 1 end;   procedure TForm1.FormCreate(Sender: TObject); begin   // Создаем список значений для Edit и заполняем   StrList := TstringList.Create;   StrList.Add('Кнопка нажата 1 раз');   StrList.Add('Кнопка нажата 2 раза'); end;

2. Просто при нажатии проверять значение Edit-а и заменять на другое.

[DKV]

А ум у тебя что надо! Спасибо.