Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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;



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

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

Наверх





Память: 0.54 MB
Время: 0.018 c
1-94459
mik
2002-04-16 10:24
2002.04.29
Хочу сделать единый обработчик для MainMenu


1-94506
LazorenkoX
2002-04-16 09:26
2002.04.29
record; packed record


1-94486
Up
2002-04-16 15:15
2002.04.29
Custom Menu


1-94348
Ross
2002-04-15 13:16
2002.04.29
Парсеры


4-94644
alexey111111
2002-02-27 12:42
2002.04.29
WIN API





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский