Pointer mit einer Stringlist

[NeoXan]

Delphi-Quellcode:

type
 TAttack = record
  Name        : String;
  Description : TStringlist;
 end;
 ArAttack = Array[1..10] of TAttack;

type
 TTechnique = record
  Name   : String;
  Attack : ArAttack;
 end;
 pTechnique = ^TTechnique;

var 
 TheList     : TList;

[...]

procedure TfrmMain.AddToList(Str: String; Ar: ArAttack);
var p: pTechnique;
    i: integer;
begin
 new(p);
 p^.Name := Str;
 AddResults('0',Str,true);

 for i:=1 to Length(Ar) do
 begin
  if Ar[i].Name <> '' then
   begin
    p^.Attack[i].Name        := Ar[i].Name;
    p^.Attack[i].Description := Ar[i].Description;
    TheList.Add(p);
   end;
 end;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
var tmpAr: ArAttack;
    tmpStrings: TStringlist;
begin
 TheList := TList.Create;
 tmpStrings := TStringlist.Create;

 tmpAr[1].Name        := 'At1';
 tmpStrings.Add('This is the text for At1');
 tmpAr[1].Description := tmpStrings;
 tmpStrings.Clear;

 tmpAr[2].Name        := 'At2';
 tmpStrings.Add('This is the text for At2');
 tmpAr[2].Description := tmpStrings;
 tmpStrings.Clear;

 AddToList('Tech',tmpAr);
[...]
end;

und wenn ich nun das hier versuche

Delphi-Quellcode:

  p := TheList[0];

  ShowMessage(p^.Name);
  ShowMessage(p^.Attack[1].Name);

  memDesc.Assign( p^.Attack[1].Description );  //<======

klappt alles bis auf die Letzte Zeile ?!

[Luckie]

Was ist memDesc?

[Muetze1]

Moin!

Im FormCreate legst du eine Stringlist Instanz an und weisst ein Inhalt zu. Dann merkst du dir die Instanzenadresse in dem Record. Danach leerst du die Stringlist (damit auch die in dem Record, da es die gleiche ist) und dann füllst du sie wieder. Dann weist du die gleiche Instanz dem anderen Record zu (also beide Records benutzen die gleiche StringList) und leerst wieder die gleiche Stringlist, also zeigen beide Records auf ein und die selbe StringList und haben beide den gleichen Inhalt: nix.

MfG
Muetze1