'Der Vorgang kann nicht erzeugt werden', Delphi 7

[Mathematiker]

Tut mir leid, ich habe keine Idee mehr.
Da müssen wohl die Profis 'ran.

Beste Grüße
Mathematiker

[Chris603]

Hallo

Schade, naja Ich glaub bei dem Fehler muss man dann einfach weiter programmieren, Ich hatte schon bei vorherigen Programmen(ohne eigene Units, nur mit Standardtfunktionen) das Problem, das mir der Compiler diesen Fehler an den Kopf geworfen hat, da habe Ich es aber einfach ignoriert und weiter gemacht, als das Programm dann fertig war, war der Fehler damals auch weg. Hier war aber der Fehler trotz fertig gestellter Funktionen IMMER noch da, daher hab Ich mich gemeldet...Echt komisch!

Falls noch ein anderer eine Erklärung für dieses 'Phänomen' hat, kann er Sie ja bitte posten!

Gruß
Christoph

[Bjoerk]

Ist TextClass erzeugt? Mit "procedure TText" kann man jedenfalls (wenn ich mich nicht irre) keine Klasse erzeugen?

[Volker Z.]

Hallo,

eine interessante Konstruktion, die Du da hast; interessant auch, dass das überhaupt funktioniert. Scheinbar betrachtet der Compiler Deine TText-Methoden als klassenstatische Methoden, so dass Du sie auch aufrufen kannst. Dies funktioniert aber nur solange Du die Variable TextClass in Deinem Project-Main deklarierst. Wenn ich die Deklaration in die Unit verschiebe, dann kracht es bei mir mächtig.

Mal ein paar Dinge, die Dir bei der Delphi-Programmierung weiterhelfen werden:

Delphi-Quellcode:

type
    TText = class
    private
      iStdTextColor: Integer;
    public
      procedure printf(sText: String; TextColor: Integer=0); // formatierte Ausgabe
      procedure ClrScr; // Konsole leeren
      function Ansi2OEM(AnsiString: string): string; // ANSI-String zu OEM-String
      procedure TText; // Konstruktor
  end;

Die procedure TText ist eine ganz normale Prozedur, kein Konstruktor!

Was in C++ TText::TText ist in Delphi mit dem Zauberwort constructor zu bauen.
Was in C++ TText::~TText ist in Delphi mit dem Zauberwort destructor zu bauen.

Delphi-Quellcode:

type
    TText = class
    private
    public
      constructor Create; // jetzt ist es ein Konstruktor
      destructor Destroy; override;
  end;

implementation

constructor TText.Create;
begin
  inherited Create;

  // Deine Initialisierung
end;

destructor TText.Destroy;
begin
  // Alles was noch aufgeräumt werden muss
  inherited Destroy
end;

Hoffe es hilft Dir weiter.

Gruß

[Bjoerk]

Und in deiner Main dann z.B. so:

Delphi-Quellcode:

var
  TextClass: TText;
  I: integer;
begin
  TextClass := TText.Create;
  try
    TextClass.ClrScr;
    try
      for I := 0 to 15 do
        TextClass.printf('Hallo Welt!', I);
      Readln;
    except
      on E: Exception do
        Writeln(E.Classname, ': ', E.Message);
    end;
  finally
    TextClass.Free;
  end;
end.

[Furtbichler]

Na ja, ginge auch mit Klassenmethoden.

[Chris603]

Danke an Bjoerk & Volker!

Wie gesagt, für mich als C++Programmierer ist das hier Neuland, aber jetzt klappt das auch!
Vielen Dank für die schnelle Hilfe hier!


Gruß Christoph