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

Вывод таблицы чисел в TMemo   Найти похожие ветки 

← →
LordOfRock ©   (2005-12-06 09:59) [0]

Привет Мастера!

У меня есть таблича чисел, сохранённая в массиве.
Мне надо вывести её в TMemo, но что бы были точные разделения на столбцы.
Т.е. вместо такой штуки:

1 2 6
11 12 6
145 145 567


была такая:

1   2   6
11  12  3
145 145 567


Я понимаю, что копать нужно в строрну функции Format, но так и не понял как ей пользоваться. В хелпе тоже ничего не понял.
Поможете?

---

← →
Anatoly Podgoretsky ©   (2005-12-06 10:11) [1]

Неправильно понимаешь, копать надо в сторону ТАБ и установку табулостопов.

---

← →
Drakosha ©   (2005-12-06 10:48) [2]

в школе ещё на паскале выкручивались так:
создаешь строку типа
"_abc_abc_abc_" и заменяешь по ходу :
одноразрядное число abc на 1пробелпробел
двухразрядное 12пробел
трёх- 123
ну думаю смысл понятен...реализацый может быть куча :)

---

← →
Leonid Troyanovsky ©   (2005-12-06 11:12) [3]

> LordOfRock ©   (06.12.05 09:59)  

> У меня есть таблича чисел, сохранённая в массиве.
> Мне надо вывести её в TMemo, но что бы были точные разделения
> на столбцы.


Лучше посмотреть в сторону TStringGrid, TDrawGrid, оформление
которых можно сделать и без сетки.

Если редактирование массива ориентирована на строку, то
можно взять TListBox с табулостопами (стиль LBS_USETABSTOPS)
или ownerdraw listbox with DrawText DT_EXPANDTABS.

Например,

http://groups.google.com/group/fido7.ru.delphi/msg/d783b0682a302c14

--
Regards, LVT.

---

← →
LordOfRock ©   (2005-12-06 16:47) [4]

Leonid Troyanovsky ©   (06.12.05 11:12) [3]

Спасибо. Будем копаться.

Anatoly Podgoretsky ©   (06.12.05 10:11) [1]

А поподробней можно? Пробовал вместо пробела между числами вставлять
CHR(KEY_TAB)
Вместо табуляции TMemo отображает жирую вертикальную черту.

А желательно чтобы был всё-таки TMemo. Потоу что нужно, что бы можно было выделить-скопировать полученную таблицу как оычный текст.

---

← →
Leonid Troyanovsky ©   (2005-12-06 17:00) [5]

> OfRock ©   (06.12.05 16:47) [4]

> Пробовал вместо пробела между числами  вставлять CHR(KEY_TAB)


Chr(vk_tab), т.е. #9.
И Ctrl+Tab (если WantTabs = False).

Например

 Memo1.Lines.Add("12"#9"34");
 Memo1.Lines.Add("5678"#9"90");

--
Regards, LVT.

---

← →
LordOfRock ©   (2005-12-07 20:12) [6]

Leonid Troyanovsky ©   (06.12.05 17:00) [5]

Респект вам большой! просто у меня под рукой не было  таблицы кодов...

---

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

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



Память: 0.46 MB
Время: 0.029 c