W/R Arquivo INI

Delphi

26/01/2004

oi eu gostaria de fazer o seguinte:
fazer uma entrada em um form com senha, mas essa senha seria registrada em arquivo ini, pelo primeira vez..aí na segunda vez ele iria ler automaticamente a primeira linha desse arquivo e validar, se for verdadeiro entra, se não encerra o programa, como faço isso?

valeu!!!


Luiz_aquino

Luiz_aquino

Curtidas 0

Respostas

Caninha51

Caninha51

26/01/2004

Como manipular arquivos INI

Inclua a unit IniFiles na clausula uses do seu form.

Procedure TForm1.GravaIni( Numero : Longint ; Texto : String ; Condicao : Boolean);
var
ArqIni : TIniFile;
begin
ArqIni := TIniFile.Create(´c:\windows\temp\Teste.Ini´);
Try
ArqIni.WriteInteger(´Dados´, ´Numero´, Numero);
ArqIni.WriteString(´Dados´, ´Texto´, Texto);
ArqIni.WriteBool(´Dados´, ´Condição´, Condicao);
Finally
ArqIni.Free;
end;
end;

Procedure TForm1.LeIni( Var Numero : Longint ; Var Texto : String ; Var Condicao : Boolean);
var
ArqIni : tIniFile;
begin
ArqIni := tIniFile.Create(´c:\windows\temp\Teste.Ini´);
Try
Numero := ArqIni.ReadInteger(´Dados´, ´Numero´, Numero );
Texto := ArqIni.ReadString(´Dados´, ´Texto´, Texto );
Condicao := ArqIni.ReadBool(´Dados´, ´Condição´, Condicao );
Finally
ArqIni.Free;
end;
end;

Utilize as procedures assim:


procedure TForm1.Button1Click(Sender: TObject);
begin
GravaIni(1234,´TESTE´,True);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
N: Integer;
T: String;
C: Boolean;
begin
LeIni(N,T,C);
Showmessage(IntToStr(N)+´ ´+T);
end;

**Dica extraída do ´800 Dicas Delphi´

Espero q te ajude

Falow

Caninha51


GOSTEI 0
POSTAR