Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

Функция 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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.182 c
1-94473           kaif                  2002-04-16 04:32  2002.04.29  
EXE или BPL?


1-94390           Ray_Parker            2002-04-14 15:09  2002.04.29  
Вопрос по типу Double Word


1-94520           kopachev              2002-04-15 19:48  2002.04.29  
Создание превью как в отчетах


6-94528           Lenidus               2002-02-17 14:10  2002.04.29  
Чем заменить компонент TWebBrowser?


1-94474           radisheva             2002-04-16 13:33  2002.04.29  
Кодировки