Fórum Como Alinhar ou Colunar? #260040
25/11/2004
0
while not Eof do
begin
sLinha := ´ ´ + Copy(FieldbyName(´REG_TITULAR´).AsString,1,9);
sLinha := sLinha + ´ ´ + Copy(FieldbyName(´REG_DATA´).AsString,1,10);
sLinha := sLinha + ´ ´ + Copy(FieldbyName(´REG_NOME´).AsString,1,50);
StringList.Add(sLinha);
Next;
end;
Sem mais...
Wgm8
Curtir tópico
+ 0Posts
25/11/2004
Gandalf.nho
Gostei + 0
25/11/2004
Wgm8
Vc conhece uma maneira pra acertar isso?
Gostei + 0
25/11/2004
Weber
while not Eof do begin sLinha := ´ ´ + Copy(FieldbyName(´REG_TITULAR´).AsString,1,9); sLinha := sLinha + ´ ´ + Copy(FieldbyName(´REG_DATA´).AsString,1,10); sLinha := sLinha + ´ ´ + Copy(FieldbyName(´REG_NOME´).AsString,1,50); StringList.Add(sLinha); Next; end;
Colocando os espaços em branco deve resolver.
Só uma coisa, o COPY não adiciona os espaços em branco ele apenas pega até 50 caracteres por exemplo. Se for colocar espaços em branco que você quer então você terá que criar uma função para adicionar os espaços que você precisa.
Gostei + 0
26/11/2004
Paulo_amorim
Se o que se quer eh preencher com espaços em branco, pode-se fazer
sMinhaString := Concat( sMinhaString, StringOfChar(´ ´,<quantas vezes forem necessárias>) );
Espero que ajude
Até+
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)