Salvando o ultimo valor de um Edit

[Arrais Júnior]

é uma duvida simples só que eu não consigo achar como fazer, geralmente eu criava um banco de dados simples só para fazer isto (ignorancia... =D) , porém, descobri que tem como salvar a ultima informação do Edit...

alguém me mostra um exemplo?

tks!

[flavioavilela]

como assim? o usuário digita algo e salva?? só??

cria um arquivo texto pra guardar isso...

[Arrais Júnior]

é....pode ser, mais como fazer isso é que eu não sei...

me falaram também que poderia ser atribuindo uma variavel e colocando em um botao m cod pra salvar e alterar o text do edit, porém, também não sei como fazer.

se alguém souber alguma forma e puder dar um exemplo....

obg.

[Jhonas]

exemplo:

procedure TForm1.Button1Click(Sender: TObject);
var Line : string; num : integer; Arquivo : TextFile;
begin
   // LER O CONTEUDO DO ARQUIVO DADOS.TXT
   num := 0;
   AssignFile(Arquivo, 'C:\DADOS.txt');
   Reset(Arquivo);
   while not EOF(Arquivo) do
      begin
         num := num + 1;
         Readln(Arquivo, Line);
         if num = 1 then
            edit1.Text := Line;
      end;
   CloseFile(Arquivo);
end;

procedure TForm1.Button2Click(Sender: TObject);
var Line : string; Arquivo : TextFile;
begin
   // SALVAR O CONTEUDO DO EDIT1 NO ARQUIVO DADOS.TXT
   Line := Edit1.Text;
   AssignFile(Arquivo, 'C:\DADOS.txt');
   Rewrite(Arquivo);
   Writeln(Arquivo, Line);
   CloseFile(Arquivo);

   showmessage('Conteudo do Edit1 foi salvo!');
   Edit1.Clear;
end;

abraço

[Arrais Júnior]

vlws jhonas...

aproveitando o tópico...

alguém pode me dar uma luz de como eu posso fazer tipo um maskedit neste formato: primeiro (01), dois (02), três (03).........e trinta e um (31)...sendo que eles vão corresponder ao dia do mês...

exemplo...eu abro o programa e nesse Edit ou MaskEdit apareça automaticamente o dia do mês nesse formato ai que falei...

uma luz jhonas =D

vlws..

[flavioavilela]

para colocar a data no maskedit, faz assim:

MaskEdit1.Text:= DateToStr(date);

para colocar a mascara no formato de data "DD/MM/AAAA", faz assim '!99/99/9999;1;_'... onde esse 1 no final, indica se você quer gravar o formato também junto no seu banco de dados... '01/01/2011'... se for 0, ele salva só os números da data '01012011'...

espero ter ajudado...

[Arrais Júnior]

flavio...vlws ai...mais eu teria que ter esse formato SEIS (06)...necessariamente o formato NUMERO POR EXTENSO (NUMERO)..

mais vlws a dica ai.. =D

[flavioavilela]

então, ao invés de colocar essa data num maskedit, coloca num label, por exemplo, fazendo assim:

Label1.Caption:= FormatDatetime('dddd , dd " de " mmmm" de "yyyy',Date);

ve se fica do seu gosto...

espero ter ajudado...

caso a dica acima não servir, siga esse link abaixo e faça uma função que retorna a data por extenso...

http://www.planetadelphi.com.br/dica/6111/...ano-por-extenso

[Arrais Júnior]

a respeito de salvar os dados do edit no txt...

deu certo ...tudo beleza...

porém, preciso implementar isso em um memo também....ok..tudo certo...o problema é que ele só salva e faz a leitura da primeira linha...

var Line : string; num : integer; Arquivo : TextFile;
begin
   // LER O CONTEUDO DO ARQUIVO DADOS.TXT
   num := 0;
   AssignFile(Arquivo, 'DADOS\CABECALHO.txt');
   Reset(Arquivo);
   while not EOF(Arquivo) do
      begin
         num := num + 1;
         Readln(Arquivo, Line);
         if num = 1 then
            Memo1.Text := Line;
      end;
   CloseFile(Arquivo);
end;

sabe como fazer para que ele salve e leia toda as linhas?

[flavioavilela]

você pode usar a mesma lógica, só que você deverá agora, não percorrer todo o arquivo texto e sim, o conteúdo do memo... tenta fazer assim:

var

x: integer;

begin

for x := 0 to Memo1.Lines.count - 1 do

begin

VariavelTexto:= Memo1.Text;

//faça outros tratamentos que desejar... isso tudo linha a linha do memo

end;

end;

[Jhonas]

exemplo com Memo

procedure TForm1.Button1Click(Sender: TObject);
var Line : string; Arquivo : TextFile;
begin
   // LER O CONTEUDO DO ARQUIVO DADOS.TXT
   AssignFile(Arquivo, 'C:\DADOS.txt');
   Reset(Arquivo);
   while not EOF(Arquivo) do
      begin
         Readln(Arquivo, Line);
         Memo1.Lines.Append(Line);
      end;
   CloseFile(Arquivo);
end;

procedure TForm1.Button2Click(Sender: TObject);
var Line : string; Arquivo : TextFile;
begin
   // SALVAR O CONTEUDO DO MEMO1 NO ARQUIVO DADOS.TXT
   Line := Memo1.Lines.Text;
   AssignFile(Arquivo, 'C:\DADOS.txt');
   Rewrite(Arquivo);
   Writeln(Arquivo, Line);
   CloseFile(Arquivo);

   showmessage('Conteudo do Memo1 foi salvo!');
   Memo1.Clear;
end;

abraço

[Arrais Júnior]

jhonas....muito obrigado mesmo...eu procurei saber como fazia mais não tava conseguindo...vlws

uma dúvida...tou usando isso para salvar

SaveDialog1.InitialDir := 'salvos';
if SaveDialog1.Execute then
richedit1.Lines.SavetoFile(Edit2.Text + ' - ' + Edit8.Text);

só que abre a caixa de diálogo perguntando o nome e tals...ai eu tenho que por um nome....acaba que saindo do padrão...

não tem como eu apenas apertar no botão e salvar sem perguntar nada...sem perguntar a pasta...sem perguntar mais nomes....etc...???

[Jhonas]

supondo que no Edit2 esteja o caminho para a pasta ... exemplo: 'C:\Dados\'

e o Edit8 esteja o nome do arquivo .... exemplo: 'Cabecalho.txt'

ficaria assim

procedure TForm1.Button1Click(Sender: TObject);
begin
   richedit1.Lines.SavetoFile(Edit2.Text + Edit8.Text);  // 'C:\Dados\Cabecalho.txt'
end;

este comando salvaria o arquivo Cabecalho.txt no drive C: na pasta Dados com o conteudo do RichEdit

abraço

[Arrais Júnior]

mais uma vez, obrigado jhonas....sempre de pronto para atender os noobs do delphi... =D

obrigadao..

ficou assim o meu:

richedit1.Lines.SavetoFile('salvos\' + LABEL20.Caption + ' - ' + Edit8.Text + ' - ' + StringReplace(DateToStr(Date), '/', '.', [rfReplaceAll]) + '.doc');

mais um coisinha que não estava prevista....

tipo..eu tenho um texto padrão em um richedit que é montado atraves de substituições...exemplo

[[RICHEDIT]]

CABEÇALHO*

TEXTO*

ASSINATURAS*

sendo que o nome CABEÇALHO* é subistituido pelo o que for digitado em um memo1

a palavra TEXTO é substituida pelo o que for digitado em um memo2

a palavra assinatura é substituida pelo o que foi digitado em um richedit2

...ao problema...o método de substituião tah legal..ta tudo beleza, só que eu queria DELETAR todas as linhas em branco que ficam no final do texto do memo1, memo2 e richedit2...porque se não fica uma distancia muito grande entre o CABEÇALHO*, TEXTO* e ASSINATURAS*

não sei se ficou dificil de entender o que eu tou querendo dizer....caso tenha ficado complicado...eu explico mais detalhadamente e posto fotos...

simplificando...eu queria um cod que deletasse toda linha vazia no final do texto...

Editado Janeiro 23, 2011 por Arrais Júnior

[Jhonas]

veja no help do delphi o comando TRIM

abraço

[Arrais Júnior]

vlws mais uma vez jhonas...estou usando

Memo1.Lines.Text := Trim(Memo1.Lines.Text);

vlws!