La funcion Format nunca la habia usado así, lo que si tengo a mano son estas 2 funciones que vienen con las Rxlibs en la unidad nkStrs. Si no recuerdo mal eran originarias de las NKLibs que han ido quedando algo obsoletas.
Código Delphi
[-]
function PadLeft(const cStr: String; ch: char; iLen: Integer): String;
begin
if Length(cStr) >= iLen then
Result := Copy(cStr, 1, iLen)
else
Result := StringOfChar(ch, iLen - Length(cStr)) + cStr;
end ;
function PadRight(const cStr: String; ch: char; iLen: Integer): String;
begin
if Length(cStr) >= iLen then
Result := Copy(cStr, 1, iLen)
else
Result := cStr + StringOfChar(ch, iLen - Length(cStr));
end ;
Ejemplo:
Código Delphi
[-]
Padright(telefono,'-', 15); PadLeft(telefono,'-',15);
Saludos