Hi, habe ein Problem
Ich soll die Primzahlen von 0-100 in ein Labelfeld ausgeben, habe es theoretisch auch schon geschafft aber irgendwie wills bei mir nicht so ganz...
Delphi-Quellcode:
var
i:integer;
begin
repeat
i:=i+1;
if i mod i = 0 then
label1.caption:=label1.caption+inttostr(i)+char(13);
until i=100;
end;
sollte doch eigentlich funktionieren oder?
was ist mein fehler?
greetz