Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.05.14;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

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

Наверх





Память: 0.44 MB
Время: 0.02 c
3-1141219155
Андрей К
2006-03-01 16:19
2006.05.14
Посоветуйте СУБД


15-1145544722
antonn
2006-04-20 18:52
2006.05.14
Оцените сайт


1-1144049500
DelphiLexx
2006-04-03 11:31
2006.05.14
FindDialog и Delphi2005 проблема с русскмим буквами


1-1144072886
hgd
2006-04-03 18:01
2006.05.14
Использование google map


15-1145590338
DelphiN!
2006-04-21 07:32
2006.05.14
Запустить файл на удаленном компе, имея доступ только к D$





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский