Hallo folgende abstakte Klasse will nicht komplilieren, Fehler s.u.
Aber ich seh vor lauter Bäumen den Wald bzw. das Problem nicht.
Delphi-Quellcode:
unit uJob;
interface
uses ADODB,uMSG;
Type TJob =
class abstract
private
protected
Con:TADOConnection;
fMSG:TMSG;
ID:
String;
public
constructor create(ADOCon:TADOConnection);
function Execute(JobID:
String):Boolean;
virtual;
abstract;
property MSG:TMSG
read fMSG
write fMSG;
end;
implementation
{ TJob }
constructor TJob.create(ADOCon: TADOConnection);
begin
Con:=ADOCon;
end;
end.
Code:
[Fehler] uJob.pas(8): ',' oder ':' erwartet, aber Bezeichner 'private' gefunden
[Fehler] uJob.pas(9): ',' oder ':' erwartet, aber Bezeichner 'protected' gefunden
[Fehler] uJob.pas(10): ',' oder ':' erwartet, aber Bezeichner 'Con' gefunden
[Fehler] uJob.pas(15): Ungenügende Forward- oder External-Deklaration: 'TJob.Execute'
[Fataler Fehler] uJoblist.pas(37): Verwendete
Unit 'uJob.pas' kann nicht compiliert werden