Inkompatible Typen: lokales dynamisches Array und Integer??

[gordon freeman]

Hi Leute,
warum bekomme ich bei dieser Procedure eine Meldung, dass inkompatible Typen vorliegen:

Delphi-Quellcode:

procedure TForm1.Primfaktoren(Zahl:integer;var Faktoren:array of integer);
var teiler, zaehler, i : integer;
begin
repeat
  SetLength(Faktoren,0);   //<- Hier taucht die Meldung einmal auf
  teiler:=0;
  repeat
    teiler := teiler +1;
    zaehler:=0;
    for i:=1 to teiler do
      if teiler mod i = 0 then
        zaehler := zaehler + 1;
  until
    (zahl mod teiler = 0) and (zaehler = 2);
    zahl := zahl div teiler;
    setLength(Faktoren,length(Faktoren)+1);  //<- Hier nochmals
    Faktoren[length(Faktoren)] := teiler;
until
  zahl = 1;
end;

Die Funktion soll die übergebene Zahl in ihre Primfaktoren aufteilen und diese Primfaktoren dann in einen Array schreiben, der zurückgegeben wird. Aufrufen tu ich die Prozedur folgendermaßen:

Delphi-Quellcode:

var X: array of integer;

(...)

procedure TForm1.Button1.Click(Sender:TObject);
begin
Primfaktoren(132,X);
end;

(...)

end.

//EDIT1: Es sollte SetLength(Faktoren,0); heißen, voher stand statt 0 ein i!

[BenjaminH]

Vielleicht hast du die Variable Faktoren irgendwo anders schon deklariert?

[Binärbaum]

Das Problem ist, dass die Variable i zu diesem Zeitpunkt noch keinen Wert zugewiesen bekommen hat, sie ist also faktisch undefiniert. Da steht höchstens irgendein Wert drin, der vorher an dieser Stelle im Speicher stand. Und das kann auch ein negativer Wert sein, und deswegen wird der Compiler sich wohl beschweren.

MfG
Binärbaum

[SirThornberry]

du kannst das ganze so lösen:

Delphi-Quellcode:

type
  TDynArr = Array of Integer;
[...]
procedure TForm1.Primfaktoren(Zahl:integer;var Faktoren: TDynArr);
begin
[...]

dann kommt die meldung nicht mehr...

[gordon freeman]

Zitat:

Zitat von BenjaminH

Vielleicht hast du die Variable Faktoren irgendwo anders schon deklariert?

Nein, hab das ganze in einem extra Programm ohne irgendwas anderes getestet, selber Fehler!

Zitat:

Zitat von Binärbaum

Das Problem ist, dass die Variable i zu diesem Zeitpunkt noch keinen Wert zugewiesen bekommen hat, sie ist also faktisch undefiniert. Da steht höchstens irgendein Wert drin, der vorher an dieser Stelle im Speicher stand. Und das kann auch ein negativer Wert sein, und deswegen wird der Compiler sich wohl beschweren.

Hab mich vertippt, hab's oben geändert, statt i sollte da 0 stehen!

Zitat:

Zitat von Sir Thornberry

du kannst das ganze so lösen:

Delphi-Quellcode:

type
  TDynArr = Array of Integer;
[...]
procedure TForm1.Primfaktoren(Zahl:integer;var Faktoren: TDynArr);
begin
[...]

dann kommt die meldung nicht mehr...

Ja jetzt klappt es :bounce2:
Aber das ganze macht ja jetzt nichts anderes, als ich geschrieben habe, sondern schiebt dazwischen nur 'ne Type-Deklaration, sodass nicht ein Array verändert wird, sondern ein selbstdefinierter Type, der ja aber letztendlich nur ein Array ist.... :gruebel:
Warum ging meine Version denn nicht???

[SirThornberry]

liegt einfach an delphi. Wenn du in zwei unterschiedlichen Units den Typ "TDynArray" deklarierst sind diese auch untereinander incompatibel (laut compiler) so das du es explizit auf das TDynArray der anderen Unit casten müsstest. Und genauso verhält es sich wenn du es im ProcedureKopf deklarierst, es ist dann eben eine neudeklaration des arrays..