Salvar em TXT

Delphi

06/06/2003

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:


Barbudo__

Barbudo__

Curtidas 0

Respostas

Skywalker

Skywalker

06/06/2003

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


GOSTEI 0
Barbudo__

Barbudo__

06/06/2003

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


GOSTEI 0
Barbudo__

Barbudo__

06/06/2003

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


GOSTEI 0
Barbudo__

Barbudo__

06/06/2003

Olha como q eu puiz:
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;



GOSTEI 0
Barbudo__

Barbudo__

06/06/2003

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


GOSTEI 0
Barbudo__

Barbudo__

06/06/2003

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 Edit1
e na segunda linha quero q fike o valor do Edit2.


intenderam? kem puder mi ajudar, agreadesso!
Eh urgente! Vlw

:wink: :wink: :wink: :wink: :wink:


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

06/06/2003

Colega,

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;


Vai gravar um arquivo com nome ARQUIVO.TXT no diretório raiz com o conteudo dos dois TEdits.


GOSTEI 0
Barbudo__

Barbudo__

06/06/2003

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?


GOSTEI 0
Barbudo__

Barbudo__

06/06/2003

Ow... alguem ae mi ajuda!
eh urgente issow!

quem souber, plixx, responda o POST acima!

:D


GOSTEI 0
Kiguti

Kiguti

06/06/2003

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


GOSTEI 0
Henry

Henry

06/06/2003

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


GOSTEI 0
POSTAR