Ergebnis der Suchanfrage

• Forum: Lazarus (IDE)

  AW: Dauerbrenner Umlaute: Lazarus vs. Delphi

   
    by ringli, 26. Aug 2013
  Im Lazarus-Forum habe ich die Funktion UTFToChr gefunden. Vielleicht hilft dir die:
  function UTFToChr(const s: string): char;
  begin
  if s='' then result:=char(0)
  else begin
  {$IFnDEF fpc}result:=s;{$ELSE}
  case byte(s) of
  194: result:=char((byte(s)-163)+128);
  195: result:=char((byte(s)-130)+160);
  226: result:=char(255);