|
Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
Delphi 12 Athens
|
Re: HTML? decodieren
22. Jul 2004, 08:37
Hier mal eine Quick&Dirty Routine für UTF-8 nach WideString.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Res: array[0..1024] of WideChar;
S: AnsiString;
begin
S := 'T' + #$C3#$B6 + 'ne';
MultiByteToWideChar(CP_UTF8, 0, PChar(S), -1, @Res[0], SizeOf(Res));
ShowMessage(Res);
end;
...  ...
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
|