Zitat von
thomasdrewermann:
Irgendwie kommen da keine Teiler zustande.
Was kommt denn zustande? Etwa eine
Exception?
Zitat:
Delphi-Quellcode:
for i:=0 to a.anzahl do
label1.caption:=label1.caption+inttostr(a.zahlen[i])+',';
end;
Schau dir die for-Schleife nochmal genau an.
Zitat:
Delphi-Quellcode:
type tteiler=record
zahlen:array of Integer;
anzahl:integer;
end;
Das Feld anzahl benötigst du gar nicht, denn das kannst du mit Length(zahlen) bestimmen, womit dein tteiler dann so deklariert werden kann:
tteiler = array of integer;