Fórum Arquivos TXT #375175

procedure TForm1.Button1Click(Sender: TObject);
var
  TXT: TStrings;
begin
  TXT := TStringList.Create;
  try

    // abre a query e se posiciona no primeiro registro
    ClientDataSet1.Open;
    ClientDataSet1.First;

    // faz um loop para percorrer todos os registros
    while not ClientDataSet1.Eof do
    begin
      // faz alguma coisa ...

      // escreve o arquivo texto, ex....
      TXT.Append(
        ClientDataSet1.FieldByName(´CODIGO´).AsString+´;´+
        ClientDataSet1.FieldByName(´NOME´  ).AsString
      );

      ClientDataSet1.Next;
    end;

    // Salva o arquivo texto
    TXT.SaveToFile(´c:\Exemplo.txt´);

  finally
    FreeAndNil(TXT);
  end;
end;

var
  MyStList: TStringList;
begin
  MyStList := TStringList.Create;
  MyStList.Add(´MARCOS    25    PROGRAMADOR´);
  MyStList.Add(´DEVMAN          WEBMASTER´);
  MyStList.SaveToFile(´C:\temp\Espacos.txt´);
  MyStList.Clear;
  MyStList.Add(´MARCOS;25;PROGRAMADOR´);
  MyStList.Add(´DEVMAN;;WEBMASTER´);
  MyStList.SaveToFile(´C:\temp\Pontoevirgula.txt´);
  FreeAndNil(MyStList);
end;

// Código de Fabiano Góes
procedure TForm1.Button1Click(Sender: TObject); 
var 
  TXT: TStrings; 
begin 
  TXT := TStringList.Create; 
  try 

    // abre a query e se posiciona no primeiro registro 
    Query1.Open; 
    Query1.First; 

    // faz um loop para percorrer todos os registros 
    while not Query1.Eof do 
    begin 
      // faz alguma coisa ... 

      // escreve o arquivo texto, ex.... 
      TXT.Append( 
        Query1.FieldByName(´CODIGO´).AsString+´;´+ 
        Query1.FieldByName(´NOME´  ).AsString 
      ); 

      Query1.Next; 
    end; 

    // Salva o arquivo texto 
    TXT.SaveToFile(´c:\Exemplo.txt´); 

  finally 
    FreeAndNil(TXT); 
  end; 
end;