Moin Hansa,
mach mal eine Konsole auf, und starte dort mal Edit (also den DOS Editor, wichtig!)
Jetzt die sieben deutschen Sonderzeichen eingeben, und als c:\oemtest.txt speichern.
Wenn Du jetzt
Code:
[b]procedure[/b] TForm1.Button1Click(Sender: TObject);
[b]var[/b]
fsWork : TFileStream;
sWork : [b]string[/b];
[b]begin[/b]
fsWork := TFileStream.Create('c:\oemtest.txt',fmOpenRead);
[b]try[/b]
sWork := StringOfChar(#00,fsWork.Size);
fsWork.Read(sWork[1],fsWork.Size);
[b]finally[/b]
FreeAndNil(fsWork);
[b]end[/b];
ShowMessage(sWork);
OemToChar(@sWork[1],@sWork[1]);
ShowMessage(sWork);
[b]end[/b];
mal probierst, wirst Du die Wirkung von OemToChar sehen können.