mehrere *.txt dateien im memo anzeigen

**herrentor**

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?

zusammenfalten · markieren

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;

mehrere *.txt dateien im memo anzeigen

mehrere *.txt dateien im memo anzeigen

Forumregeln