Registriert seit: 2. Jun 2008
365 Beiträge
Delphi XE7 Professional
|
AW: Stringkonvertierung
4. Jul 2014, 10:10
Delphi-Quellcode:
const
Test = 'Achtung Farb„nderung';
var
s: string;
begin
SetLength(s, Length(Test));
OEMToCharBuff(PAnsiChar(Test), PChar(s), Length(Test));
ShowMessage(s);
end;
Sah gut aus.
Habe ich gerade ausprobiert. Die Umlaute sind nicht vorhanden.
|