Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.29;
Скачать: CL | DM;

Вниз

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

 
Deadlock   (2002-04-16 07:25) [0]

Хочу добиться от формат такого эффекта:
До:
Параметр1111111122222222 1 мм.
Параметр1112222 1 мм.
А после должно быть:
Параметр1111111122222222 1 мм.
Параметр1112222 1 мм.
А может формат этого не делает, а я зря долбаюсь. Помогите


 
Игорь Шевченко ©   (2002-04-16 09:56) [1]

День добрый,

Format ("%-24s %d мм", [ParName, mms])

С уважением,


 
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;



Страницы: 1 вся ветка

Текущий архив: 2002.04.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
4-94638
alexey1
2002-02-26 23:19
2002.04.29
Вопрос на использование функции FindWindowEx


1-94373
Starkom
2002-04-17 12:26
2002.04.29
можно ли как-либо отловить вызов dll в коде?


1-94500
Arhangel
2002-04-16 19:04
2002.04.29
Help!!


1-94484
Чел - программер
2002-04-16 14:56
2002.04.29
НАРОД! Кто-нибудь знает, как обратиться к строке в memo, не ...


3-94345
IronHawk
2002-04-08 15:06
2002.04.29
Есть что-то вроде Excel-вской сетки для QuickReport ?