"dynamisches " Array

[thomasdrewermann]

Irgendwie kommen da keine Teiler zustande.

Dieser Cde soll die Teilermenge einer Zahl bestimmen:

Delphi-Quellcode:

type tbruch=record
        zaehler:integer;
        nenner:integer;
        positiv:boolean;
end;

type tteiler=record
        zahlen:array of Integer;
        anzahl:integer;
end;
implementation

{$R *.dfm}
function teilermenge(zahl:integer):tteiler;
var i:integer;
begin
result.anzahl:=0;
SetLength(result.zahlen, Length(result.zahlen) + 1);
result.zahlen[length(result.zahlen)-1]:=1;
for i:=2 to (zahl div 2) do
        begin
        if (i mod zahl) = 0 then
                begin
                SetLength(result.zahlen, Length(result.zahlen)+1);
                result.zahlen[length(result.zahlen)-1]:=i;
                result.anzahl:=result.anzahl+1;
                end;
        end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var a:tteiler; i:integer;
begin
label1.Caption:='';
a:=teilermenge(strtoint(edit1.text));
for i:=0 to a.anzahl do
label1.caption:=label1.caption+inttostr(a.zahlen[i])+',';
end;

MFG
Thomas