Ajuda : Salvando memoria ou salvando arquivo txt

Delphi

18/10/2009

Ola.

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

Thiago

Curtidas 0

Respostas

Afarias

Afarias

18/10/2009

guardar um valor inteiro em memória??

var
  i: Integer;



Pronto!


T+[/code]


GOSTEI 0
Thiago

Thiago

18/10/2009

nao expliquei direito, quando fechar o programa e abrir denovo ele tem ke jogar o valor guardado na memoria ou em um arquivo txt dentro de um inteiro.

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
Afarias

Afarias

18/10/2009

|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 .

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
Thiago

Thiago

18/10/2009

ok, consegui visualizar a solução porem sou iniciante no delphi, vc poderia me dar uma explicação melhor com as seguintes variaveis

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
Afarias

Afarias

18/10/2009

|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;

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
POSTAR