Salvar em TXT

Question

Eu gostaria de saber como eu salvo o conte�do de um Edit normal, em um arquivo TXT. E como fasso para recuper�-los posteriormente!Se alguem puder ajudar, poste ae plixx!! :wink:...

Skywalker · Answer

Nao sei se e o certo mas e o que eu faria.
voce cria uma funcao como a abaixo:

procedure salva;
var
X: TMEMO;
begin
X.Create(Aower);
X.Clear;
X.Lines.Add(Edit1.Text);
X.Lines.Savefromfile(....);
X.Free;
end;

para recuperar e so voce pegar a funcao loadfromfile

Barbudo__ · Answer

Vlw kra!Mas, no kaso, o qq seria o Aower?...

Barbudo__ · Answer

Tah, tpw... agora ja mi tokei q vc eskrevedu erradu!eh Owner...mas tpw... nem funcionoDeu erro qdo eu fui test�...

Barbudo__ · Answer

Olha como q eu puiz:...

Barbudo__ · Answer

[quote=�Barbudo__�]Olha como q eu puiz:[code]procedure TForm1.BotaoClick(Sender: TObject);var  X: TMemo;begin  X.Create(Owner);  X.Clear;  X.Lines.Add(Edit.Text);  X.Lines.SaveToFile(�Teste.Txt�);  X.Free;end;...

Barbudo__ · Answer

Ae pessoal! Consegui fazer!+ nem era exatamente isso q eu kiria!Vou explicar aki:Digamo q eu tenha 2 Edits normais,kero salvar dentro de um arquivo TXT os dois.Na primeira linha do arquivo TXT kero q fike o valor do Edit1e na segunda linha quero q fike o valor do Edit2.intenderam? kem puder mi ajudar, agreadesso!Eh urgente! Vlw :wink:  :wink:  :wink:  :wink:  :wink:...

Aroldo Zanela · Answer

Colega,[code:1:66a31141ed]procedure TForm1.Button1Click(Sender: TObject);var Arquivo: TStringList;begin  Arquivo := TStringList.Create;  try    Arquivo.Add(Edit1.Text);    Arquivo.Add(Edit2.Text);    Arquivo.SaveToFile(�C:ARQUIVO.TXT�);  finally    Arquivo.Free;  end;end;[/code:1:66a31141ed]Vai gravar um arquivo com nome ARQUIVO.TXT no diret�rio raiz com o conteudo dos dois TEdits....

Barbudo__ · Answer

Blz kra! Funcion�!Agora, pra recuperar esses dados. Como eu fa�o?Por exemplo: Eu kero q a primeira linha dentro do TXT seja colocada no Edit 1 e a segunda no Edit 2.Poderia me dizer como?...

Barbudo__ · Answer

Ow... alguem ae mi ajuda!eh urgente issow!quem souber, plixx, responda o POST acima! :D...

Kiguti · Answer

Para fazer o inverso tente fa�a o seguinte:

procedure TForm1.Button1Click(Sender: TObject);
var Arquivo: TStringList;
begin
  Arquivo := TStringList.Create;
  try
    Arquivo.LoadFromFile(�C:\ARQUIVO.TXT�);
    Edit1.Text := Arquivo.Strings[0];
    Edit2.Text := Arquivo.Strings[1];
  finally
    Arquivo.Free;
  end;
end;

Espero ter ajudado!!!

Henry · Answer

Ae pessoal, entrando de penetra na discuss�o, eu uso dois componentes que me facilitam que � uma barbaridade, est�o na paleta dialog, � o savedialog e o opendialog o codigo dos botoes abrir e salvar fica assim:

- Abrir
if opendialog1.Execute then
edit1.text.loadFromFile(opendialog1.filename);

- Salvar
if savedialog1.Execute then
edit1.text.savetoFile(savedialog1.filename + �.txt�);

Espero ter ajudado, um abra�o ..............--*Henry*--.....................

F�rum Salvar em TXT #165116