Einzelnen Beitrag anzeigen

herrentor

Registriert seit: 29. Mai 2004
Ort: Emden
158 Beiträge
 
#1

mehrere *.txt dateien im memo anzeigen

  Alt 21. Feb 2005, 10:21
moin,

ich möchte in einem memo mehere *.txt dateien anzeigen. das problem ist nur, dass immer nur die als letztes aufgerufene datei angezeigt wird und die vorherigen vermutlich überschreibt, wie kann ich das ändern?

Delphi-Quellcode:

if fileexists('c:\Schichtbuch_'+anlage.Items[i]+'_Schicht_1.txt') then
 begin
 Memo1.Text:='Schicht 1';
 Memo1.Lines.LoadFromFile('c:\Schichtbuch_'+anlage.Items[i]+'_Schicht_1.txt');
 end;
if fileexists('c:\Schichtbuch_'+anlage.Items[i]+'_Schicht_2.txt') then
 begin
 Memo1.Text:='Schicht 2';
 Memo1.Lines.LoadFromFile('c:\Schichtbuch_'+anlage.Items[i]+'_Schicht_2.txt');
 end;
  Mit Zitat antworten Zitat