Loadfile.. scan for block.. add to TStringlist

[mr2]

Hallo,

also erstmal solltest Du Objektinstanzen immer mit T<irgendwas>.Create erzeugen:

  filedata := TStringList.Create; Der Rest sollte so funktionieren:

Delphi-Quellcode:

  datacontent := nil;
  filedata := nil;
  try 
    datacontent := TStringList.Create;
    filedata := TStringList.Create;
    filedata.LoadFromFile(opendialog1.FileName); 
    repeat
      i := 0;
      while (Pos(':::Begin:::', filedata[i]) = 0) and (i <= Pred(filedata.Count))
        do Inc(i);
      Inc(i);
      while (Pos(':::End:::', filedata[i]) = 0)  and (i <= Pred(filedata.Count)) do begin
        datacontent.Add(filedata[i]);
        Inc(i);
      end;
    until (i >= Pred(filedata.Count));
    // eigentliche Verarbeitung der Daten
  finally 
    FreeAndNil(filedata); 
    FreeAndNil(datacontent);
  end;

CU mr2