zusammenfalten · markieren

Delphi-Quellcode:

  TIntDynArray = array of Integer;

function Test(Values: TIntDynArray; Len: Integer):TIntDynArray;
var i, index:integer;
begin
  for i:=1 to Len do
      begin
      inc(index);
      Result[index]:=i;
      end;
end;

so, das is jetzt meine function, nur sehr verkleinert und vom sinn "etwas" verändert...

nur bei dem befehl Result[index]:=i; kommt immer ein fehler der art "Zugriffsverletzung an der Adresse XYZ in Modul WasAuchImmer.

warum???

weise index den Wert "0" am Anfang deiner Routine zu. Sonst beginnt er mit dem Hochzählen bei 1000017 oder sonst wo. (Weiß nicht, ob das des Rätsels Lösung ist, ist mir nur aufgefallen)

******************

[Klugscheißmodus]

Die Mehrzahl von "Array" ist "Arrays", nicht "Arraye"

[/Klugscheißmodus]

Der Rückgabewert deiner Funktion ist ein dynamisches Array. Bevor du da mit Result[Index] draufzugreifen kannst, musst du auch erstmal mit SetLength Speicher für dieses Array anlegen. Index ist eine lokale Variable und muss vor dem ersten Aufruf mit Inc initialisiert werden. Also vor der For-Schleife einmal Index := 0 schreiben.

Zitat von glkgereon:

zusammenfalten · markieren

Delphi-Quellcode:

  TIntDynArray = array of Integer;

function Test(Values: TIntDynArray; Len: Integer):TIntDynArray;
var i, index:integer;
begin
  for i:=1 to Len do
      begin
      inc(index);
      Result[index]:=i;
      end;
end;

so, das is jetzt meine function, nur sehr verkleinert und vom sinn "etwas" verändert...

nur bei dem befehl Result[index]:=i; kommt immer ein fehler der art "Zugriffsverletzung an der Adresse XYZ in Modul WasAuchImmer.

warum???

Es sollte so aussehen:

zusammenfalten · markieren

Delphi-Quellcode:

  TIntDynArray = array of Integer;

function Test(Values: TIntDynArray; Len: Integer):TIntDynArray;
var i, index:integer;
begin
   index:=0;
   SetLength(Result, Len);
   for i:=1 to Len do
      begin
      inc(index);
      Result[index]:=i;
      end;
end;

MfG
Binärbaum

also, es sieht nu so aus:

zusammenfalten · markieren

Delphi-Quellcode:

function Test(Values: TIntDynArray; Len: Integer):TIntDynArray;
var i, index:integer;
begin
  SetLength(Result,Len);
  index:=0;
  for i:=1 to Len do
      begin
      inc(index);
      Result[index]:=i;
      end;
end;

nu kommt am ende der function eine "Ungültige Zeigeroperation".
hier der aufruf:

markieren

Delphi-Quellcode:

var temp:TIntDynArray;
begin
  SetLength(temp,ListBox1.Count);
  for i:=0 to ListBox1.Count-1 do temp[i+1]:=strtoint(ListBox1.Items[i]);
  temp:=test(temp,length(temp));
  for i:=0 to ListBox1.Count-1 do ListBox2.Items.Add(inttostr(temp[i+1]));
end;

Hallo,
Vertausch mal die Reihenfolge von inc(index) und Result[index]:=i.
Du marschierst übers Array hinaus. Dynamische Arrays gehen immer von 0 bis Length-1.

grüße, daniel

ok, es funzt jetzt....

nun die nächste procedure und das nächste problem

diese procedure soll eigentlich sortieren, ob das sortieren funzt is aber (noch) nicht das thema

und wieder kommt ganz am ende eine AV

zusammenfalten · markieren

Delphi-Quellcode:

procedure Sort(var Values: TIntDynArray; Len: Integer);
var MaxVal, i, j, index:Integer;
    Temp:TIntDynArray;
begin
  MaxVal:=0;
  //MaxValue
  for i:=0 to Len do if MaxVal<Values[i] then MaxVal:=Values[i];
  //Temp-Array
  SetLength(Temp,MaxVal);
  //Temp nullen
  for i:=0 to MaxVal do Temp[i]:=0;
  //Werte holen
  for i:=0 to Len do Temp[Values[i]]:=Temp[Values[i]]+1;
  index:=0;
  //Werte schreiben
  for i:=1 to MaxVal do //für alle Zahlen
    for j:=1 to Temp[i] do
      begin
      Values[index]:=i; //schreiben
      inc(index); //index erhöhen
      end;
  SetLength(Temp,0); //Temp leeren
end;

aufruf:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var temp:TIntDynArray;
    i:integer;
begin
  ListBox2.Clear;
  SetLength(temp,ListBox1.Count-1);
  for i:=0 to ListBox1.Count-1 do
    temp[i]:=strtoint(ListBox1.Items[i]);
  sort(temp,length(temp)-1);
  for i:=0 to ListBox1.Count-1 do
    ListBox2.Items.Add(inttostr(temp[i]));
end;

Lies nochmal was ich vorher geschrieben habe. Ein dynamisches Array geht von 0 bis Length(Array) - 1. Und jetzt schau dir deinen Code nochmals an.

ich sehs net

kannst du mir nicht die stelle sagen?

Hier:

markieren

Delphi-Quellcode:

  ...
 //Temp-Array
  SetLength(Temp,MaxVal);
  //Temp nullen
  for i:=0 to MaxVal do Temp[i]:=0;
  ...

oder hier:

markieren

Delphi-Quellcode:

  ...
  //Werte schreiben
  for i:=1 to MaxVal do //für alle Zahlen
    for j:=1 to Temp[i] do
  ...

Außerdem versteh ich dein rumgepfriemel mit der index-Variable nicht. Warum lässt du nicht einfach den Zähler von 0 bis länge-1 laufen?