![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Выравнивание строки [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]Ну в первую очередь "ровность - кривость" будет зависеть от просмотрщика, шрифта, которым просматриваешь, ну и еще кое-от чего.
Ну а при моноширинном шрифте, я бы и записывал по другому