S FOR mi to funguje ale akonahle chcem spustit program v ktorom je pouzite while, tak mi napise chybu..tu je kod pre while:
Kód: Vybrať všetko
procedure TForm1.Button1Click(Sender: TObject);
var I: integer;
begin
I := 0;
while I < 10 do begin
Memo2.Lines.Add(IntToStr (random(50)+1));
I := I + 1;
end; A takisto neviem ako to spravit s repeat. Dakujem za kazdu pomoc, som v delphi uplny zaciatocnik.
