Fórum Centralizar uma string dentro de um comando format #287649

11/07/2005

0

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?


Roberto Rossi

Roberto Rossi

Responder

Posts

11/07/2005

Caninha51

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar