Como fazer um LOAD?

07/11/2005

Acho que minha pergunta eh bem simples
Vou explicar pq eu gostaria

Quero grava em um arquivo (.qq coisa) um caption por exemplo e depois ultilizar esse mesmo arquivo pra fazer um load e o q estava armazenado no aquivo apareça no mesmo caption.
Alguem pode me ajudar?

Obrigado


Fabola

Respostas

07/11/2005

Fx|hand

Eu uso o Delphi 7 !!! procura pela Unit INIFILES... ele dah suporte pra criar e carregar arquivos do tipo ini... (axo q vc ker fazer um arquivo de configurações neh ???) issu funciona bem comigo !


Responder Citar

07/11/2005

Fabola

Humm.. Valew pela dica
Mais vc pode me mostrar algum exemplo?


Responder Citar

07/11/2005

Dart

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;


Responder Citar