Функция Format

← →
Shaman_Naydak (2002-04-16 10:14) [2]

Если я правильно понял то, что тебе надо, то Format сам по себе так не сделает..
Как насчет вот такой ф-ции

function MyFormat(const S: string; Len: Integer): string;
var i: Integer;
begin
Result:=S;
i:=Pos(" ", S);
if i = 0 then exit;
for i:=i to Length(S) do
if S[i] <> " " then break;

if i < Len then
Insert(StringOfChar(" ", Len - i + 1), Result, i);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption:=MyFormat("Параметр1112222 1 мм.", 25);
end;

Функция Format Найти похожие ветки