hallo,
ich möchte folgende klasse in der unit1 verwenden:
Delphi-Quellcode:
unit geomForm;
interface
type
TGeomForm =
class
private
Fx: Integer;
Fy: Integer;
public
procedure verschieben (dx, dy: integer);
end;
implementation
procedure verschieben (dx, dy: integer);
begin
Self.Fx:= Self.Fx + dx;
self.Fy:= self.Fy + dy;
end;
end.
Unit1:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, geomForm;
type
TForm1 =
class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var geomForm: TgeomForm;
begin
geomForm := TgeomForm.Create;
geomForm.verschieben(10,10);
geomForm.Free;
end;
end.
dabei treten folgende Fehler auf:
undefinierter Bezeichner self
(geomForm Zeile 19-20) Operator oder Semikolon fehlt
(geomFrom Zeile 20) Anweisung erforderlich aber Ausdruck vom Typ Integer gefunden
Ungenügend Forward- oder External-Deklaration: 'TGeomForm.verschieben'
verwendete
Unit kann nicht compiliert werden
ich hoffe ihr könnt mir sagen was schief läuft.
mfG