Du willst doch 2 Objekte gegeneinander kämpfen lassen. Dann mach das doch
Delphi-Quellcode:
procedure Fight( const AObj, BObj : TBewObj );
begin
AObj.Leben := AObj.Leben - BObj.Staerke;
BObj.Leben := BObj.Leben - AObj.Staerke;
end;
Genau. Bzw. besser noch als Methode:
Delphi-Quellcode:
procedure TMovableObject.Fight(AOther : TMovableObject);
begin
Self.Leben := Self.Leben - AOther.Staerke;
AOther.Leben := AOther.Leben - Self.Staerke;
end;
Das ist ziemlich straightforward.
Interessant wirds erst, wenn es einen Unterschied macht, wer gegen wen kämpft. Siehe hierzu:
http://www.christian-rehn.de/2009/08/31/multimethoden/
http://www.christian-rehn.de/2010/01...iple-dispatch/
mfg
Christian