Скачать: CL | DM;

Выравнивание строки   Найти похожие ветки 

← →
sysop   (2006-04-23 14:56) [0]

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

Имя  Значение

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) [1]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.036 c