Hi
also bei mir wird immer folgender fehler angezeigt:
[Pascal Fataler Fehler] Console.pas(5): F2047 Zirkuläre Unit-Referenz auf 'Console'
und im bezug auf uses mTKonto.es muss aber auch mTKunde dort hin doch dann wird der fehler von oben angezeigt.
was soll ich tun????

zusammenfalten · markieren

Delphi-Quellcode:

UNIT Console;

interface

uses mTKonto;

type
  Tconsole = class

  public //Methoden
    procedure ClrScr; virtual;
    procedure MessageBeep (Frequency: Smallint; Duration: Smallint); // nicht überschreibbar
    procedure SetCursorPosition (X: Smallint; Y: Smallint); // nicht überschreibbar
    procedure SetTitle (constValue: string); // nicht überschreibbar
    function Height : Smallint; // nicht überschreibbar
    function KeyPressed : Boolean; // nicht überschreibbar
    function ReadKey : Char; // nicht überschreibbar
    function Width : Smallint; // nicht überschreibbar

   end;

implementation

//+---------------------------------------------------------------------
//| Tconsole: Methodendefinition
//+---------------------------------------------------------------------

//-------- ClrScr (public) ---------------------------------------------
procedure Tconsole.ClrScr;
begin
  //Hier Code einfügen.
end;

//-------- MessageBeep (public) ----------------------------------------
procedure Tconsole.MessageBeep (Frequency: Smallint; Duration: Smallint);
begin
  //Hier Code einfügen.
end;

//-------- SetCursorPosition (public) ----------------------------------
procedure Tconsole.SetCursorPosition (X: Smallint; Y: Smallint);
begin
  //Hier Code einfügen.
end;

//-------- SetTitle (public) -------------------------------------------
procedure Tconsole.SetTitle (constValue: string);
begin
  //Hier Code einfügen.
end;

//-------- Height (public) ---------------------------------------------
function Tconsole.Height : Smallint;
begin
  //Hier Code einfügen.
end;

//-------- KeyPressed (public) -----------------------------------------
function Tconsole.KeyPressed : Boolean;
begin
  //Hier Code einfügen.
end;

//-------- ReadKey (public) --------------------------------------------
function Tconsole.ReadKey : Char;
begin
  //Hier Code einfügen.
end;

//-------- Width (public) ----------------------------------------------
function Tconsole.Width : Smallint;
begin
  //Hier Code einfügen.
end;

end.

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]

ein Thread zu diesem Thema genügt. Einfach dort den Titel ändern. Hier gehts weiter:
http://www.delphipraxis.net/internal...=639236#639236