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:

Zitat von Phillie08 (Beitrag 1075905)

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:

Zitat von JamesTKirk (Beitrag 1076131)

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:

Zitat von JamesTKirk (Beitrag 1076131)

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:

Zitat von Verlinkter Wiki-Artikel

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

[JamesTKirk]

Zitat:

Zitat von DeddyH (Beitrag 1076857)

Genau lesen ;)

Zitat:

Zitat von Verlinkter Wiki-Artikel

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

Selbiges gilt auch für dich :P

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:

Zitat von Phillie08 (Beitrag 1076855)

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

Delphi-Quellcode:

DeinText

ist vom Typ

Delphi-Quellcode:

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

Delphi-Quellcode:

DeinText

auch gleich

Delphi-Quellcode:

Memo1.Lines.Text := SysToUTF8(Text)

verwenden.

Gruß,
Sven

[Phillie08]

Zitat:

Zitat von JamesTKirk (Beitrag 1077005)

Zitat:

Zitat von Phillie08 (Beitrag 1076855)

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

Delphi-Quellcode:

DeinText

ist vom Typ

Delphi-Quellcode:

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

Delphi-Quellcode:

DeinText

auch gleich

Delphi-Quellcode:

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

Delphi-Quellcode:

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:

Zitat von Phillie08 (Beitrag 1077500)

Nur noch eine Bemerkung: Ich habe mich gewundert, wozu die Variable

Delphi-Quellcode:

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

Delphi-Quellcode:

with

machen).

Gut zu wissen, dass es dir aber weitergeholfen hat. :)

Gruß,
Sven