Strings. Preencher ate 80 caracteres

Delphi

16/08/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.


Renata Coimbra

Renata Coimbra

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

16/08/2004

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

   ShowMessage(teste);
end;

[/code]


GOSTEI 0
POSTAR