TStrings Encodierung

[hansklok]

Hallo an alle,

ich versuche schon seit mehren Tagen herauszufinden wie eine TStringList unter Lazarus codiert ist, also ob Unicode oder Ansi. Unter Delphi kann man ja seit ein paar Versionen die Codierung mittels TEncoding selbst definieren.

Gibt's da auch ne Alternative für Freepascal?

HG hansklok

[himitsu]

Gehört die TStringList dort zur FreePascal-CL oder zu Lazarus?

FreePascal soll ja noch mit ANSI arbeiten.


Nja, aber du jast ja die Quellcodes, also schau doch einfach mal nach was wie gemacht wird?

[JamesTKirk]

Zitat von hansklok:

Hallo an alle,

ich versuche schon seit mehren Tagen herauszufinden wie eine TStringList unter Lazarus codiert ist, also ob Unicode oder Ansi. Unter Delphi kann man ja seit ein paar Versionen die Codierung mittels TEncoding selbst definieren.

Gibt's da auch ne Alternative für Freepascal?

HG hansklok

Einfacher Grundsatz: findest du die Klasse in einer Unit, die in %lazarus%\fpc\%version%\rtl oder lazarus%\fpc\%version%\packages liegt, dann ist die Wahrscheinlichkeit hoch, dass Ansi verwendet wird. Ist die Unit jedoch in %lazarus%\lcl, dann ist sie mit ziemlicher Sicherheit für UTF-8 ausgelegt.

Aber um deine Frage dennoch zu beantworten: TStrings arbeitet auf Ansi Strings, du musst also UTF8ToAnsi und AnsiToUTF8 verwenden, um Strings aus der GUI und wieder zurück zu transferieren.

Gruß,
Sven

[hansklok]

@ JamesTKirk: danke...sehr ausführlich. und wenn ich die stringlist dann in ner Datei Speicher, dann ist sie auch so formatiert? schade, ich hoffe, dass die lazarus/freepascal-entwickler schnell TEncoding a la Embarcadero nachrüsten!

[himitsu]

Hat Lazarus/FPS auch eine aktomatische Umkodierung?
Also wenn man z.B. einen UTF8String an einen AnsiString übergibt.

Wenn nicht, dann übergib das UTF8 einfach an die AnsiStringListe und es gibt keine Probleme (außer dem fehlenden BOM in der Datei)

UTF-8 ist ja gerade dafür entwikelt wurden, um in AnsiStrings gespeichert werden zu können.


Delphi seit D2009 wandelt leider UTF-8 und Ansi untereinander um (wenn die Strings entsprechende Codierungsinfos enthalten, was sie meistens tun).

[JamesTKirk]

Zitat von himitsu:

Hat Lazarus/FPS auch eine aktomatische Umkodierung?
Also wenn man z.B. einen UTF8String an einen AnsiString übergibt.

Nein, noch nicht. Ist aber in Entwicklung...

Zitat von himitsu:

Wenn nicht, dann übergib das UTF8 einfach an die AnsiStringListe und es gibt keine Probleme (außer dem fehlenden BOM in der Datei)

UTF-8 ist ja gerade dafür entwikelt wurden, um in AnsiStrings gespeichert werden zu können.

Stimmt, das ist auch noch ne Möglichkeit. Solange du, hansklok dich daran hältst, dass UTF-8 Strings drin sind, dann hast du keine Probleme (vielleicht ne UTF-8 BOM am Anfang hinzufügen zur Sicherheit)

Gruß,
Sven

[hansklok]

Danke an himitsu und JamesTKirk!

Zitat von JamesTKirk:

Solange du, hansklok dich daran hältst, dass UTF-8 Strings drin sind, dann hast du keine Probleme (vielleicht ne UTF-8 BOM am Anfang hinzufügen zur Sicherheit)

Daran habe ich auch schon gedacht, habe allerdings keinen blassen Schimmer, wie ich das machen soll! Hast du ne Anregung?

Ich bin ja schon froh, dass ich für FP ne Lösung gefunden habe, damit ich nicht jedes mal ne neue typisierte Objektliste erstellen muss. Einfach ne neue Klasse erstellen, die hiervon abgeleitet ist:

Specialize TFPGObjectList<TSurname>; Dann wird alles automatisch angepasst.

VG hansklok

[JamesTKirk]

Zitat von hansklok:

Danke an himitsu und JamesTKirk!

Zitat von JamesTKirk:

Solange du, hansklok dich daran hältst, dass UTF-8 Strings drin sind, dann hast du keine Probleme (vielleicht ne UTF-8 BOM am Anfang hinzufügen zur Sicherheit)

Daran habe ich auch schon gedacht, habe allerdings keinen blassen Schimmer, wie ich das machen soll! Hast du ne Anregung?

Einfachste Variante (der Code an sich ist ungetestet, sollte aber zumindest vom Prinzip her funktionieren):

Delphi-Quellcode:

const
  UTF8BOM: String = #$EF#$BB#$BF;

var
  s: TStrings;
begin
  ...
  // vor dem speichern (einmal eben)
  s.Text := UTF8BOM + s.Text;
  ...
end;

Zitat von hansklok:

Ich bin ja schon froh, dass ich für FP ne Lösung gefunden habe, damit ich nicht jedes mal ne neue typisierte Objektliste erstellen muss. Einfach ne neue Klasse erstellen, die hiervon abgeleitet ist:

Specialize TFPGObjectList<TSurname>; Dann wird alles automatisch angepasst.

Dass nennt sich "generics" und ist hier beschrieben.

Gruß,
Sven