Pesquise na internet por writeln.
Este exemplo foi extraído do seguinte endereço:
http://www.delphibasics.co.uk/RTL.asp?Name=WriteLn
var
myFile : TextFile;
text : string;
begin
// Try to open the Test.txt file for writing to
AssignFile(myFile, 'Test.txt');
ReWrite(myFile);
// Write a couple of well known words to this file
WriteLn(myFile, 'Hello World');
// Write a blank line
WriteLn(myFile);
// Write a string and a number to the file
WriteLn(myFile, '22/7 = ' , 22/7);
// Repeat the above, but with number formatting
WriteLn(myFile, '22/7 = ' , 22/7:12:6);
// Close the file
CloseFile(myFile);
// Reopen the file for reading
Reset(myFile);
// Display the file contents
while not Eof(myFile) do
begin
ReadLn(myFile, text);
ShowMessage(text);
end;
// Close the file for the last time
CloseFile(myFile);
end;
Dir escreveu:
>
>Pessoal preciso exportar dados de uma consulta(consulta esta pronta) para um
>arquivo .txt, mas como nunca fiz isso, alguém poderia me dar uma dica.
>
>Cadanos
>
>[As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
