Konvertiere ü zu ü - gibt es da was?

[nahpets]

Oder UTF8ToAnsi('ö'); wenn es denn tatsächlich UTF 8 sein sollte, was ich bei einer alten Anwendung bezweifle.

Alte Anwendungen könnten aber auch noch den OEM-Zeichensatz nutzen, dann wäre aber wohl eher sowas angesagt:

Delphi-Quellcode:

function OemToAnsi(const S: string): string;
begin
  SetLength(Result, Length(S));
  if S <> '' then OemToAnsiBuff(@S[1], @Result[1], Length(S));
end;

function AnsiToOem(const S: string): string;
begin
  SetLength(Result, Length(S));
  if S <> '' then AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;