Fórum Ajuda : Salvando memoria ou salvando arquivo txt #376108
18/10/2009
0
Estou com o seguinte problema, no meio do programa eu tenho que salvar um valor de um contador do tipo inteiro dentro de um arquivo txt ou na memoria porem nao sei qual é o metodo mais facil. (obs: na memoria eu nao tenho a minima ideia de como fazer)
depois no form create eu tenho ke fazer algumas verificacoes ex:
if abobora = true then
ae aki eu tenho ke pegar akele valor da memoria ou do arquivo txt e jogar ele dentro de um outro contador do tipo inteiro.
com isso o programa ja vai rodar certinho.
Se algum puder me ajudar estou no aguardo.
Thiago
Curtir tópico
+ 0Posts
18/10/2009
Afarias
var i: Integer;
Pronto!
T+[/code]
Gostei + 0
18/10/2009
Thiago
vou explicar novamente pra nao haver duvidas.
eu tenho um prog ae no meio da execucao do programa eu tenho uma variavel inteiro recebendo um valor esse valor tem ke ser salvo na memoria ou em um arquivo txt pra quando fechar o programa e abrir denovo ele saiba qual eh esse numero .
Continuo no Aguardo.
Gostei + 0
18/10/2009
Afarias
|variavel inteiro recebendo um valor esse valor tem ke ser salvo na memoria
|ou em um arquivo txt pra quando fechar o programa e abrir denovo ele
|saiba qual eh esse numero .
Ok, vc precisa ´persistir´ o valor em disco para que possa ser lido novamente em outro momento. Neste caso vc tem muitas opções, umas bem simples com usar um IniFile ou o Registro do windows.
ex:
uses
IniFiles;
procedure LerValores;
begin
with TIniFile.Create(ChangeFileExt(ParamStr(0), ´.INI´)) do
try
VariavelInteger := ReadInteger(´SEÇÃO´, ´VALOR´, 0);
{ ...ler outros valores... }
finally
Free;
end;
end;
procedure SalvarValores;
begin
with TIniFile.Create(ChangeFileExt(ParamStr(0), ´.INI´)) do
try
WriteInteger(´SEÇÃO´, ´VALOR´, VariavelInteger);
{ ...escrever outros valores... }
finally
Free;
end;
end;
T+
Gostei + 0
18/10/2009
Thiago
var
contadia : integer;
contadia1 : integer;
chega no meio do programa eu tenho ke salvar o valor de contadia usando o procedimento salvarvalores
ae eu fecho o programa
quando eu abrir o prog denovo, dentro do form create ele faz uma verificacao pra ver em qual mes estamos se for o mes correto ele faz isso:
ele usa o procedimento lervalores
com isso pega o conteudo armazenado dentro de um arquivo temporario
e ae joga dentro da variavel contadia1: integer;
supondo ke quando foi salvo foi o valor 6
como eu monto os 2 procedimentos aki pra funcionar como eu disse.
Gostei + 0
18/10/2009
Afarias
|verificacao pra ver em qual mes estamos se for o mes correto ele faz isso:
|ele usa o procedimento lervalores
|com isso pega o conteudo armazenado dentro de um arquivo temporario
|e ae joga dentro da variavel contadia1: integer;
vc já tem o algoritmo em mente, é só colocar no código. pelo q estou entendendo seria algo como:
procedure TForm1.FormCreate(Sender: TObject);
begin
if {verifica se o é o mês correto} then
begin
LerValores; // le o valor do arquivo para ContaDia (estou supondo)
ContaDia1 := ContaDia; // copia o valor de ContaDia para ContaDia1
end;
end;
T+
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)