Danke für eure Antworten.
Es ist wirklich eine
XML Datei, aber mit so simplen Aufbau, dass der Overhead, welcher durch einen Parser entsteht, nicht gerechtfertigt ist.
Ich habe Sakuras Funktion wie folgt abgeändert. Irgendwelche Verbesserungen, Vorschläge dazu?
Delphi-Quellcode:
function AnsiToStr(s : AnsiString) : string;
var Res : array of WideChar;
len, i : integer;
begin
result := '';
len := MultiByteToWideChar(CP_UTF8, 0, PChar(s), - 1, nil, 0);
if len > 0 then begin
setlength(Res, len);
MultiByteToWideChar(CP_UTF8, 0, PChar(s), -1, @Res[0], SizeOf(Res));
for i := 0 to SizeOf(Res) - 1 do result := result + res[i];
end;
end;
MfG Hitzi