Filename AutoInc name

[MSSSSM]

Hello,

Delphi-Quellcode:

var log,logs:Textfile;
lastincstr,s:string;
begin
  AssignFile(logs,ExtractFilePath(ParamStr(0))+'log.last');
  if (not FileExists(ExtractFilePath(ParamStr(0))+'log.last'))
  begin
    Rewrite(logs);
    Write(logs,'1');
    Reset(logs);
  end
  else ReSet(logs);
  Read(logs,lastincstr);
  s:=lastincstr;
  lastincstr:=FOrmat('%.6d',[strtointdef(lastincstr,1)]);
  AssignFile(log,ExtractFilePath(ParamStr(0))+lastincstr+'.log');
  //Write Log
  CloseFile(log);
  Rewrite(logs);
  Write(logs,inttostr(strtointdef(s,0)+1));
end;

untested.

Marius