Einzelnen Beitrag anzeigen

Benutzerbild von Binärbaum
Binärbaum

Registriert seit: 19. Jan 2005
Ort: Elstra
764 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: Dynamische Arraye verhackstückt :(

  Alt 6. Feb 2005, 22:48
Zitat von glkgereon:
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:
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
There are exactly 10 kinds of people: those who understand binary, and those who don't.
---
"Software reift beim Kunden. Bei Hardware ist es anders: Hardware fault beim Kunden." - Rainer G. Spallek
  Mit Zitat antworten Zitat