Fórum Autocomplentar com ´. . .quot; até a String ficar com o tam #269197
18/02/2005
0
Galera é o seguinte!
preciso fazer um resumo geral por cliente e informar tudo isso em um campo STRING 255:
Só q preciso fiq tabulado pois o meu está assim:
[b:fcab06c3ac]Cliente: Total Gasto: Compra maior:[/b:fcab06c3ac]------------------------------------------------------------------------
MARCIO COSTA E SILVA R$: 25.000,00 R$: 5.700,00
CARLOS HENRIQUE R$: 12.000,00 R$: 2.700,00
LUCAS DE AZEVEDO ROCHA R$: 11.350,00 R$: 1.4500,00[b:fcab06c3ac]
Preciso q até 40 caracteres fiquem com coluna do nome
e do 43 a 70 Total Gasto:
e 73 a 93 Compra maior:
ficaria assim:
Cliente: Total Gasto: Compra maior:
------------------------------------------------------------------------
MARCIO COSTA E SILVA........: R$: 25.000,00 R$: 5.700,00
CARLOS HENRIQUE................: R$: 12.000,00 R$: 2.700,00
LUCAS DE AZEVEDO ROCHA...: R$: 11.350,00 R$: 1.4500,00
[/b:fcab06c3ac]
preciso fazer um resumo geral por cliente e informar tudo isso em um campo STRING 255:
Só q preciso fiq tabulado pois o meu está assim:
[b:fcab06c3ac]Cliente: Total Gasto: Compra maior:[/b:fcab06c3ac]------------------------------------------------------------------------
MARCIO COSTA E SILVA R$: 25.000,00 R$: 5.700,00
CARLOS HENRIQUE R$: 12.000,00 R$: 2.700,00
LUCAS DE AZEVEDO ROCHA R$: 11.350,00 R$: 1.4500,00[b:fcab06c3ac]
Preciso q até 40 caracteres fiquem com coluna do nome
e do 43 a 70 Total Gasto:
e 73 a 93 Compra maior:
ficaria assim:
Cliente: Total Gasto: Compra maior:
------------------------------------------------------------------------
MARCIO COSTA E SILVA........: R$: 25.000,00 R$: 5.700,00
CARLOS HENRIQUE................: R$: 12.000,00 R$: 2.700,00
LUCAS DE AZEVEDO ROCHA...: R$: 11.350,00 R$: 1.4500,00
[/b:fcab06c3ac]
Marcos Fernando
Curtir tópico
+ 0
Responder
Posts
18/02/2005
Beppe
function Completa(const S: String; Tamanho: Integer; Ch: Char): String
begin
Result := S + StringOfChar(Ch, Tamanho - Length(S));
end;
Completa(Nome) + ...
begin
Result := S + StringOfChar(Ch, Tamanho - Length(S));
end;
Completa(Nome) + ...
Responder
Gostei + 0
18/02/2005
Marcos Fernando
Valeu deu tudo certo!
Grato e estou a disposição!
Grato e estou a disposição!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)