quarta-feira, 25 de novembro de 2009

Alinha um valor real, em um determinado espaço

function Alinhar(Pe_Num:Real; Pe_QtdPos:Byte; EDC :Char):string;
// EDC: C = Centralizado
// D = Direita
// E = Esquerda
//

var
I : integer;
S : string;
Num : string;
begin
if EDC = 'D' then
begin
Num := Format('%*.*n', [Pe_QtdPos, 2, Pe_Num]);
Alinhar := Num;
end;
if EDC = 'E' then
begin
Num := FormatFloat('###,###,###,##0.00',Pe_Num);
Alinhar := Num;
end;
if EDC = 'C' then
begin
Num := FormatFloat('###,###,###,##0.00',Pe_Num);
i := Pos(',',Num);
i := i + 2;
i := Pe_QtdPos - i;
i := Round( i / 2 );
i := Pe_QtdPos - i;
Num := Format('%*.*n', [i,2,Pe_Num]);
str(i,s);
Alinhar := Num ;
end;

end;

Nenhum comentário:

Postar um comentário