17 agosto 2011

Centralizando uma string


Function Center(StrX : string; IntX : ShortInt) : string;
begin
   Center := Middle (StrX, IntX, EspacoBranco);
end;

Nenhum comentário:

Postar um comentário