INI
bom dia, preciso fazer um arquivo ini q guarde apenas o campo CODIGO e saber como vou ler esse valor depois ... fiz assimProcedure
procedure TFrentecaixa.GravaIni( codigo : Longint);
var
ArqIni : TIniFile;
begin
ArqIni := TIniFile.Create(´c:\windows\temp\GVKCMS.Ini´);
Try
ArqIni.WriteInteger(´Dados´, codigo, codigo);
Finally
ArqIni.Free;
end;
end;
Procedure TFrentecaixa.LeIni( Var Numero : Longint);
var
ArqIni : tIniFile;
begin
ArqIni := tIniFile.Create(´c:\windows\temp\GVKCMS.Ini´);
Try
Numero := ArqIni.ReadInteger(´Dados´, ´codigo´, codigo );
Finally
ArqIni.Free;
end;
Ma ta com erro na hora de ler ...alguém pode me ajudar?
vaklew
procedure TFrentecaixa.GravaIni( codigo : Longint);
var
ArqIni : TIniFile;
begin
ArqIni := TIniFile.Create(´c:\windows\temp\GVKCMS.Ini´);
Try
ArqIni.WriteInteger(´Dados´, codigo, codigo);
Finally
ArqIni.Free;
end;
end;
Procedure TFrentecaixa.LeIni( Var Numero : Longint);
var
ArqIni : tIniFile;
begin
ArqIni := tIniFile.Create(´c:\windows\temp\GVKCMS.Ini´);
Try
Numero := ArqIni.ReadInteger(´Dados´, ´codigo´, codigo );
Finally
ArqIni.Free;
end;
Ma ta com erro na hora de ler ...alguém pode me ajudar?
vaklew
Anonymous
Curtidas 0
Respostas
Anonymous
31/03/2003
Caro amigo!
Dê uma olha na Ajuda do Delphi que talvez lá informe bem melhor!
Mas eu acho que o erro está nos parâmetros informados, Exemplo:
procedure TFrentecaixa.GravaIni( codigo : Longint);
var
ArqIni : TIniFile;
begin
ArqIni := TIniFile.Create(´c:\windows\temp\GVKCMS.Ini´);
Try
ArqIni.WriteInteger(´Dados´, ´codigo´, codigo); //exatamente assim
Finally
ArqIni.Free;
end;
end;
Procedure TFrentecaixa.LeIni( Var Numero : Longint);
var
ArqIni : tIniFile;
begin
ArqIni := tIniFile.Create(´c:\windows\temp\GVKCMS.Ini´);
Try
Numero := ArqIni.ReadInteger(´Dados´, ´codigo´,0); // você não pode informar codigo, pois ele está lendo.
Finally
ArqIni.Free;
end;
espero ter ajudado!
salomaosoares@bol.com.br
Dê uma olha na Ajuda do Delphi que talvez lá informe bem melhor!
Mas eu acho que o erro está nos parâmetros informados, Exemplo:
procedure TFrentecaixa.GravaIni( codigo : Longint);
var
ArqIni : TIniFile;
begin
ArqIni := TIniFile.Create(´c:\windows\temp\GVKCMS.Ini´);
Try
ArqIni.WriteInteger(´Dados´, ´codigo´, codigo); //exatamente assim
Finally
ArqIni.Free;
end;
end;
Procedure TFrentecaixa.LeIni( Var Numero : Longint);
var
ArqIni : tIniFile;
begin
ArqIni := tIniFile.Create(´c:\windows\temp\GVKCMS.Ini´);
Try
Numero := ArqIni.ReadInteger(´Dados´, ´codigo´,0); // você não pode informar codigo, pois ele está lendo.
Finally
ArqIni.Free;
end;
espero ter ajudado!
salomaosoares@bol.com.br
GOSTEI 0
Anonymous
31/03/2003
ArqINI.ReadString(´AAA´,´BBB´,´CCC´);
Onde :
AAA=Nome da Chave q sera lida
Ex: CONFIGURACAO
BBB=Nome da Sub-Chave que sera Lida
Ex:PORTA COM
CCC=Valor padrao (Se a Chave nao tiver valor ou a Chave nao existir ira retornar este valor.)
Assim sendo no exemplo
[CONFIGURACAO]
PORTA COM=2
ArqINI.ReadString(´CONFIGURACAO´,´PORTA COM´,´ERRO´) ira retornar o a String 2.
E se a chave nao tiver valor ou nao existir ira retornar a String ERRO.
Um Abraço
Werlon Goulart
Onde :
AAA=Nome da Chave q sera lida
Ex: CONFIGURACAO
BBB=Nome da Sub-Chave que sera Lida
Ex:PORTA COM
CCC=Valor padrao (Se a Chave nao tiver valor ou a Chave nao existir ira retornar este valor.)
Assim sendo no exemplo
[CONFIGURACAO]
PORTA COM=2
ArqINI.ReadString(´CONFIGURACAO´,´PORTA COM´,´ERRO´) ira retornar o a String 2.
E se a chave nao tiver valor ou nao existir ira retornar a String ERRO.
Um Abraço
Werlon Goulart
GOSTEI 0