read from multiple Files

[Muetze1]

Hi!

In your Load function, you create a new stringlist. Then you just add one filename to this stringlist. After this, you iterate through all items of the stringlist (everytime just one) and you are wondering why it is still just one entry?

Delphi-Quellcode:

Procedure Load(const AFilenames: TStrings);
var
  MS : TMemoryStream;
  FS : TFileStream;
  i:integer;
begin
  MS := TMemoryStream.Create;
  try
    For i:=0 to AFilenames.Count-1 do
    begin
      if FileExists(AFilenames[i]) then
      begin
        FS := TFileStream.Create(MyStringList[i], fmOpenRead or fmShareDenyNone);
        try
          MS.CopyFrom(FS, FS.Size);
        finally
          FS.Free;
        end;
      end;
  finally
      // All the MS contents will be saved to Res.txt as an example  
    MS.SaveToFile('Res.txt');
    MS.Free;
  end;
end;

Delphi-Quellcode:

// as an example how to use it  
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  {FilesList : is a TListBox 
   items[0]:=c:\001.txt
   items[1]:=c:\002.txt
   .
   .
   .
    }

  Load(FilesList.Items);
end;