Autocomplentar com ´. . .quot; até a String ficar com o tam

Delphi

18/02/2005

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]


Marcos Fernando

Marcos Fernando

Curtidas 0

Respostas

Beppe

Beppe

18/02/2005

function Completa(const S: String; Tamanho: Integer; Ch: Char): String
begin
Result := S + StringOfChar(Ch, Tamanho - Length(S));
end;

Completa(Nome) + ...


GOSTEI 0
Marcos Fernando

Marcos Fernando

18/02/2005

Valeu deu tudo certo!

Grato e estou a disposição!


GOSTEI 0
POSTAR