hi

ich "ordne" einen dynamischen array neu, und will danach den temporären in den "normalen" reintun.

leider kommt da ne av an adresse sonstwieviel...

zusammenfalten · markieren

Delphi-Quellcode:

procedure TChars.MakeValues;
var i, j, TIndex, TAnzahl:Integer;
    NewVals: TDynIntArray;
begin
  SetLength(NewVals, FCount);
  TIndex:=0;
  TAnzahl:=0;
  for j:=1 to FCount do
    begin
    for i:=1 to FCount do
      if TAnzahl<FAnzahl[i] then
        begin
        TAnzahl:=FAnzahl[i];
        FAnzahl[i]:=0;
        TIndex:=i;
        end;
    NewVals[j]:=TIndex;
    end;
  FVal:=NewVals;//<--- Hier!!!
// for i:=1 to FCount do FVal[i]:=NewVals[i];
end;

wie ihr seht habe ich es auch schon umständlich versucht, funzt aber auch net

beide Arrays sind mit SetLength(FVal,FCount) initialisiert und (natürlich) vom selben typ (array of Integer).

weiss einer wos dran liegen könnte?

FVal := Copy(NewVals,0, Length(NewVals));

Bist du schonmal durchgesteppt, ob die AV auch von dem Array herrührt? Normal müsste das einwandfrei funktionieren.

ja, ich bin durchgesteppt.

es liegt an der zuweisung...werd das copy mal probieren

Es leigt am Index des dyn. Arrays:
Der beginnt bei immer null und "läuft" bis Lenght-1.
Deswegen muss es statt
for j:=1 to FCount do ... so heißen
for j:=0 to FCount-1 do ... MfG
Binärbaum