mehrere *.txt dateien im memo anzeigen

[alcaeus]

Moin herrentor,

lade die Dateien in eine temporäre StringList und füge sie dann dem Memo hinzu:

Delphi-Quellcode:

var
  SL: TStringList,
begin
  SL := TStringList.Create;
  Memo1.Lines.Clear;
  try
    if fileexists('c:\Schichtbuch_'+anlage.Items[i]+'_Schicht_1.txt') then 
    begin 
      SL.LoadFromFile('c:\Schichtbuch_'+anlage.Items[i]+'_Schicht_1.txt'); 
      Memo1.Lines.Add('Schicht 1'); 
      Memo1.Lines.Add(SL.Text);
    end; 
    if fileexists('c:\Schichtbuch_'+anlage.Items[i]+'_Schicht_2.txt') then 
    begin 
      SL.LoadFromFile('c:\Schichtbuch_'+anlage.Items[i]+'_Schicht_2.txt'); 
      Memo1.Lines.Add('Schicht 2'); 
      Memo1.Lines.Add(SL.Text);
    end;
  finally
    SL.Free;
end;

Wie immer ungetestet, sollte aber funktionsfähig sein.

Greetz
alcaeus