Eine nutzbare Funktion mit abgelaufenem Code neu zu verbreiten ist nicht wirklich ideal.
Am Ende kommt noch wer auf die Idee und baut es in ein neues Programm ein.
Wie gesagt, an der Stelle ist garkein IFDEF nötig.
ReadFile liefert OEM, also
ANSI,
OemToChar will
ANSI rein bekommen,
also braucht der Buffer immer nur
ANSI zu sein und wird somit auch explizit als
ANSI deklariert. (AnsiChar/PAnsiChar/AnsiString)
Da gibt es bei deinem Trainer schlimmere Problemstellen, wenn man mit
Unicode kompilieren würde (ab Delphi 2009)
und Einiges (FixStr) ist in jeder Delphiversion potentiell gefährlich.
Hier
Function StatusText ( StatusID : myStatusIDs ) : pChar; stdcall;
klappt das mit dem Result, da es auf Konstanten zeigt, die bestehen bleiben.
Bei
Function FixStr ( Input : PChar ) : PChar; stdcall;
zeigt Result auf eine temporäre Variable, die beim Verlassen der Funktion freigegeben wird.
Wird der Speicher zwischenzeitlich mit irgendwas überschrieben, dann knallt es womöglich.
War die Variable der letzte genutzte Teil des Speicherblocks, dann wird der freigegeben und es knallt.
Mit etwas Glück passiert nichts und es wird anschließend auf den noch nicht freigegebenen/überschriebenen Speicherbereich zugegriffen.
MessageBox(Handle, PAnsiChar(...
: Wie schon gesagt, muß alles zusammenpassen.
String > PChar > MessageBox
AnsiString > PAnsiChar > MessageBoxA
WideString/UnicodeString > PWideChar > MessageBoxW
Mein Tipp wäre hier einfach immer nur mit String/AnsiString/WideString/... zu arbeiten, vorallem bezütlich String-Verarbeitung und Speichermanagement (speichern und weitergeben der Strings)
und nur bei übergabe an die
WinAPI nach PChar zu casten.