gerar .txt

Delphi

30/10/2005

bom dia

tenho uma tabela e gostaria de quando um usuario clicar em um botão pegasse esta tabela e gerasse um arquivo .txt em uma pasta determinada com delimitador ,

agradecida
Dessa


Dessa

Dessa

Curtidas 0

Respostas

Firekiller

Firekiller

30/10/2005

function ExportaDataset( Arquivo, Delimitador:String ; Dataset:TDataset):Boolean;
var 
  F:TextFile;
  i:integer;
  D:String;
begin
  Result := True;
  try
    AssignFile( Arquivo , F );
    Rewrite(F);
  except
    Result := False;
  end;
  if not Result then 
    Exit;
  Dataset.Open;
  Dataset.First;
  while Not Dataset.Eof do begin
    D := ´´;
    For i := 0 to Dataset.FieldCount-1 do begin 
      if i = 0 then 
        writeLn(F,D)
      else
        write(F,D);
      Write(F,Dataset.Fields[i].AsString);
      D := Delimitador;
    end;
    Dataset.Next;
  end;
  CloseFile(F);
  Showmessage(´Arquivo exportado com sucesso!´);
end;


Utilize assim:

ExportaDataset( ´C:\Teste.Txt´, ´,´ , Query1 );

PS: Apenas lembrando, onde coloquei Query1 acima, pode ser qualquer tipo de dataset, ou seja, IBDataset, ADOQuery, Table, etc.


GOSTEI 0
POSTAR