TMemo.Lines.LoadFromFile()

[Satty67]

Jaja, die Lösung habt Ihr quasi schon gepostet...

Delphi-Quellcode:

if FileExists('Ich_lasse_mich_nicht_öffnen.txt') then begin
  try
    Memo1.Lines.LoadFromFile('Ich_lasse_mich_nicht_öffnen.txt');
  except
    on EFOpenError do ShowMessage('Datei konnte nicht geöffnet werden.');
  end;
end else  ShowMessage('Datei existiert nicht.');

<Edit>
Während ich mich hier mit Code abbreche ist der Thread leider schon viel weiter... lasse meinen Code jetzt trotzdem mal stehen.

[DeddyH]

Genauso in der Art hatte ich das ja auch gemeint :zwinker:

[asusbob]

Jup, hab ich jetzt auch so implementiert, danke :)

[Roefe68]

Hallo zusammen

Habe das Problem dass mir das LoadFromFile nicht den ganzen Textinhalt ins Memo lädt.

Delphi-Quellcode:

memoname.Lines.LoadFromFile(Dateiname);

Das Problem tritt nur bei meinem Win7 64-Bit Rechner auf.
Interessanterweise kann ich die Datei mit

Delphi-Quellcode:

ShellExecute(Handle,'open',PChar(Dateiname),Nil, nil, SW_NORMAL);

problemlos komplett öffnen

Kennt jemand das Problem oder besser die Abhilfe

Danke für die Hilfe
Röfe

[mkinzler]

Was bedeutet: nicht den gesamten Inhalt?

[Roefe68]

Hi

Die Datei wird geladen, aber nur die ersten paar Zeilen werden geladen.
also aus

[DATEIINHALT]
111111111111111111
222222222222222222
333333333333333333
444444444444444444
111111111111111111
222222222222222222
333333333333333333
444444444444444444
111111111111111111
222222222222222222
333333333333333333
444444444444444444
111111111111111111
222222222222222222
333333333333333333
444444444444444444
[/DATEIINHALT]

wird



[MEMOINHALT]
111111111111111111
222222222222222222
333333333333333333
444444444444444444
111111111111111111


[/MEMOINHALT]

[himitsu]

Auch wenn z.B. die TStringList intern nicht mit PChar arbeitet, wird dennoch immer beim Auffinden einer #0 die Verarbeitung abgebrochen.
Sobald also dieses Zeichen ( #0 ) in der Datei drin ist, wird alles ab da ignoriert.

PS: AssignFile+Read/ReadLn bricht bei #1A (EOF) ab und nicht bei #0.
Dies ist aber für das TMemo egal, da die API dieser Windows-Komponente sowieso nur mit PChar arbeitet.

[Roefe68]

Zitat:

Zitat von himitsu (Beitrag 1137526)

Auch wenn z.B. die TStringList intern nicht mit PChar arbeitet, wird dennoch immer beim Auffinden einer #0 die Verarbeitung abgebrochen.
Sobald also dieses Zeichen ( #0 ) in der Datei drin ist, wird alles ab da ignoriert.

PS: AssignFile+Read/ReadLn bricht bei #1A (EOF) ab und nicht bei #0.
Dies ist aber für das TMemo egal, da die API dieser Windows-Komponente sowieso nur mit PChar arbeitet.

Werde ich mal versuchen.
Danke für die Info

[Luckie]

Was himitsu eigentlich sagen wollte ist, guck dir die Datei mal mit einem Hexeditor an, ob da das Stringendezeichen enthalten ist. Notepad interpretiert die Textdatei eventuell als Unicode-Datei, dann spielt mitten drin ein einzelnes Stringendezeichen keine Rolle.

[p80286]

benutz doch mal eine Tstringlist um die Datei zu lesen.
Wenn die Anzahl der Zeilen, die gleiche ist (in Datei und Stringlist ) hat TMemo ein Darstellungsproblem.

Die zu lesende Datei mal mit einem Hex-Editor zu öffnen ist natürlich auch kein Fehler

Gruß
K-H