Array
(
)

Strings. Preencher ate 80 caracteres

Renata Coimbra
   - 16 ago 2004

Olá !

Tenho uma string:

Duzentos reais

o tamanho dela e 80 caracter gostaria de completar essa string
com ************************ até chegar aos 80 caracter

Exemplo:

Cem Reais*************************
dois reais************************

não cem qual será o tamanho do extenso, só gostaria de completar até os 80 caratecter.


Obrigada.

Renata.


Lucas Silva
   - 16 ago 2004

#Código

var teste: String;
i: integer;
begin
teste := ´Cem Reais´;
for i := 0 to 80 - length(teste) do
teste := teste + ´*´;

ShowMessage(teste);
end;