1:
2:
3:
4:

  TGrafik = class
    public
      procedure DrawText(Text:String;x,y,s:integer);
  end;					

1:
2:
3:
4:
5:

type
    TGrafik = class
    public
        Procedure MachWas1(const Parameter); virtual; abstract;
    end;					

1:
2:
3:
4:
5:

type
    TOpenGLGrafik = class(TGrafik)
    public
        Procedure MachWas1(const Parameter); override;
    end;					

1:
2:
3:
4:
5:

type
    TDirectXGrafik = class(TGrafik)
    public
        Procedure MachWas1(const Parameter); override;
    end;					

1:
2:

var
    Grafik: TGrafik					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

unit g;

interface
uses Graphics;
type

  TGrafik = class
    public
      procedure DrawText(Text:String; x,y,Size:Integer; Color:TColor) virtual; abstract;
  end;

implementation

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

unit DX;
uses g;

interface
  TDX = class(TGrafik)
  public
    procedure DrawText(Text:String; x,y,Size:Integer; Color:TColor); override;

  end;
implementation

procedure TDX.DrawText(Text:String; x,y,Size:Integer; Color:TColor); override;
begin
end;


end.					

1:

  procedure DrawText(Text:String; x,y,Size:Integer; Color:TColor); virtual; abstract;					

1:
2:

      procedure DrawImage(ImageIndex, ImageP, x,y:Integer);virtual; abstract;
      procedure DrawImage(ImageIndex:String; ImageP, x,y:Integer);virtual; abstract;overload;					

1:
2:

 procedure DrawImage(ImageIndex, ImageP, x,y:Integer); override;
    procedure DrawImage(ImageIndex:String; ImageP, x,y:Integer);overload;					

1:
2:

procedure DrawImage(ImageIndex, ImageP, x,y:Integer); overload;
procedure DrawImage(ImageIndex:String; ImageP, x,y:Integer);overload;					

1:
2:

procedure DrawImage(ImageIndex, ImageP, x,y:Integer);virtual; abstract;
procedure DrawImage(ImageIndex:String; ImageP, x,y:Integer);virtual; abstract;					

1:
2:

procedure DrawImage(ImageIndex, ImageP, x,y:Integer);overload;virtual; abstract;
procedure DrawImage(ImageIndex:String; ImageP, x,y:Integer);overload;virtual; abstract;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

unit player;

interface

uses b;

Type
  TPlayer = class(TBO)
    x,y:Integer;
    constructor Create;
  public
    procedure MovePlayer(NeuX: Integer);

  private

  end;

implementation

constructor TPlayer.Create;
begin
end;

procedure TPlayer.MovePlayer(NeuX:Integer);
begin
  if (GetMapSize.MapX <= NeuX) then x:=NeuX;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:

und die rufe ich so auf:
unit b;

interface

uses g, dx, og,dialogs,Graphics,forms;

const
  MapX = 39;
  MapY = 23;
  MapS = 16;

type
  TMapSize = record
    MapX, MapY, MapS:Integer;
  end;

  TBO = class
    constructor Create(GrafikL:Integer;F1:TForm);
  public
    GFL:TGrafik;
    function GetMapSize:TMapSize;
  private
    procedure Draw;
  end;

implementation

uses tools,player;

var
  Player:TPlayer;

function TBO.GetMapSize:TMapSize;
begin
  result.MapX:=MapX;
  result.MapY:=MapY;
  result.MapS:=MapS;    
end;

constructor TBO.Create(GrafikL:Integer;F1:TForm);
begin
  if (GrafikL <> 0 ) and (GrafikL <> 1 ) then begin
    Showmessage('Grafik Lib nicht angeben !');
    Exit;
  end;

  if GrafikL = 0 then GFL:=TDX.Create;
  if GrafikL = 1 then GFL:=TGL.Create;
  GFL.onDraw:=Draw;
  
  GFL.Init(F1,GetExeDir + 'image\images.txt');
  player:=Player.Create;
end;

procedure TBo.Draw;
begin
  //  GFL.DrawText('Test1',160,300,16,clRed,clBlack);
  GFL.DrawImage('B',0,0,0);
  GFL.DrawImage('D',0,0,385);

  GFL.DrawImage('P',0,player.x,player.y);
end;


end.					

1:
2:
3:

[Warnung] b.pas(48): Instanz von 'TGL' mit der abstrakten Methode 'TGrafik.DrawImage' wird angelegt
[Warnung] b.pas(48): Instanz von 'TGL' mit der abstrakten Methode 'TGrafik.DrawImage' wird angelegt
[Warnung] b.pas(48): Instanz von 'TGL' mit der abstrakten Methode 'TGrafik.Init' wird angelegt					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

unit OG;

interface

uses dialogs,g,Graphics;

type
  TGL = class(TGrafik)
  public
    procedure DrawText(Text:String; x,y,Size:Integer; Color,color1:TColor); override;
    

  end;
  
implementation

procedure TGL.DrawText(Text:String; x,y,Size:Integer; Color,color1:TColor); 
begin
  ShowmEssage('OpenGL');
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

unit g;

interface

uses Graphics,forms,SysUtils;

type
  // Ereignis was bei onTimer ausgelöst wird
  TDraw = procedure of object;

  TGrafik = class
    public
      onDraw:TDraw;
      procedure DrawText(Text:String; x,y,Size:Integer; Color,color1:TColor); virtual; abstract;

      procedure DrawImage(ImageIndex, ImageP, x,y:Integer); overload; virtual; abstract;
      procedure DrawImage(ImageStr:String; ImageP, x,y:Integer); overload; virtual; abstract;

      procedure Init(F1:TForm; FileName:TFileName);virtual; abstract;
    end;

implementation

end.