Loadfile.. scan for block.. add to TStringlist

[mr2]

Zitat:

Delphi-Quellcode:

  filedata.Create;
  filedata.AddStrings(opendialog1.Files);

wird Dir um die Ohren fliegen. Probiers mal mit

Delphi-Quellcode:

  filedata := TStringList.Create;
  try
    filedata.LoadFromFile(opendialog1.FileName);
    while (Pos(':::Begin:::', filedata[0]) = 0)
      do filedata.Delete(0);
    while (Pos(':::End:::', filedata[Pred(filedata.Count)]) = 0)
      do filedata.Delete(Pred(filedata.Count));
    // eigentliche Verarbeitung der Daten (geht jetzt direkt in FileData - kopieren ist unnötig)
  finally
    FreeAndNil(filedata);
  end;

CU mr2