Problem mit Sonderzeichen beim Einlesen von CSV-Dateien

[Gelmo]

Hallo zusammen!
Ich habe mir in Excel eine Liste mit französischen Vokabeln incl. ihrer Sonderzeichen angelegt (z.B. ç = [links-Alt] 135). Wenn ich die als CSV-Datei abspeichere, kann ich sie mit Excel, Libre Office Calc oder dem Windows-Editor öffnen, und die Sonderzeichen werden korrekt dargestellt.
Wenn ich die CSV-Datei aber als Textfile in Delphi einlese, werden die Sonderzeichen nicht korrekt wiedergegeben.
Ich bin ratlos, wie dies Problem gelöst werden kann. Meine Vorstellung ist, dass man Delphi mitteilen muss, dass es sich um Unicode-Zeichen handelt. Vielleicht kann mir hier jemand weiter-helfen.
Dafür schon im Voraus herzlichen Dank!
MfG Gelmo

Codebeispiel:

Delphi-Quellcode:

 
var 
  Vokdatei,
  DSZ         : String;
  CSVF         : Textfile;
procedure TForm1.Button2Click(Sender: TObject);
begin
…
  VokDatei:=Opendialog1.FileName;
  filemode:=0; // read-only
  assignfile(CSVF,VokDatei);
  reset(CSVF);
  while not eof(CSVF) do begin
    readln(CSVF,DSZ);   // DSZ = Datensatz
    showMessage(DSZ);
  end;
end;

Ergebnis:
Excel: mère français «bientôt»
Editor : mère;français;«bientôt»
Delphi : mère;français;«bientôt»

P.S.
Zusatzbemerkung : Als Separator verwendet Excel offenbar das Semikolon, aber was dient als Delimiter? Ist aber aktuell nicht von Bedeutung, da die Datensätze „technisch“ richtig übernommen werden.

[mkinzler]

Die Datei scheint im UTF-8 Format zu sein und wird als Standard-ASCII interpretiert zu werden.

[Gelmo]

OK, Excel verwendet also UTF-8. Nur, wie kann ich Delphi veranlassen, diesem Zeichensatz ebenfalls zu verwenden?

[Gandalf2265]

Ich verwende für so etwas eine Stringliste:

Delphi-Quellcode:

procedure demo;
var
  t : TStringlist;
  LDateiname : string;
begin
  LDateiname := 'meinecsvdatei.csv';
  t := TStringlist.create;
  try
    t.LoadFromFile( LDateiname, TEncoding.UTF8 );
    t.tue_irgend_etwas...
  finally
    t.free;
  end;
end;

[Gelmo]

Vielen Dank!
Ich habe gerade hier im Forum gefunden, dass readln und writln nur mit ASCII funktionieren.
Ich probier es jetzt mit einer Stringlist. Das sind gute Aussichten.
MfG Gelmo

[harfes]

Oder Du ersetzt in Deinem Code:

Readln(CSVF,DSZ);
ShowMessage(Utf8ToAnsi(DSZ));


Hartmut

[himitsu]

Aber nicht, wenn DSZ ein String bleibt.
AnsiString, RawByteString oder besser gleich UTF8String.

Bei Letzterem kann man dann auch das Utf8ToAnsi weglassen.
Und warum überhaupt Ansi?