Textdateien mit Umlauten im Inhalt

[Phillie08]

Nach langen Jahren Pause wollte ich mal wieder was mit Delphi machen, habe dann Lazarus gefunden, und bin an folgendem Problem hängen geblieben:
Ich möchte Textdateien in ein Memo einlesen, bearbeiten und dann wieder zurückschreiben. Wäre kein Problem, wenn das Memo Umlaute lesen könnte. Sie werden sämtlich durch ein "?" ersetzt.
Ich habe verschiedene CharSets bei Eigenschaft Font ausprobiert, alles mit dem nämlichen Ergebnis.
Hat jemand eine Idee?

[mkinzler]

Welcher Charset? ANSI oder ASCII?

[Luckie]

Unicode?

[JamesTKirk]

Zitat von Phillie08:

Nach langen Jahren Pause wollte ich mal wieder was mit Delphi machen, habe dann Lazarus gefunden, und bin an folgendem Problem hängen geblieben:
Ich möchte Textdateien in ein Memo einlesen, bearbeiten und dann wieder zurückschreiben. Wäre kein Problem, wenn das Memo Umlaute lesen könnte. Sie werden sämtlich durch ein "?" ersetzt.
Ich habe verschiedene CharSets bei Eigenschaft Font ausprobiert, alles mit dem nämlichen Ergebnis.
Hat jemand eine Idee?

Lazarus arbeitet standardmäßig mit UTF-8 Kodierung, während dein System (wahrscheinlich Windows) eine Ansikodierung verwendet. Du musst also vor der Zuweisung den Text in UTF-8 umkonvertieren:

Delphi-Quellcode:

begin
  DeinText := {lade Text aus Datei}
  Memo1.Lines.Text := SysToUTF8(DeinText); // alternativ sollte auch AnsiToUTF8 funktionieren
end;

Siehe dazu auch diese Seite des Lazarus Wikis

Gruß,
Sven

[Phillie08]

Zitat von JamesTKirk:

Lazarus arbeitet standardmäßig mit UTF-8 Kodierung, während dein System (wahrscheinlich Windows) eine Ansikodierung verwendet. Du musst also vor der Zuweisung den Text in UTF-8 umkonvertieren:

Delphi-Quellcode:

begin
  DeinText := {lade Text aus Datei}
  Memo1.Lines.Text := SysToUTF8(DeinText); // alternativ sollte auch AnsiToUTF8 funktionieren
end;

Siehe dazu auch diese Seite des Lazarus Wikis

Gruß,
Sven

Vielen Dank, das sieht vielversprechend aus.
Allerdings habe ich da denn doch noch ein Verständnisproblem:

Von welchem Typ ist "DeinText"? Oder gleich ausführlich: Wie realisiere ich

[Phillie08]

Zitat von JamesTKirk:

Lazarus arbeitet standardmäßig mit UTF-8 Kodierung, während dein System (wahrscheinlich Windows) eine Ansikodierung verwendet. Du musst also vor der Zuweisung den Text in UTF-8 umkonvertieren:

Delphi-Quellcode:

begin
  DeinText := {lade Text aus Datei}
  Memo1.Lines.Text := SysToUTF8(DeinText); // alternativ sollte auch AnsiToUTF8 funktionieren
end;

Siehe dazu auch diese Seite des Lazarus Wikis

Gruß,
Sven

Vielen Dank, das sieht vielversprechend aus.
Allerdings habe ich da denn doch noch ein Verständnisproblem:

Von welchem Typ ist "DeinText"?
Oder gleich ausführlich: Wie realisiere ich
DeinText := {lade Text aus Datei}?

Und wenn ich schon dabei bin, dumme Fragen zu stellen: Muss ich eigens eine Unit einbinden, in der SysToUTF8 deklariert ist, falls ja: welche?

In Hoffnung,
Andreas

[DeddyH]

Genau lesen

Zitat von Verlinkter Wiki-Artikel:

The unit FileUtil defines common file functions with UTF-8 strings:

[JamesTKirk]

Zitat von DeddyH:

Genau lesen

Zitat von Verlinkter Wiki-Artikel:

The unit FileUtil defines common file functions with UTF-8 strings:

Selbiges gilt auch für dich

SysToUTF8/UTF8ToSys und AnsiToUTF8/UTF8ToAnsi sind in SysUtils oder gar System definiert (ich glaube allerdings System). Letztere musst du gar nicht einbinden (die ist immer verfügbar), die erstere ist meist eh schon eingebunden.

Die Funktionen in FileUtils sind UTF8 Wrapper um die Ansi Funktionen in SysUtils und Co.

Edit:
Da hätte ich doch glatt deine andere Frage vergessen:

Zitat von Phillie08:

Von welchem Typ ist "DeinText"?
Oder gleich ausführlich: Wie realisiere ich
DeinText := {lade Text aus Datei}?

DeinText ist vom Typ String . Um ihn zu bekommen kannst du zum Beispiel folgendes machen:

Delphi-Quellcode:

var
  slist: TStringList;
begin
  with TStringList.Create do
    try
      LoadFromFile(DeinDateiName); // ein String
      DeinText := Text;
    finally
      Free;
    end;
end;

Alternativ kannst du statt DeinText auch gleich Memo1.Lines.Text := SysToUTF8(Text) verwenden.

Gruß,
Sven

[Phillie08]

Zitat von JamesTKirk:

Zitat von Phillie08:

Von welchem Typ ist "DeinText"?
Oder gleich ausführlich: Wie realisiere ich
DeinText := {lade Text aus Datei}?

DeinText ist vom Typ String . Um ihn zu bekommen kannst du zum Beispiel folgendes machen:

Delphi-Quellcode:

var
  slist: TStringList;
begin
  with TStringList.Create do
    try
      LoadFromFile(DeinDateiName); // ein String
      DeinText := Text;
    finally
      Free;
    end;
end;

Alternativ kannst du statt DeinText auch gleich Memo1.Lines.Text := SysToUTF8(Text) verwenden.

Gruß,
Sven

Ich bin begeistert. Es klappt! Habe den zweiten, kürzeren Vorschlag verwendet.
Nur noch eine Bemerkung: Ich habe mich gewundert, wozu die Variable slist: TStringList ist, sie wird anscheinend nicht verwendet. Findet der Compiler überigens auch. Ich habe sie versuchsweise auskommentiert, und ohne scheint es genauso gut zu funktionieren.

Jedenfalls: Ganz großen Dank an Sven!
Von meiner Seite aus ist dieser Thread hiermit erledigt.
Andreas

[JamesTKirk]

Zitat von Phillie08:

Nur noch eine Bemerkung: Ich habe mich gewundert, wozu die Variable slist: TStringList ist, sie wird anscheinend nicht verwendet. Findet der Compiler überigens auch. Ich habe sie versuchsweise auskommentiert, und ohne scheint es genauso gut zu funktionieren.

Upps, die Variable hatte ich vergessen (ich wollte es zuerst ohne with machen).

Gut zu wissen, dass es dir aber weitergeholfen hat.

Gruß,
Sven