datei einlesen und in memo schreiben

[jority]

hi und guten tag,
ich habe ein problem mit einer datei die sich so einfach leider nicht einlesen läßt.
das problem liegt darin das mehrere Rechnungen in eine Datei geschrieben werden aber in dieser datei die verschiedenen Rechnungen mit #1013 voneinander getrennt sind.
so interpretiert Delphi dies nun als Dateiende was ja so nicht stimmt.
weiß jemand wie ich dieses umgehen kann und mir den Text der gesamten Datei dann in einem Memo ausgeben lassen kann?

gruß Jority

[Bobator]

hi,

dumme antwort, aber funzt net Memo1.Lines.LoadFromFile(); ??? :?:

[Tpercon]

Wie ließt du dies den momentan ein?
Meinst du nicht #10#13?

[jority]

ja ich meine #10#13.
und nein leider funzt memo1.lines.loadfromfile(datei); nicht.
da liegt ja eben der hund begraben.

gruß jority

[Tpercon]

Hast du die Datei schonmal versucht mittels ner Schleife mit ReadLn einzulesen?

[jority]

weiß jetzt grad garnicht so wirklich wie ich das machen müsste kannst du ein kleines beispiel posten?

[MikeS]

versuchs doch mal damit

Delphi-Quellcode:

[..]

var fromf: textfile;
    speicher: string;

begin
  assigenfile(fromf, 'deine datei');
  reset(fromf);
  repeat 
    readln(fromf, speicher);
  until(EOF(fromf));
end;

[Tpercon]

Vorsicht, eine Kopfgesteuerte Schleife (while) wäre hier besser, da deine Schleife ja mindest einmal durchlaufen wird. Und wenn die Datei leer ist ....
Also:

Delphi-Quellcode:

var fromf: textfile;
    speicher: string;
begin
  assigenfile(fromf, 'deine datei');
  reset(fromf);
  while not EoF(fromf) do begin
    readln(fromf, speicher);
    Memo.Lines.Add(speicher);
  end;
end;

[MikeS]

ok da hast du recht!

dann sollten wir aber auch vorher noch prüfen ob die datei existiert!

Delphi-Quellcode:

[..]

if fileexists('deine Datei') then
begin
  // der rest von vorher
end;

oder mit einem OpenDialog1

Delphi-Quellcode:

if OpenDialog1.execute then
begin
  assignfile(fromf, OpenDialog1.filename);
  // der ...
end;

:mrgreen:

[Tpercon]

Natürlich. :zwinker:

Zitat:

Zitat von jority

verschiedenen Rechnungen mit #10#13 voneinander getrennt sind.
so interpretiert Delphi dies nun als Dateiende was ja so nicht stimmt.

Das ist aber ein Zeilenumbruch und somit liegt das Fehlschlagen des Einlesens mittels LoadFromFile definitiv nicht daran.