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