AV bei dynamischen Array

[jaschu]

So, habe mal mein Problem von 2 Threads weiter unten stark vereinfacht.
Bei Hinzufügen eines Strings tritt eine Zugriffsverletzung auf, wenn man das Programm schließt.

Delphi-Quellcode:

unit tmp3list;

interface

type
  dsatz = record
            t0 : String[200];
            t1, t2 : Integer;
          end;
  mp3list = class
              private
                items : array of Dsatz;
                function getcount : Integer;
              public
                property count: Integer read GetCount;
                procedure addsingle(str : String);
                procedure readsingle(pos : Integer; var str : String);
                procedure new;
             end;
implementation


function mp3list.getcount : Integer;
begin
  result := length ( items );
end;

procedure mp3list.addsingle(str : String);
begin
  setlength(items, length(items)+1);
  items[length(items)].t0 := str;
end;

procedure mp3list.readsingle(pos : Integer; var str : String);
begin
  str := items[pos].t0;
end;

procedure mp3list.new;
begin
  setlength(items, 0);
end;
end.

Aufruf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var test : mp3list;
begin
  test.Create;
  test.new;
  test.addsingle('bla');
  showmessage(inttostr(test.count));
end;

Projekt: Klick

Weiß jetzt hier jemand Rat?

Danke schonmal und nen schönen Abend noch!

Jaschu

[marabu]

Hi Jaschu,

Zitat:

Zitat von jaschu

Bei Hinzufügen eines Strings tritt eine Zugriffsverletzung auf, wenn man das Programm schließt.

das ist die Fehlerklasse "off-by-one" - mach das besser so:

Delphi-Quellcode:

procedure mp3list.addsingle(str : String);
begin
  setlength(items, length(items)+1);
  items[High(items)].t0 := str;
end;

Grüße vom marabu

[teebee]

Zwei Dinge sind mir aufgefallen:

1) Es ist besser, eigenen Datentypen im Quelltext ein T voranszustellen. Das ist eine sinnvolle Konvention, die den Quelltext leichter lesbar macht.

2) Du möchtest ein Objekt der Klasse mp3list erzeugen, das geht so:

Delphi-Quellcode:

test := mp3list.Create;

Gruß, teebee

EDIT: Achja, ein drittes noch: Du solltest test auch wieder freigeben, sonst ensteht ein Speicherleck.
Ist zwar wohl nur experimenteller Code, aber egal...