Fórum arquivo ini parte 2 #150664

ola
estou usando essas duas procedures para gravar e ler um arquivo ini
Procedure TFrentecaixa.GravaIni( codigo : Longint);
var
ArqIni : TIniFile;
begin
ArqIni := TIniFile.Create(´c:\windows\temp\GVKCMS.Ini´);
Try
ArqIni.WriteInteger(´Dados do operador´, ´codigo´, codigo);
Finally
ArqIni.Free;
end;
end;

Procedure TFrentecaixa.LeIni(Numero : Longint);
var
ArqIni : tIniFile;
begin
ArqIni := tIniFile.Create(´c:\windows\temp\GVKCMS.Ini´);
Try
Numero := ArqIni.ReadInteger(´Dados do operador´, ´codigo´, 0);
Finally
ArqIni.Free;
end;
end;


só q na hora de ler eu uso assim

LeIni(N);
DM.ibnotaCODVEND.AsInteger:=N;

Mas o N ta dando numero sorteado, as vezes 20, as vezes 9...ai vai

Alguém sabe o q houve??

valeu