1:
2:
3:
4:

procedure TGrafikForm.FormCreate(Sender: TObject);
begin
  self.Memo_BtnDetail.Lines.Clear;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TGrafikForm.ListView_UnitsSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
var
  _unit:MWW2_Unit;
begin
  _unit:=MWW2_Unit(MWW2_Game.Instance.getUnit(Item.SubItems[0]));
  IF _unit=NIL Then Label1.Caption:='Unit '+Item.SubItems[0]+' could not be found!'
  ELSE BEGIN
    Label1.Caption:=_unit.ID;
    GrafikForm.ShowUnitData(_unit);
  END;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TGrafikForm.ShowUnitData(_unit: MWW2_Unit);
var
  itemX:TObject;
  bataillon:MWW2_Bataillon;
  subUnit:MWW2_Unit;
  i, max : integer;
  t:string;
begin
  self.Memo_BtnDetail.Lines.Clear;
  ...
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TGrafikForm.ShowUnitData(_unit: MWW2_Unit);
var
  itemX:TObject;
  bataillon:MWW2_Bataillon;
  subUnit:MWW2_Unit;
  i, max : integer;
  t:string;
begin
  if Assigned(_unit) then begin
    Memo_BtnDetail.Lines.Clear; // Self ist normalerweise überflüssig
    // dein restlicher Code
  end
  else
    ShowMessage('_unit ist NIL!');
end;					

1:

Label1.Caption:=_unit.ID;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TGrafikForm.ShowUnitData(_unit: MWW2_Unit);
var
  itemX:TObject;
  bataillon:MWW2_Bataillon;
  subUnit:MWW2_Unit;
  i, max : integer;
  t:string;
begin
  self.Memo_BtnDetail.Lines.Clear;
  max:=_unit.subUnits.Count;
  If max>0 Then
  For i:=0 to (max-1) Do
  Begin
    itemX:=_unit.subUnits[i];
    If (itemX is MWW2_Bataillon) Then
    Begin
      bataillon:=MWW2_Bataillon(_unit.subUnits[i]);
      Str(i+1,t);
      Memo_BtnDetail.Lines.Add(t+'.: Bataillon '+bataillon.ID);
    End Else
    If (itemX is MWW2_Unit) THEN
    Begin
      subUnit:=MWW2_Unit(_unit.subUnits[i]);
      Str(i+1,t);
      Memo_BtnDetail.Lines.Add(t+'.: Unit '+subUnit.ID);
    End;
  End Else
  Memo_BtnDetail.Lines.Add('No Sub-Units');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TGrafikForm.ShowUnitData(_unit: MWW2_Unit);
var
  itemX:TObject;
  bataillon:MWW2_Bataillon;
  subUnit:MWW2_Unit;
  i, max : integer;
  t:string;
begin
  ShowMessage(_unit.ClassName);
  self.Memo_BtnDetail.Lines.Clear;
  max:=_unit.subUnits.Count;
//...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:

unit WW2_Unit;

interface

uses types, classes, WW2_Bataillon;

type MWW2_Unit = class

  strict private
    class var
      pNextID : integer;

  private
    pID : string;
    pUnitLevel : byte;
    pVersion : byte;
    pName : string;
    pDescription : string;
    pPicture : string;

  public
    subUnits : TList;
    belongsToUnit : MWW2_Unit;
    constructor Create (); virtual;
    class property nextID : integer read pNextID write pNextID;
    property ID : String read pID write pID;
    property UnitLevel : byte read pUnitLevel write pUnitLevel;
    property Version : byte read pVersion write pVersion;
    property name : String read pName write pName;
    property description : string read pDescription write pDescription;
    property picture : string read pPicture;
    procedure write(var txt:TStringList);
end;

implementation

{ MDivision }


constructor MWW2_Unit.Create();
var s:string;
begin
  Str(MWW2_Unit.nextID,s);
  ID:='Unit_'+s;
  Inc(MWW2_Unit.nextID);
  Name:=ID+' (Defaultname)';
  belongsToUnit:=NIL;
  subUnits:=TList.Create;
end;

procedure MWW2_Unit.write(var txt: TStringList);
begin

end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TGrafikForm.ShowUnitData(_unit: MWW2_Unit);
var
  itemX:TObject;
  bataillon:MWW2_Bataillon;
  subUnit:MWW2_Unit;
  i, max : integer;
  t:string;
begin
  ShowMessage(Format('%p',[Pointer(Self)]));
  ShowMessage(Self.ClassName);
  self.Memo_BtnDetail.Lines.Clear;
  max:=_unit.subUnits.Count;
//...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

procedure TGrafikForm.ListView_UnitsSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
var
  _unit:MWW2_Unit;
begin
  _unit:=MWW2_Unit(MWW2_Game.Instance.getUnit(Item.SubItems[0]));
  IF _unit=NIL Then Label1.Caption:='Unit '+Item.SubItems[0]+' could not be found!'
  ELSE BEGIN
    Label1.Caption:=_unit.ID;
    Memo_BtnDetail.Lines.Add('Versuche Text hinzuzufügen');
    GrafikForm.ShowUnitData(_unit);
  END;
end;

procedure TGrafikForm.ShowUnitData(_unit: MWW2_Unit);
var
  itemX:TObject;
  bataillon:MWW2_Bataillon;
  subUnit:MWW2_Unit;
  i, max : integer;
  t:string;
begin
  Memo_BtnDetail.Lines.Clear;
  max:=_unit.subUnits.Count;
  If max>0 Then
  For i:=0 to (max-1) Do
  Begin
    itemX:=_unit.subUnits[i];
    If (itemX is MWW2_Bataillon) Then
    Begin
      bataillon:=MWW2_Bataillon(_unit.subUnits[i]);
      Str(i+1,t);
      Memo_BtnDetail.Lines.Add(t+'.: Bataillon '+bataillon.ID);
    End Else
    If (itemX is MWW2_Unit) THEN
    Begin
      subUnit:=MWW2_Unit(_unit.subUnits[i]);
      Str(i+1,t);
      Memo_BtnDetail.Lines.Add(t+'.: Unit '+subUnit.ID);
    End;
  End Else
  Memo_BtnDetail.Lines.Add('No Sub-Units');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TGrafikForm.ListView_UnitsSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
var
  _unit:MWW2_Unit;
begin
  ShowMessage(Format('%p',[Pointer(Self)]));
  ShowMessage(Self.ClassName);

  _unit:=MWW2_Unit(MWW2_Game.Instance.getUnit(Item.SubItems[0]));
  IF _unit=NIL Then Label1.Caption:='Unit '+Item.SubItems[0]+' could not be found!'
  ELSE BEGIN
    Label1.Caption:=_unit.ID;
    Memo_BtnDetail.Lines.Add('Versuche Text hinzuzufügen');
    GrafikForm.ShowUnitData(_unit);
  END;

  ShowMessage(Format('%p',[Pointer(Self)]));
  ShowMessage(Self.ClassName);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TGrafikForm.ListView_UnitsSelectItem(Sender: TObject; Item: TListItem;  
  Selected: Boolean);  
var  
  _unit:MWW2_Unit;  
begin  
  _unit:=MWW2_Unit(MWW2_Game.Instance.getUnit(Item.SubItems[0]));  
  IF _unit=NIL Then Label1.Caption:='Unit '+Item.SubItems[0]+' could not be found!'  
  ELSE BEGIN  
    Label1.Caption:=_unit.ID;  
    Memo_BtnDetail.Lines.Add('Versuche Text hinzuzufügen');  
    GrafikForm.ShowUnitData(_unit);
  END;  
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TGrafikForm.ListView_UnitsSelectItem(Sender: TObject; Item: TListItem;  
  Selected: Boolean);  
var  
  _unit:MWW2_Unit;  
begin  
  _unit:=MWW2_Unit(MWW2_Game.Instance.getUnit(Item.SubItems[0]));  
  IF _unit=NIL Then Label1.Caption:='Unit '+Item.SubItems[0]+' could not be found!'  
  ELSE BEGIN  
    Label1.Caption:=_unit.ID;  
    Memo_BtnDetail.Lines.Add('Versuche Text hinzuzufügen');  
    GrafikForm.ShowUnitData(_unit);
  END;  
end;					

1:
2:

procedure TGrafikForm.ListView_UnitsSelectItem(Sender: TObject; Item: TListItem;  
  Selected: Boolean);					

1:
2:
3:

    Memo_BtnDetail.Lines.Add('Versuche Text hinzuzufügen');  
    Self.ShowUnitData(_unit);
  END;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Button2Click(Self);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(Format('%p %p',[Pointer(Self),Pointer(Sender)]));
end;