Mehrere Textdateien aus Opendialog heraus ausführen

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, illbytes.

Wenn du ein Schleifenproblem haben möchtest, dann musst du eher so an die Sache rangehen:

Delphi-Quellcode:

var
  s: TStrings;
  i: Integer;
begin
  with OpenDialog do
    if Execute then
    begin
      s := TStringList.Create;
      Memo.Clear;
      try
        for i := 0 to Pred(Files.Count) do
        begin
          s.LoadFromFile(Files[i]);
          Memo.Lines.AddStrings(s);
        end;
      finally
        s.Free;
      end;
   end;
end;

Freundliche Grüße vom marabu