Welson, aqui está uma função q fiz, deverá resolver seu problema
function Acrescenta_Espaco_Texto(Texto: string; Tamanho: Integer): string;
var
Contador: Integer;
begin
for Contador := 1 to Tamanho do
Texto := Texto + ' ';
Acrescenta_Espaco_Texto := Copy(Texto, 1, Tamanho);
end;
é só passar os parametros: texto -> é o texto e tamanho é a quantidade de
espaço q vc quer adicinar a variavel texto.
----- Original Message -----
From: Welson Avelar
To: Delphi-BR
Sent: Wednesday, November 30, 2005 10:53 PM
Subject: [delphi-br] Funcao para escrever espaco - Duvida
Salve amigos da lista. Tudo na boa ?!
Eu tou bem... espero que vocês também estejam.
Bom, a minha dúvida é a seguinte:
Preciso exportar um banco de dados em formato TXT.
Acontece que tenho que alinhar as colunas dos campos
da tabelas quando mandar pro arquivo, sacam ??
Exemplo:
NOME ENDERECO (...)
Welson Rua G (...)
Tenho que fazer no esquema que mostrei aí em cima. Mas
precisaria de uma função pra escrever esses espaços.
Algo como "PreencheEspaco(5)". Aí ele escreveria 5
espaços em branco.
Coloquei esse nome (PreencheEspaco) apenas pra
simbolizar. Quero saber se no Delphi tem alguma função
pra isso. Tirar espaço ele tira, mas e escrever ??
Um forte abraço à todos da lista. Até a vista.
=================================
"Nunca ande pelo caminho traçado, pois ele conduz somente até onde os outros
já foram."
Alexander Graham Bell
=================================
Welson de Avelar Soares Filho
Juiz de Fora - Minas Gerais
=================================
_______________________________________________________
Yahoo! doce lar. Faça do Yahoo! sua homepage.
http://br.yahoo.com/homepageset.html
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[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
