|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
AW: Klasse in Unit verwenden
5. Sep 2011, 13:03
Delphi-Quellcode:
procedure verschieben (dx, dy: integer);
begin
Self.Fx:= Self.Fx + dx; //was soll hier self sein?
self.Fy:= self.Fy + dy;
end;
->
Delphi-Quellcode:
procedure TGeomForm.verschieben (dx, dy: integer);
begin
Self.Fx:= Self.Fx + dx; //jetzt zeigt self auf die aktuelle Instanz von TGeomForm
self.Fy:= self.Fy + dy;
end;
[edit] *Gnarf*, zu langsam  [/edit]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|