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;
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."