Pointer Problem

[WorstNightmare]

Hallo,

die Pointer machen mir mal wieder zu schaffen:

Delphi-Quellcode:

procedure TformEinstellungen.UpdateMacroLV(Mac: TMacro);
var
  Cmd: TMacroCommand;
begin
  LVMacro.Items.BeginUpdate;
  try
    LVMacro.Clear;

    // Alles wieder rein
    for Cmd in Mac.Commands do
      with LVMacro.Items.Add do
      begin
        Caption := frmMacro.cbCmdType.Items[Byte(Cmd.CmdType)];
        SubItems.Add(ArrayToStr(Cmd.Parameters));

        Data := @Cmd;   // <--- ?
      end;
  finally
    LVMacro.Items.EndUpdate;
  end;
end;

So, schön und gut. Versuche ich später die Daten abzufragen

Delphi-Quellcode:

Cmd := TMacroCommand(LVMacro.Selected.Data^);

knallts.

Vorher wurde extra immer für ein PMacroCommand Speicher reserviert und die Werte dann eingetragen, allerdings ist jeder Command wie man sieht Teil einer TList<TMacroCommand> und .Remove funktioniert nicht, wenn es eben nicht genau das selbe Objekt ist (wer hätte das gedacht...).

Warum funktioniert denn das schon wieder nicht? Diese Pointer machen mich noch wahnsinnig...

[Neutral General]

Das @ vor dem cmd muss weg.

[WorstNightmare]

Das geht nicht, TMacroCommand ist ja kein Pointer, TListItem.Data aber schon.

[Neutral General]

Wenn TMacroCommand ne Klasse ist, dann schon. Bei nem Record würds stimmen (d.h. ein @ müsste davor)

Aber ich tippe darauf, dass das Problem ist, dass du einen Zeiger auf ne lokale Variable speicherst, der nach dieser Methode nichtmehr gültig ist.

[WorstNightmare]

Es ist ein Record.

[Neutral General]

Zitat:

Aber ich tippe darauf, dass das Problem ist, dass du einen Zeiger auf ne lokale Variable speicherst, der nach dieser Methode nichtmehr gültig ist.

Edit: Versuch mal testweise Cmd global zu definieren.

Edit: Ich glaube ich rede Müll

[WorstNightmare]

Aber wie kann ich das ändern? Direkt auf den Record in der Liste pointen kann ich ja auch nicht (Variable erwartet), und ich kann nicht irgendwie New() benutzen wie früher, da ich ja diesen Record will und nicht irgendeine Kopie (damit TList<>.Remove geht).

[Neutral General]

Ach ich würde es evtl mal so probieren (Weiß aber nich obs nen Unterschied macht):

Delphi-Quellcode:

type
  PMacroCommand = ^TMacroCommand;


Cmd := PMacroCommand(LVMacro.Selected.Data)^;

[WorstNightmare]

Ist glaube ich so ziemlich dasselbe, knallt immer noch :?

[jfheins]

Es sollte mit New() gehen.

Also nen Pointer auf den Record deklarieren, New() verwenden, befüllen eun in der Liste speichern.

Alternativ eine Klasse nehmen ;)