Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Выравнивание строки [D7, XP]


sysop ©   (2006-04-23 14:56:00) 

Ув. Мастера! Программа записывает в лог файл информацию ввиде таблицы

Имя  Значение

Name   Value

Между именем и значением должно быть 20 пробелов, но, поскольку, длина
имени может быть разной, то в столбце Значение значения идут не ровно в
столбик, а в разнобой. Т.е:
Имя  Значение

Name   Value
Long_Name1   Value

Делаю так:

var
 SLen: Integer;
 SName: string;
begin
 SLen := Length(SName);
 if SLen > 20 then
   StringOfChar(#32,SLen - 20)
 else
   StringOfChar(#32,20 + SLen);
end;  
Но все равно криво.

Подскажите как выранить столбец Значение?
Заранее благодарен!


Alarm   (2006-04-23 15:10:00) [1]

Ну в первую очередь "ровность - кривость" будет зависеть от просмотрщика, шрифта, которым просматриваешь, ну и еще кое-от чего.
Ну а при моноширинном шрифте, я бы и записывал по другому


Наверх

Титульная страница Поиск, карта сайта Написать письмо