memo lädt nicht

[vollmer-net]

komplette dateihallo,

ich lade mit memo1.lines.loadfromfile eine textdatei in ein memo, doch leider lädt er nicht die komplette datei..irgendwie fehlt da was.

Also im Notepad lädt er es anders!

Woran kann es liegen?

Gruß

Alex

[plumper]

Was fehlt denn, bzw wie sieht es aus?

Bei mir waren mal Steuerzeichen in einer Zeile unter anderem #0 und das mag das memo nicht. Alles was dahinter ist, wird nicht mehr angezeigt und es wird in der nächsten Zeile weitergemacht.

Vieleicht ist es das?

[vollmer-net]

er lädt irgendwie nur einen Teil, danach garnichts mehr....

ich glaube aber das ist nicht bei allen dateien so!

Alex

[fkerber]

Hi!

Ist es eine sehr lange Datei?
Kannst du sie mal anhängen?

Ciao Frederic

[vollmer-net]

Code:

-----[START]:  OE / WAB Setup 5.0 started on 08/28/2004 at 18:30
 
Command Line: /APP:WAB /CALLER:WINNT /INSTALL 
MODE:  Install   TIME:  Machine 
Sniffing for WAB...  Detected:  

-----[END] 


-----[START]:  OE / WAB Setup 5.0 started on 08/28/2004 at 18:30
 
Command Line: /APP:OE /CALLER:WINNT /INSTALL 
MODE:  Install   TIME:  Machine 
Sniffing for OE...  Detected: 6.0x 
Reg/Unreg Exes:    C:\Programme\Outlook Express\msimn.exe /reg 

-----[END] 


-----[START]:  OE / WAB Setup 5.0 started on 08/28/2004 at 18:50
 
Command Line: /APP:OE /CALLER:WINNT /user /install 
MODE:  Install   TIME:  User 

-----[END] 


-----[START]:  OE / WAB Setup 5.0 started on 08/28/2004 at 18:50
 
Command Line: /APP:WAB /CALLER:WINNT /user /install 
MODE:  Install   TIME:  User 

-----[END]

und es erscheint nur die erste getextete zeile

[xineohp]

moin,

also be mir läd er das vollständig und korrekt :gruebel:

Peter

[phXql]

häng die datei mal an. nich reinposten, wirklich anhängen. bei copy & paste werden nich alle nicht-lesbaren zeichen mitkopiert...

[vollmer-net]

hier bitte

[Nothine]

mach's so, dann funktionierts, grad selbst getestet

Delphi-Quellcode:

var txt: TextFile;
    C: Char;
    S: string;
begin
  AssignFile(txt,'..\OEWABLog.txt'); //einmal dateinamen einfügen bitte
  Reset(txt);
  while not EoF(txt) do begin
    Read(txt,C);
    if C <> #0 then //<-- ohne das hier würde das selbe wie bei Memo1.Lines.LoadFromFile passieren
      S := S + C;
  end;
  CloseFile(txt);
  Memo1.Lines.Append(S);
end;

[mschaefer]

Moin, Frühmoin,

Tja vollmer-net, Du has zielsicher beschrieben. Er lädt nur die erste Zeile, dann findet er am Ende dieser ein #0. Offensichtlich arbeitest Du mit einem Editor der an die Zeilenenden das #0 anhängt. Passiert auch oft, wenn man mit C- oder PHP-Programmen arbeitet, denn hier wird die #0 gerne als Stringabschluss benutzt. Wenn Du das in Notepad lädst und speicherst dürfte das Memo es laden.


Vorschlag_ benutze einen Filestream (Thema war gestern gerade dran: mal suchen) um die Datein
direkt zu laden und dabei die #0 zu filtern.

[Edit>} Oder die Lösung von Nothine, bestens... [<Edit]

Grüße // Martin