UTF8ToAnsi (gemodded) und ANSI/UTF8 gemischt

[Bernhard Geyer]

Zitat von sECuRE:

Daraufhin hab ich die Funktion wie oben "gepatcht". Das funktioniert dann.

Meintest du das so? Oder ist der Aufruf wie ich ihn gemacht hab doch richtig?

Danke & cu

Ich würde ihn lieber so machen. UTF8ToAnsi sollte nur das machen für was es bestimmt ist und Nicht-UTF8 bzw. gemischte Strings wandeln. Entweder UTF8-String oder keiner.

Delphi-Quellcode:

function ConvertString(S:string):string;
begin
result:=UTF8ToAnsi(S);  // Delphi-Orginal-Funktion
if result = '' then // String leer, wenn kein UTF8 -> Orginal Zurückliefern
  result := S;
end;