Formatando Strings

Question

Estou procurando uma forma de formatar uma string da seguinte forma:

Por Exemplo quero que uma vari�vel receba uma string de tamanho 10,
mas se for informado uma string de 5 caract�res ele complete com espa�os em branco.

Se algu�m souber como, agrace�o.

Marco Antonio Justo

Afarias · Answer

function LeftPad(Str: string; Size: Integer): string;
const
PadChar = � �;
begin
Result := Str;
while (Length(Result) < Size) do
Result := PadChar + Result;
end;

function RightPad(Str: string; Size: Integer): string;
const
PadChar = � �;
begin
Result := Str;
while (Length(Result) < Size) do
Result := Result + PadChar;
end;

T+

Adilsond · Answer

Utilize a fun��o format:Edit2.Text := Format(��-20s�,[Edit1.Text]); // onde 20 � o tamnho da nova string...

F�rum Formatando Strings #197866