Umlaute in memo anzeigen.

[kirchfritz]

Hi,
ich möchte mit folgendem einfachen Programm den Inhalt einer Textdatei in ein TMemo einlesen:
Leider werden die Umlaute im Memo nur als "?" dargestellt.

Code: Alles auswählen

 
unit Testunit;
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
  public
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('C:\TXT.TXT');
end;
 
end.
 

TXT.TXT

Das ist die Textdatei

(94 Bytes) 94-mal heruntergeladen

Das ist der ScreenShot

ScreenShot.png (26.51 KiB) 2172 mal betrachtet

Wer kann helfen?

[m.fuchs]

Binde mal die Unit LConvEncoding ein und mach nach dem LoadFromFile folgendes:

Code: Alles auswählen

Memo1.Lines.Text := ConvertEncoding(Memo1.Lines.Text, GuessEncoding(Memo1.Lines.Text), EncodingUTF8);

[kirchfritz]

Habe ich gemacht, Ergebnis immer noch "übel"

Zweiter Versuch

[kirchfritz]

Die Umlaute in der Textdatei haben die Byte-Werte
129 = "ü" und
132 = "ä"

das habe ich mittels einer ASCII-Tabelle herausgefunden.
Wieso ist es so kompliziert diese ASCII-Zeichen im Memo darzustellen?
Schließlich sind das für mich ganz "normale" Umlaute.
Wo liegt den hier das Problem?

[theo]

Das geht nicht über Memo, da werden die Nicht-UTF-8 Zeichen schon verschluckt.

Zuerst in eine TStringList laden, dann konvertieren und dem Memo zuweisen.

Das sind übrigens keine ASCII Zeichen, das sind ANSI Zeichen. Lazarus arbeitet mit Unicode UTF-8.

Alternativ auch http://wiki.freepascal.org/Theodp TCharEncStream.

[kirchfritz]

Ich habe jetzt dies hier eingefügt:

Code: Alles auswählen

 
Memo1.Lines.Text := ConvertEncoding(Memo1.Lines.Text, GetConsoleTextEncoding, EncodingUTF8);
 

Damit klappt es mit den Umlauten

Hurra, es klappt!

[theo]

Seltsam, aber ich wünsche viel Glück!

[m.fuchs]

Das funktioniert aber nur, wenn die Datei zufälligerweise das Textencoding der Konsole nutzt.

[Michl]

Binde mal die Unit LConvEncoding ein und mach nach dem LoadFromFile folgendes:

Code: Alles auswählen

Memo1.Lines.Text := ConvertEncoding(Memo1.Lines.Text, GuessEncoding(Memo1.Lines.Text), EncodingUTF8);

Hey - vielen Dank, kannte ich bisher auch noch nicht, kommt mir bei einem Projekt gerade wie gerufen!

Code: Alles auswählen

  Str:=ConvertEncoding(Str, 'CP850', 'UTF8');

- schönes Tool!