UTF-8 nach ASCII (die 1000ste)

[ernschd]

Delphi-Quellcode:

function GetFieldByName(const FieldName: string): String;
var s: String;
begin
    s := Utf8ToAnsi(GetFields(self.GetFieldIndex(FieldName)));
    if FIsAscii then s := OEM2Ascii(S);
    Result := s;
end;

Der Rückgabewert der Methode GetFields liefert einen String.