Hi, ich hab hier mal war programmiert, das die Teiler einer Zahl berechnet, es geht auch, aber ich kappiere überhaupt nicht mehr wieso
, ich müsste das nächste Mal wohl besser gescheite variablen-namen nehmen.
Äh, kann mir da mel jemand auf die Sprünge helfen?
Alles, was ich verstehe, steht als bemerkung dahinter.
Delphi-Quellcode:
procedure TForm1.TeilerMengeStringVon(z: integer); //Zahl aus einem Edit
var t,h,i: integer; //t=teiler
begin
s:='';
for h:=1 to z do //geht jede Zahl einmal durch
begin
x:='';
for t:=1 to h do //überprüft die Teiler der Zahlen
begin
s:=IntToStr(h div t);
if h mod t = 0 then //wenn kein rest da ist ==> Teiler
begin
if not (t=h) then x:=x+s+', ' //nach dem letzten teiler, kein Komma mehr hinzufügen
else x:=x+s; //Teiler dem String hinzufügen
end;
end;
x:='T'+IntToStr(h)+' = {'+x+'}'; //string, der in die ListBox geschrieben wird
ListBox1.Items.Add(x);
end;
end;