.log Dateien verwenden

[ichbins]

Geh einfach jede Zeile durch:

Delphi-Quellcode:

var
  s:stringlist;
  i,j:integer;
  rest:string;
  klammerauf:boolean;
  result:string;
  results:tstringlist;
begin
  s.loadfromfile(FILENAME);
  result:=tstringlist.create;
  for i:=0 to s.count-1 do begin
    if copy(s.strings[i],1,length('(userHandling) userHandlingImpl.java ')) = '(userHandling) userHandlingImpl.java ' then begin
      result:='';
      rest:=copy(s.strings[i],length('(userHandling) userHandlingImpl.java '),length(s.strings[i]);
      klammerauf:=false;
      for j:=1 to length(rest) do begin
        case rest[j] of 
          '(': klammerauf:=true;
          ')': klammerauf:=false;
        end else
          if klammerauf then result:=result+rest[j]; 
      end; 
      results.add(result); 
    end;
  end;
end;