Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi *.txt lässt sich nicht öffnen (https://www.delphipraxis.net/112706-%2A-txt-laesst-sich-nicht-oeffnen.html)

milchbrötchen 25. Apr 2008 17:19


*.txt lässt sich nicht öffnen
 
hi,
ich hab eine txt-datei, die ich mit wordpad oder dem editor ohne probleme öffnen kann...
will ich den text aber in einem memo anzeigen
Delphi-Quellcode:
memo1.Lines.LoadFromFile('C:\.....txt');
erscheint dort nur folgender text:
Zitat:

ÿþ.
:?
könnt ihr mir weiterhelfen?
danke schonmal im vorraus...

idontwantaname 25. Apr 2008 17:20

Re: *.txt lässt sich nicht öffnen
 
Beinhaltet die Textdatei nur normalen Text?
Hat die Text-Datei eventuell einen Unicode-Zeichensatz?

Fussball-Robby 25. Apr 2008 17:25

Re: *.txt lässt sich nicht öffnen
 
Evtl. funktioniert es mit dem RichEdit. Probiers mal aus.

[Edit]Nein, scheint wohl doch UniCode zu sein. Öffne die .txt mit dem Editor, drück auf Speichern Unter.. & wähl im SpeicherDialog nicht UniCode sondern ANSI aus.[/Edit]

milchbrötchen 25. Apr 2008 17:37

Re: *.txt lässt sich nicht öffnen
 
das geht :) ...
kann ich mit einem befehl den text von unicode in ansi umändern?

Fussball-Robby 25. Apr 2008 17:56

Re: *.txt lässt sich nicht öffnen
 
So kannst du eine Datei mit UniCode laden:
Delphi-Quellcode:
procedure LoadTextFile(List: TStrings; Filename: TFileName);
var
  S: String;
  W: WideString;
begin
  with TFileStream.Create(Filename, fmOpenRead or fmShareDenyWrite) do
  try
    SetLength(W, Size shr 1);
    Read(W[1], Size);
    S := Utf8Encode(W);
    List.Text := Utf8ToAnsi(S);
  finally
    Free;
  end;
end;

//Aufruf:
  LoadTextFile(Memo1.Lines, 'D:\test.txt');
Beim nächsten mal bitte vorher mal suchen, dazu gibts hier ne Menge :wink:

Luckie 25. Apr 2008 23:02

Re: *.txt lässt sich nicht öffnen
 
Zu beachten ist noch, dass die mitgelieferten Delphi Komponentn (TMemo, TRichedit, TEdit, TLabel, ...) keinen Unicode unterstützen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:02 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz