"dynamisches " Array

[thomasdrewermann]

Jetzt sieht das gesamte ding so aus:

Delphi-Quellcode:

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

type zahlen=array of Integer;


implementation

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

end;

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

Kommen aber keine Teiler raus