Centralizar uma string dentro de um comando format
Estou confeccionando um relatório onde preciso centralizar uma string dentro de um determinado espaço. Por exemplo:
Writeln(Impressora, Format(´¬-40s´,[´Vendas´]));
alinha a palavra ´vendas´ a esquerda dentro de um espaço de 40 caracteres.
Writeln(Impressora, Format(´¬40s´,[´Vendas´]));
alinha a palavra ´vendas´ a direita dentro de um espaço de 40 caracteres.
agora eu quero saber qual o comando para fazer a palavra ´vendas´ ficar centralizado dentro deste espaço de 40 caracteres?
Writeln(Impressora, Format(´¬-40s´,[´Vendas´]));
alinha a palavra ´vendas´ a esquerda dentro de um espaço de 40 caracteres.
Writeln(Impressora, Format(´¬40s´,[´Vendas´]));
alinha a palavra ´vendas´ a direita dentro de um espaço de 40 caracteres.
agora eu quero saber qual o comando para fazer a palavra ´vendas´ ficar centralizado dentro deste espaço de 40 caracteres?
Roberto Rossi
Curtidas 0
Respostas
Caninha51
11/07/2005
Cara, eu precisei disso quando fui criar uns relatorios com o vdoprint...
Lá eu coloco o texto e a posição inicial que é pra imprimí-lo.
Criei duas funções que me retorna a posição alinhada de acordo com o tamanho da linha...
Posicao := ColPrintCenter(´Vendas´, 40);
function ColPrintCenter(Texto: String; Tamanho: Integer):Integer;
begin
Result := (Tamanho - Length(Texto)) div 2;
end;
function ColPrintRight(Texto: String; Tamanho: Integer):Integer;
begin
Result := Tamanho - Length(Texto);
end;
Espero q ajude...
Caninha51
Lá eu coloco o texto e a posição inicial que é pra imprimí-lo.
Criei duas funções que me retorna a posição alinhada de acordo com o tamanho da linha...
Posicao := ColPrintCenter(´Vendas´, 40);
function ColPrintCenter(Texto: String; Tamanho: Integer):Integer;
begin
Result := (Tamanho - Length(Texto)) div 2;
end;
function ColPrintRight(Texto: String; Tamanho: Integer):Integer;
begin
Result := Tamanho - Length(Texto);
end;
Espero q ajude...
Caninha51
GOSTEI 0