Ich habe ein kleines Test-Programm gebastelt welches mir eine
ASCII Datei einließt, dabei soll der Text entsprechend
umgewandelt werden so das Sonderzeichen/Umlaute korrekt dargestellt werden, jedoch habe ich Probleme mit der Anwendung
von "OemToChar" unter Delphi 2007 war dies noch problemlos möglich jedoch unter Delphi 2009 macht mir die Prozedur
doch arge Probleme.
In dem folgenden beispiel tritt ein Stacküberlauf auf. Ich weiß nicht weiter im moment und hoffe auf die Hilfe der DPler.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
FHandle : System.Text;
sRow : AnsiString;
Text : String;
i : byte;
begin
System.Assign(FHandle, 'u:\test.txt');
{$I-}
Reset(FHandle);
{$I+}
if IoResult = 0 then begin
while not EOF(FHandle) do begin
//Zeile einlesen
Readln(FHandle, sRow);
//Zeile umwandeln
OemToChar(PAnsiChar(sRow), PWideChar(Text));
//Zeile anzeigen
ShowMessage(Trim(sRow));
end;
System.Close(FHandle);
end;
end;