Como fazer um LOAD?
07/11/2005
0
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
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
Curtir tópico
+ 0
Responder
Posts
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
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;
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
Clique aqui para fazer login e interagir na Comunidade :)