Wyślwietlanie zmiennych Label'em

0

Napisałem taką procedurę:

Procedure Zacznij;
Var
x1,x2,x3 : Integer;
Begin
For x1:=1 To 98 Do Begin
For x2:=x1+1 To 99 Do Begin
For x3:=x2+1 To 100 Do Begin
Form1.Label1.Caption:=IntTotr(x1);
Form1.Label2.Caption:=IntTotr(x2);
Form1.Label3.Caption:=IntTotr(x3);
End;
End;
End;
end; { koniec procedury }

...no i problem w tym , że nie wyświetlają się wartości w Label'ach.
Pewnie coś robię nie tak, ale co ???
Przecież w innych moich programach wszystko jest ok.
Z góry dziękuję za porady {hello} --Pawlik67
Zapraszam :-)
www.vebso.pl
UŻYTKOWNIK 9969489

0

Form1.Label1.Caption:=IntTotr(x1);
Powinno być raczej tak:
Form1.Label1.Caption:=IntToStr(x1);
--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.

0

For x1:=1 To 98 Do Begin
For x2:=x1+1 To 99 Do Begin
For x3:=x2+1 To 100 Do Begin
Form1.Label1.Caption:=IntTostr(x1);
Form1.Label2.Caption:=IntTostr(x2);
Form1.Label3.Caption:=IntTostr(x3);
Application.ProcessMessages;
End;
End;
End; --Pawel

Delphi6

0

Oczywiście przepraszam za błąd
IntToStr(), a nie IntTotr()
to był tylko błąd w pisaniu.

pg
Powiedz co ta Aplicacja powoduje. kiedy ją używać
Z góry dziękuję--Pawlik67
Zapraszam :-)
www.vebso.pl
UŻYTKOWNIK 9969489

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