UTF8Decode gibt kein Resultat zurück

[himitsu]

Na das ginge och.

Freu dich drauf, wenn es bald wieder zurückgestellt wird.
Und dann nächstes Jahr auf COVID 20.

Delphi-Quellcode:

try
  S := TEncoding.UTF8.GetString(B);
except
  S := TEncoding.ANSI.GetString(B);  // oder lieber mit ASCII
end;

Bei uns geht das mit dem ANSI, kommt dann auf's gleiche Ergebnis, wie beim if (S = '') and (A <> '') then S := A; .

Aber ich weiß nicht wie sich z.B. die asiatischen ANSI-CodePages verhalten, drum sah es bei mir zum Schluss so aus.

Delphi-Quellcode:

try
  S := TEncoding.UTF8.GetString(B);
except
  try
    S := TEncoding.ANSI.GetString(B);
  except
    S := TEncoding.ASCII.GetString(B);
  end;
end;

B = TBytes von Indy, TFile, oder aus'm COM-Port

[Rolf Frei]

Gibt übrigens auch noch eine Funktion IsUTF8String (System.WideStrUtils.pas), die hier genutzt werden könnte.

[KodeZwerg]

//offtopic

Zitat von himitsu:

nächstes Jahr auf COVID 20

Oje, ich hoffe ja immer auf bessere zeiten, das gehört nicht dazu.

[stalkingwolf]

Zitat von himitsu:

Na das ginge och.
Freu dich drauf, wenn es bald wieder zurückgestellt wird.

Ich hoffe wir haben dafür nun schon alles berücksichtigt. Aber der Teufel ist ein Eichhörnchen.

Zitat von himitsu:

Und dann nächstes Jahr auf COVID 20.

Hoffen wir das Beste in Deutschland.

Ich weiß auch warum scheinbar einige Sachen nicht in UTF8 waren. Diese wurden per Hand mit SQL Insert in die Datenbank geschrieben per Flamerobin