Quantidade de abertura do form em ini

[webrodex 0]

Como fazer o seguinte cada vez que a pessoa abrir o form tera um arquivo chamado conta.ini ai quando a pessoa sai do form ele coloca o numero que foi aberto ele vai somando tipo 1 , 2 , 3 , 4 etc..ai dentro do form vem uma label que fala assim Você ja utilizou esse programa 4 veses tipo isso ! como faço isso ?

[marcio.theis 3]

Faz a criação do arquivo texto, e no evento OnCreate do form, você lê o valor que possui e então acrescenta mais um na contagem, no caso você vai guardar como dentro do arquivo, o nome do form ou um número para representar ele ?

[webrodex 0]

O numero como faço ?

[marcio.theis 3]

Não entendi esta sua última pergunta, o que seria "O numero como faço ?", no caso se referir ao número que disse que representa o form, seria tipo você colocar algo dizendo que o número corresponde ao Form1, o número 2 ao Form2, e assim por diante...

[webrodex 0]

caso você vai guardar como dentro do arquivo, o nome do form ou um número para representar ele ?

 

Quiz dizer que vou guardar como um numero

[marcio.theis 3]

Criei algo, mas no caso terá de mudar de acordo com as suas necessidades:

 

Declare no uses do form o seguinte: IniFiles

 

Declare no Public o seguinte:

 

function ControleNumVezesFormAberto(codForm: integer): integer;

Função:

 

function TForm1.ControleNumVezesFormAberto(codForm: integer): integer;var	controle: TIniFile;	ret: integer;beginret:=0;controle:=TIniFile.Create(ExtractFilePath(Application.ExeName) + '\ControleNumVezesFormAberto.Ini');ret:=controle.ReadInteger('Form',IntToStr(codForm),ret);Inc(ret);controle.WriteInteger('Form',IntToStr(codForm),ret);controle.Free;ControleNumVezesFormAberto:=ret;end;

Para chamar, pode ser pelo evento OnCreate do seu form:

 

procedure TForm1.FormCreate(Sender: TObject);beginLabel1.Caption:='Este Form já foi aberto ' + IntToStr(ControleNumVezesFormAberto(1)) + ' vezes.';end;

No caso somente muda o n° que é passado entre os parenteses, no caso você definira qual irá representar cada form.