Ergebnis der Suchanfrage

• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Wie kann man TEncoding vergleichen?

    Delphi
    by Codehunter, 30. Aug 2017
  Noch nie verwendet. Schau ich mir mal an.Genau das habe ich mir auch gedacht! Denn ich kenne das so bei vermurkster Umkodierung, dass da entweder Rechtecke oder Fragezeichen auftauchen. Zu Testzwecken verwende ich Notepad++ und HexEditor MX. NP++ kann abgesehen von UTF7 alle Kodierungen. Worauf die Anwendung dann beim Nutzer treffen wird weiß ich noch nicht. Deshalb ja auch der ganze Aufwand mit...
• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Wie kann man TEncoding vergleichen?

    Delphi
    by Codehunter, 30. Aug 2017
  Das ist ja ein Ding! Ich bin gar nicht auf die Idee gekommen, ANSI überhaupt zu testen wenn 7-Bit-ASCII schon nicht geht.
  
  Kurz erklärt warum ich hier Probleme habe: Ich lese eine INI-Datei die als UTF8 ohne BOM gespeichert ist, mit TIniFile ein. Da dieses über die API-Funktionen nur ANSI einliest, wandle ich alles mit DecodeUTF8 um. Anschließend sollen die gelesenen Werte in einer...
• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Wie kann man TEncoding vergleichen?

    Delphi
    by Codehunter, 29. Aug 2017
  Danke euch soweit, die Vergleicherei funktioniert nun soweit. Allerdings habe ich Probleme damit, eine TStringlist, die als Unicode-String vorliegt, gezielt in ein ASCII-Format zu speichern SL.SaveToFile('DerDateiname.txt', TEncoding.ASCII). Dabei gehen die Umlaute verschütt (ü>u, ß>?)
  
  Die Hilfe warnt da ja ausdrücklich: Achtung: System.SysUtils.TEncoding.ASCII ist ein 7-Bit-ASCII-Zeichensatz...
• Forum: Algorithmen, Datenstrukturen und Klassendesign

  Wie kann man TEncoding vergleichen?

    Delphi
    by Codehunter, 29. Aug 2017
  Moin!
  
  Ich steh grad irgendwie auf dem Schlauch: function EncodingToStr(const AEncoding: TEncoding): string;
  begin
  if AEncoding is TEncoding.ANSI then // <-- Operator ist auf diesen Operandentyp nicht anwendbar
  Result:= 'ANSI'
  else if AEncoding is TEncoding.ASCII then // <-- Dito
  Result:= 'ASCII'
  else if AEncoding is TEncoding.UTF7 then // <-- Dito
  Result:= 'UTF7'