INI

31/03/2003

0

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


Anonymous

Anonymous

Responder

Posts

31/03/2003

Anonymous

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


Responder

31/03/2003

Anonymous

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


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar