Dynamisches zwei dimensionales Array erzeugen und zugriff

[Jmh124]

hi, ich habe eine array:

und greife drauf wie folgt zu:

Delphi-Quellcode:

type
PTextlist = ^TTextlist;
TTextlist = record

  text: String;
  
end;

var 
PList : array[0..3] of array of Plist;

setLength(Plist[0],31);
Plist[0][0].text:='';

[Hafish]

Ohne zu wissen was du eigentlich willst wage ich zu vermuten, dass ich das Programm so nicht kompilieren lässt.
Wahrscheinlich kommt da eine Fehlermeldung dass Delphi eine Konstante oder einen Typ erwartet.

Zunächst einmal solltest du bei der Variablendeklaration nicht als Typ PList verwenden (so heißt deine Variable die du gerade deklarierst).

Was du meinst ist doch wahrscheinlich:

Delphi-Quellcode:

type
PTextlist = ^TTextlist;
TTextlist = record

  text: String;
 
end;

var
PList : array of array of PTextList;

setLength(Plist,0,31);
Plist[0,0].text:='';

[Jmh124]

args wieder angefangen programmiersprachen code zu mixen ;/

alles klar danke!

[Jmh124]

kriege im debugger trotzdem eine EAcception mit versuch auf 00000 zu schreiben! hmm

[Hafish]

Hast du denn den Speicher auch reserviert?

[Jmh124]

eigentlich war ich der meinung ich mache das mit setlength ;/

[Hafish]

Ich meine nicht den array, sondern die Objekte auf die deine Pointer zeigen.

[Jmh124]

nein das ist der komplette code den ich habe

[Hafish]

Zitat von Jmh124:

eigentlich war ich der meinung ich mache das mit setlength ;/

Ja, aber damit setzt du nur die Länge des Arrays. Die einzelnen Record-Objekte brauchen auch Speicher.

Also:
Wenn du Pointer benutzt, dann musst du erst Speicher für die einzelnen Objekte reservieren, bevor du sie benutzen kannst. Wenn du das Prinzip von Pointern noch nicht verstanden hast rate ich dir dringed zu einem Tutorial(Edit:z.B. hier) bzw einem wikipedia Besuch.


Trotzdem hier mal der Code mit dem es klappt:

Delphi-Quellcode:

  
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLength(PList,100,100);
  GetMem(PList[45,10],SizeOf(TTextList));
  PList[45,10].text := 'Test';
  ShowMessage(PList[45,10].text);
  FreeMem(PList[45,10]);
end;

Allerdings musst du vorher die String-Länge begrenzen

Delphi-Quellcode:

  TTextlist = record
    text: string[255];
  end;