Losowy tekst

0

Jak przy użyciu:

if (Key = VK_RETURN) and (Edit1.Text = 'Cześć')
then Label1.Caption := 'Cześć';

zrobić aby po kolejnym wpisaniu słowa w Edit1 w Label1 wyświetlił się tekst np. "Już się ze mną witałeś"?

0

możesz zrobić jakąś zmienną counter i za każdym naćiśnięciem entera ją zwiększać, i tablice stringów z tekstami..
no i jeszcze funkcja sprwadzająca czy counter < liczba elementów tablicy.

0

Czy może ktoś podać przykładowy Exampl?

0
var
  count: integer;

procedure TForm1.costam(sender: tobject);
var
  messages: array[0..20] of string[255];
begin
  if (Key = VK_RETURN) then
  begin
  label1.text:= messages[count];
  inc(count);  
  end
end;

//powinno dzialalac, ale pisalem z pamięci więc niewiem...

0

źle! count musi być zmienną globalną, inaczej to nie zadziała.

1 użytkowników online, w tym zalogowanych: 0, gości: 1