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ś"?
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ś"?
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.
Czy może ktoś podać przykładowy Exampl?
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...
źle! count musi być zmienną globalną, inaczej to nie zadziała.