Нарисовать схему
Здравствуйте. Нужно нарисовать схему по введенным данным.
Например ввели:
1-2
1-3
2-4
2-5
3-6
4-6
5-6
и должна нарисоваться схема (прикреплен файл).
Предложите наименее короткий способ реализации. Я сейчас выпарсиваю цифры (e), затем каждой цифре в соответствии создаю динамически edit, использую массив - edits: array [1..100] of tedit, затем edites[e].text=inttostr(e), сейчас пытаюсь вывести формулу обрисовки квадратного едита размером 25х25. Но ведь еще нужно придумать какую-то схему расположения этих кружочков, какой будет вначале, расстояние между каждым, и еще стрелки прорисовать. В общем посоветуйте, может есть более простые способы, а то я чувствую жестко быдлю.
|