Fórum Arquivo TXT e MEMO #203557

dbmemo.savetofile(´nome do arquivo.txt´); // salva pra TXT

dbmemo.loadfromfile(´nome do arquivo.txt´); //carrega de um TXT

precisar tou no mail abaixo (talvez até online).

Só complementando:





Claro, se o dataset estiver em modo de edição ou inserção. Não se esqueça o [i:b4b8321530]Post[/i:b4b8321530] depois.

oioi,
por favor verifique seu e-mail,
tentei responder mas não consigo.
Ah, para resolvermos mais rápido você poderia me encontrar no mensageiro MSN MESSENGER (delphibond@msn.com) ou no ICQ 267882479.

Valeu..
T+

Segue abaixo um exemplo simples de como fazer a conversão de arquivos .TXT para DB e DB para .TXT. Para jogar os valores para variáveis (como vc disse) é só substituir os campos das tabelas pela variável correspondente. (não usa o memo para conversão mas acho aque será útil)

Colar um componente Table e um DataSource ao seu Form;
&61680;Fazer as ligações normais do Table a tabela;
&61680;Duplo click sobre o componente Table;
&61680;Adicionar os campos a lista de Fields;
&61680;Colar um botão no Form;
&61680;No evento onClick do botão, digitar o seguinte:

Exemplo para fazer a conversão de arquivo .TXT para DB.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
TXT : TextFile;
Entrada: String;
Begin
AssignFile(TXT,Çliente.TXT’);

Reset(TXT);
While not Eoln(TXT) do
Begin
ReadLn(TXT,Entrada);
Table1.Insert;



Table1Codigo.Value:= Copy(Entrada,01,05);
Table1Nome.Value:= Copy(Entrada,06,50);
Table1.Post;
End;
CloseFile(TXT);
End;

Exemplo para fazer conversão de arquivo DB para TXT:

Procedure TForm1.BitBtn2Click(Sender: TObject);
var F: TextFile;
I: Integer;
Begin
AssignFile(F, ‘Cliente.TXT’);
Rewrite(F);
Table1.First;
While not Table1.Eof Do
Begin
Writein(F, Table1Codigo.Value + Table1Nome.Value);
Table1.Next;
End;
CloseFile(F);
End;

Segue abaixo um exemplo simples de como fazer a conversão de arquivos .TXT para DB e DB para .TXT. Para jogar os valores para variáveis (como vc disse) é só substituir os campos das tabelas pela variável correspondente. (não usa o memo para conversão mas acho aque será útil)

Colar um componente Table e um DataSource ao seu Form;
&61680;Fazer as ligações normais do Table a tabela;
&61680;Duplo click sobre o componente Table;
&61680;Adicionar os campos a lista de Fields;
&61680;Colar um botão no Form;
&61680;No evento onClick do botão, digitar o seguinte:

Exemplo para fazer a conversão de arquivo .TXT para DB.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
TXT : TextFile;
Entrada: String;
Begin
AssignFile(TXT,Çliente.TXT’);

Reset(TXT);
While not Eoln(TXT) do
Begin
ReadLn(TXT,Entrada);
Table1.Insert;



Table1Codigo.Value:= Copy(Entrada,01,05);
Table1Nome.Value:= Copy(Entrada,06,50);
Table1.Post;
End;
CloseFile(TXT);
End;

Exemplo para fazer conversão de arquivo DB para TXT:

Procedure TForm1.BitBtn2Click(Sender: TObject);
var F: TextFile;
I: Integer;
Begin
AssignFile(F, ‘Cliente.TXT’);
Rewrite(F);
Table1.First;
While not Table1.Eof Do
Begin
Writein(F, Table1Codigo.Value + Table1Nome.Value);
Table1.Next;
End;
CloseFile(F);
End;

Falow

T+