Einzelnen Beitrag anzeigen

Benutzerbild von JamesTKirk
JamesTKirk

Registriert seit: 9. Sep 2004
Ort: München
604 Beiträge
 
FreePascal / Lazarus
 
#6

Re: Dateinamen mit Umlauten

  Alt 8. Nov 2009, 12:18
Hi!

Ich weiß nicht was genau du machst, aber folgender Code funktioniert bei mir unter Win32 und Lazarus 0.9.28:

Delphi-Quellcode:
var
  s: String;
  fs: TFileStream;
begin
  if OpenDialog1.Execute then begin
    Memo1.Lines.Clear;
    s := UTF8ToSys(OpenDialog1.FileName);
    fs := TFileStream.Create(s, fmOpenRead);
    try
      Memo1.Lines.LoadFromStream(fs);
    finally
      fs.Free;
    end;
  end;
end;
Eine Datei namens "file-with-ü.txt" wird erfolgreich ausgelesen und in das Memo geschrieben.

Zitat von Bernhard Geyer:
Kann es evtl. ein Bug in Lazarus sein der darauf begründet ist das man die besch*** Entscheidung getroffen hat den Unicode-Datentyp intern als UTF8 zu realisieren? Ich hatte auch mal eine OpenOffice-Beta-Version im test welche auch keine Dateien mit Umlauten lesen konnte.
Ich glaub, dass da jeder eine andere Ansicht darüber hat, wer hier jetzt was falsch gemacht hat - und nein, ich möchte hier jetzt keine Diskussion darüber starten.

Gruß,
Sven
Sven
[Free Pascal Compiler Entwickler]
this post is printed on 100% recycled electrons
  Mit Zitat antworten Zitat