Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вывод структуры таблицы [D6, dBase, FoxPro, Paradox]

Yurij-7 © (2004-12-22 13:36:00)
Уважаемые мастера подскажите в чем могут быть грабли при выведении структуры таблицы в ListBox, я делаю это вот так:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
Name, Typ: String;
Len, Dec, i: Integer;
begin
// for i := 1 to HalcyonDataSet1.FieldCount do
begin
with ListBox1.Items do
begin

Add (' '+Name+' '+Typ+' '+InttoStr(Len)+' '+InttoStr (Dec)+' ');

end;
end;

Но ксожалению в ListBox выыодит только нулевые значения Len Dec
Спасибо!

msguns (2004-12-22 17:59:00) [1]
F1. Там достаточно хорошо все описано

Yurij-7 (2004-12-22 17:30:00) [2]
:))

А нету случайно статейки как работать с TStringGrid?

msguns (2004-12-22 17:24:00) [3]
>Yurij-7 (22.12.04 15:49) [7]
>я думал сделать так:
1. вычислить длину имени поля (храниться в переменной)
2. недостающее количество символов в длине поля заполнить пробелами(только незнаюю пока как это делать)

Если все поля -> в одну строку (вариант с "однострочными" списками типа листбокса), то этот метод сойдет. При условии выбора соотв.шрифта. Добавлять недостающие справа пробелы очень просто:
While Lenght(S)<MaxLineLenght do S := S+' ';

Но будет некрасиво. Для красоты все же рекомендую TStringGrid. Правда там внутри ячеек нет автовыравнивания (по центру или направо) и если это все же желательно, то используй событие грида OnDrawCell с вычислением длины выражения и ширины ячейки и выравниваем первого относительно второй "вручную".
Не бойся сложностей. Когда получится - испытаешь оргазм ;)

Yurij-7 (2004-12-22 17:23:00) [4]
ну неужели никто неподскажет?

Yurij-7 (2004-12-22 15:49:00) [5]
а можно чуть подробней "используй разделитель - табуляцию." просто я с TSringGrid никогда неработал :((
я думал сделать так:
1. вычислить длину имени поля (храниться в переменной)
2. недостающее количество символов в длине поля заполнить пробелами(только незнаюю пока как это делать)

или может есть проще вариант?
Спасибо

msguns (2004-12-22 13:59:00) [6]
Или использовать шрифт с фиксированной шириной символов

Соловьев (2004-12-22 13:57:00) [7]
TSringGrid или используй разделитель - табуляцию.

Yurij-7 (2004-12-22 13:55:00) [8]
все исправил спасибо Johnmen & Соловьев :))

А у меня еще вопрос как весь результат выровнять ну типа как по сетке в Экселе, длина имени поля то разная всегда.

Поле1 С 5 0
Поле2 С 5 0

Спасибо

Johnmen (2004-12-22 13:41:00) [9]
Ну всё правильно. Len Dec нигде не изменяются, инициализируются нулём..

Александр Иванов (2004-12-22 13:40:00) [10]
Комментарий со строки цикла снять?

Соловьев (2004-12-22 13:40:00) [11]
Add (' '+Name+' '+Typ+' '+InttoStr(Len)+' '+InttoStr (Dec)+' ');

а єто случем не поля HalcyonDataSet1.Fields[i]?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »