Einzelnen Beitrag anzeigen

nahpets
(Gast)

n/a Beiträge
 
#3

AW: Konvertiere ü zu ü - gibt es da was?

  Alt 3. Okt 2016, 21:14
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;
  Mit Zitat antworten Zitat