Отк, дак тоже самое, только замени ListBox на StrList и добавь ArrayRW:

code_2015.txt [/b]

Редактировалось 3 раз(а), последний 2025-01-20 15:27:21

Отк, вот так
вставь на выходе текста содержащего символы 10 и 13

Редактировалось 3 раз(а), последний 2025-01-20 15:27:21

Это и есть символы 10 и 13

Редактировалось 3 раз(а), последний 2025-01-20 15:27:21

Отк, я уже думал, но че-то коротко не получилось, проще IC нарезать на любой шрифт. Если не сильно срочно, то закончу поставленные задачи и попытаюсь (если кто раньше не придумает).

nesco, для этого шрифта, если я не ошибаюсь, все символы имеют одинаковый размер.

Эдик, не ошибаешься.
nesco, тебе (частично) поможет функция GetTextExtentPoint32.

и DrawText

iarspider, а чего сам не подпишишься написать. Че сразу стрелки на меня

nesco, так ты парой постов выше уже вроде вызвался... Самому мне лень (), но накидаю идей:
1) Подготовка

• ищем самую длинную строку - на неё будем равняться
• выясняем ширину пробела (GetTextExtentPoint32)

2) Для каждой строки:

• ищем пробелы и добавляем их позиции в список
• к каждому пробелу из списка по очереди добавляем ещё пробел пока не будет ровно или перебор по длине
• если перебор - отменяем последний пробел

Это общий алогритм, а для моноширинных фонтов (Courier New etc) можно упростить, пользуясь не понятием пиксельной длины строки, а буквенной, тогда GetTextExtentPoint32 нам и не нужОн.

Отк, вот компонентик с выравниванием по символам (специально для Вас, т. к. это можно сделать и схемой) и пример:
code_5.txt
------------ Дoбавленo:

Отк, сейчас проверил - не очень красиво, вот более удачный AlignString.pas, замените

Я тут тоже накидал, на стандартных

code_7761.txt
------------ Дoбавленo:

Достоинство схемы -- равномерное распределение пробелов

nesco, нужно сделать хотябы мультик и выложить в Уплоед. Или ещё лучше - компонент и на SVN.