Jetzt kommt ein anderer Fehler! Wiedermal funktioniert es, wenn ich Readln ausklammere
"Programm xx/xx/advText.exe kann nicht gefunden werden!"
Ist mir echt ein Rätsel, da der Compiler ja die .exe erstellen soll und sie nicht suchen(dh er sucht sie und wenn er Sie nicht findet, DANN erzeugt er Sie)....
Delphi-Quellcode:
program advText;
{$APPTYPE CONSOLE}
uses
SysUtils,
ceText in '..\ChrisEngine\ceText.pas';
var
TextClass : TText;
begin
// Inititialisierung
TextClass := TText.Create;
TextClass.printf('Hallo Welt!');
TextClass.ClrScr;
Readln;
// Freigeben der Klassen
TextClass.Destroy;
end.
In der ceText.pas hat sich nichts geändert, nur der Konstruktor/Destruktor sind diesmal richtig
In Konstruktor wird iStdTextColor:=7(Weiß) gesetzt. Der Destruktor tut gar nix.
Grüße
Christoph