Zitat von
Luckie:
Es wäre wesentlich einfacher, wenn du uns die Fehlermeldung nennen würdest und dazu die relevate Codestelle.
Ok, hier:
erste Fehlermeldung:
"Bezeichner redefiniert"
Delphi-Quellcode:
...
uses
SysUtils, Classes, Controls, StdCtrls, ExtCtrls;
type
TOption = set of (Aktiv, Intervall);
TRunLabel = class(TLabel) //<--- hier die Fehlermeldung
private
{ Private-Deklarationen }
fTimer: TTimer;
fIntervall: Integer;
fAktiv: Boolean;
FOption: TOption;
...
zweite Fehlermeldung:
"'.' erwartet ']' gefunden"
Delphi-Quellcode:
...
procedure Register;
begin
RegisterComponents('Standard', [TRunLabel]); //<--- hier die fehlermeldung
end;
...
dritte fehlermeldung:
"'TRunLabel' untescheidet sich von der von vorheriger Deklaration"
Delphi-Quellcode:
...
public
{ Public-Deklarationen }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property Intervall: Integer Read fIntervall Write SetIntervall;
property Aktiv: Boolean Read fAktiv Write SetAktiv;
...
...
constructor TRunLabel.Create(AOwner: TComponent); //<--- hier die fehlermeldung
begin
inherited; //<--- fehler (diese form des methodenaufrufs ist nur auf abgeleiteten typen erlaubt)
fAktiv := False; //undefinierter bezeichner
fIntervall := 500;//undefinierter bezeichner
fTimer := TTimer.Create(self);//undefinierter bezeichner
fTimer.OnTimer := OnTimer;//undefinierter bezeichner
fTimer.Interval := 500;//undefinierter bezeichner
fTimer.Enabled := fAktiv;//undefinierter bezeichner
end;
...
Und ich kann immer genauso weitermachen bei jeder procedure...
Ich hoffe ihr könnt mir helfen
...