Pointer Problem

[Neutral General]

Ich glaube die for-in schleife ist das Problem. Du speicherst glaube ich wirklich nur die Adresse von deiner lokalen Cmd Variable. Das Cmd aus der For-schleife enthält also jeweils nur ne Kopie von dem jeweiligen Element in der Liste.

Probiers also mal so:

Delphi-Quellcode:

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

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

        Data := @Mac.Commands[i];  
      end; 
  finally 
    LVMacro.Items.EndUpdate; 
  end; 
end;

[himitsu]

Was ist eigentlich TMacroCommand?

[DeddyH]

Steht oben, das ist ein Record. Aber die andere interessante Frage ist: was ist TMacro? Klappt es evtl. so?

Delphi-Quellcode:

procedure TformEinstellungen.UpdateMacroLV(var Mac: TMacro);

[Neutral General]

Wobei.. Meine Lösung wird wahrscheinlich auch nicht funktionieren. Deine TMacroCommand-Liste sollte PMacroCommand Pointer rausgeben, sonst gehts nicht.

[Neutral General]

Also... nochmal zusammengefasst:

TMacro.Commands = PMacroCommand-Liste !

und dann:

Delphi-Quellcode:

procedure TformEinstellungen.UpdateMacroLV(Mac: TMacro); 
var Cmd: PMacroCommand; 
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;

[WorstNightmare]

@himitsu: Wenn es hilft, das ganze sieht so aus:

Delphi-Quellcode:

  TMacro = class;

  TMacroCommand = record
    CmdType: TMacroCommandType;
    Parameters: TArrayofstring;
    AtTime: Boolean;
    Time: TTime;
    Macro: TMacro;
  end;
  PMacroCommand = ^TMacroCommand;

  TMacro = class
  public
    Name: string;
    Loop: Boolean;
    Commands: TList<TMacroCommand>;

    constructor Create;
    destructor Destroy; override;
  end;

@jfheins, meinst du sowas (statt Data := @Cmd; in der Schleife):

Delphi-Quellcode:

        New(p);
        p^.CmdType := Cmd.CmdType;
        p^.Parameters := Cmd.Parameters;
        p^.Macro := Cmd.Macro;
        Data := p;

Das funktioniert, allerdings geht p^.Macro.Commands.Remove(p^) dann nicht, weil p <> Cmd.

@Neutral General (1):
Sowas ähnliches dachte ich mir. Aber direkt das Element in der Liste adressieren geht ja auch nicht..

@Neutral General (2):
Oh gott. Aber eig eine gute Idee, werde ich mal probieren.


Edit:
Leute, ihr seid klasse! :dp:
Mit TList<PMacroCommand> läuft nun alles wie es soll :-D