Wie macht man das wieder rückgängig?
Mit folgender Funktion funktionierts leider nicht so wie gewollt:
Delphi-Quellcode:
function StrToAnsi(s : WideString) : AnsiString;
var len : integer;
begin
result := '';
len := WideCharToMultiByte(CP_ACP, 0, PWideChar(s), - 1, nil, 0, nil, nil);
if len > 0 then begin
setlength(Result, len);
WideCharToMultiByte(CP_ACP, 0, PWideChar(s), -1, Pchar(Result), len, nil, nil);
end;
end;
Ich übergeben "Töne" an die Funktion und die liefert mir auch "Töne" wieder zurück und nicht wie erwartet 'T' + #$C3#$B6 + 'ne'
Woran liegt das?
Mfg Hitzi