Eu fiz essa, ve se te serve.
function StrBranco(Went: String; Wtam: SmallInt; Onde: SmallInt): String;
// Coloca brancos em um string na frente (1) ou atras (2)
var
I: SmallInt;
X: String;
K: SmallInt;
begin
X := '';
if Onde = 1 then begin
for I := 1 to Wtam do
if Length(Went) >= I then
X := (X + Copy(Went, I, 1))
else
X := (X + ' '); end
else begin
K := Length(Trim(Went));
for I := 1 to (Wtam - K) do
X := (X + ' ');
X := (X + Trim(Went)); end;
Result := X;
end;
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de welson_avelar
Enviada em: sexta-feira, 2 de dezembro de 2005 20:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Funcao para escrever espaco - Duvida
--- Em delphi-br@yahoogrupos.com.br, Welson Avelar escreveu
> 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.
>
[Welson] Olá amigos. Volto novamente aqui.
Vim pra agradecer à ajuda oferecida pelos amigos. Obrigado.
Quebraram-me um galhão... de verdade !!!
Um abraço à todos da lista. Até...
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< 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
