Contador (Resolvido)

[Vivendo&Aprendendo]

Como fazer um contador para que grave em um arquivo txt o número de vezes que minha aplicação já foi executada...

Toda vez que executar ele acrescenta mais 1 no número que estará no txt

Fiz um aqui mas ele ta gravando um número que não tem nada a ver.

falou

Alexandre

[Kikonanet]

Olá,

Quando sua aplicação for aberta, você lê o txt e em seguida incrementa um e salva no arquivo.

Testa ai,

var F: TextFile;
      Aux:string; 
      k:integer; // Variavel para contar

begin
  AssignFile(F,'c:\arquivo.txt');
  Reset(F);
  Readln(F,Aux);
  CloseFile(F);
  k:=StrToInt(Aux)+1;
  Aux:=IntToStr(k);
  AssignFile(F,'C:\arquivo.txt');
  Rewrite(F);
  Writeln(F,Aux);
  CloseFile(F);
end;

Obs: fiz sem testar

Abs.

Kiko

[Progr'amador]

Olá,

você poderia usar arquivo INI tambem.

Ficaria assim:

no uses: inifiles;

procedure TForm1.FormCreate(Sender: TObject);

var

  ContIni: TIniFile;

  i : integer;

begin

  ContIni := TIniFile.Create(ExtractFilePath(ParamStr(0))+'ContIni.ini');

  i := StrToInt(ContIni.ReadString('CONT', 'Contador', '0'));

  ContIni.WriteString('CONT', 'Contador', IntToStr(i+1));

  ContIni.Free;

end;

Abs. Progr'amador.

[Vivendo&Aprendendo]

vlw s3c deu certiho

falou

Alexandre

[Progr'amador]

vlw s3c deu certiho

ops!, S3c !?!?!?

rsrsrsrs. D

[Vivendo&Aprendendo]

Foi mal Progr'amador o mérito é todo seu e não s3c eu confundi os nomes

me desculpa pela falha... rsrsrsrs

falou

Alexandre

[Progr'amador]

Foi mal Progr'amador o mérito é todo seu  e não s3c eu confundi os nomes

Não é por méritos!

o Kikonanet tambem colaborou

só achei engraçado!

Fechado.