Автор | Сообщение |
|
| |
Пост N: 45
Зарегистрирован: 24.04.13
|
|
Отправлено: 25.11.13 11:31. Заголовок: Просмотр 2-х мерного массива.
Как можно средствами Harbour просмотреть 2-х мерный массив (как базу данных). Что-то наподобие Tbrowse для массивов. Где-то видел пример, но сейчас не могу найти.
|
|
|
Ответов - 4
[только новые]
|
|
|
| |
Пост N: 1005
Зарегистрирован: 11.06.10
|
|
Отправлено: 25.11.13 13:29. Заголовок: azoo пишет: Где-то ..
azoo пишет: цитата: | Где-то видел пример, но сейчас не могу найти. |
| Смотрим тут core\tests\tbrowse.prg
|
|
|
|
| |
Пост N: 47
Зарегистрирован: 24.04.13
|
|
Отправлено: 27.11.13 09:14. Заголовок: Смотрим тут core\..
цитата: | Смотрим тут core\tests\tbrowse.prg |
| Что-то не нашёл этого файла в папке tests. (HB30\tests)
|
|
|
|
| |
Пост N: 1006
Зарегистрирован: 11.06.10
|
|
Отправлено: 27.11.13 09:22. Заголовок: azoo пишет: Что-то ..
|
|
|
|
| |
Пост N: 50
Зарегистрирован: 24.04.13
|
|
Отправлено: 03.12.13 13:37. Заголовок: В NG для Superlib в ..
В NG для Superlib в описании функции aaskip() есть готовый пример если кому надо. цитата: | local nLastKey, nElement := 1 local aArray := dbstruct() local oTb := tBrowseNew(2,2,20,78) oTb:addcolumn(tbcolumnew("Name",{||aArray[nElement,1]})) oTb:addcolumn(tbcolumnew("Type", {||aArray[nElement,2]})) oTb:addcolumn(tbcolumnew("Len " , {||aArray[nElement,3]})) oTb:addcolumn(tbcolumnew("Deci", {||aArray[nElement,4]})) oTb:Skipblock := {|n|aaskip(n,@nElement,len(aArray)} oTb:goTopBlock := {||nElement := 1} oTb:goBottomBlock := {||nElement := len(aArray)} while .t. while !oTb:stabilize() end nLastKey := inkey(0) do case /// various actions..... endcase end |
|
|
|
|
|