Отправлено: 25.11.13 11:31. Заголовок: Просмотр 2-х мерного массива.

Как можно средствами Harbour просмотреть 2-х мерный массив (как базу данных).
Что-то наподобие Tbrowse для массивов.
Где-то видел пример, но сейчас не могу найти.

 Отправлено: 25.11.13 13:29. Заголовок: azoo пишет: Где-то ..

azoo пишет:

цитата:

Где-то видел пример, но сейчас не могу найти.

Смотрим тут core\tests\tbrowse.prg

 Отправлено: 27.11.13 09:14. Заголовок: Смотрим тут core\..

цитата:

Смотрим тут core\tests\tbrowse.prg

Что-то не нашёл этого файла в папке tests. (HB30\tests)

 Отправлено: 27.11.13 09:22. Заголовок: azoo пишет: Что-то ..

azoo пишет:

цитата:

Что-то не нашёл этого файла в папке tests. (HB30\tests)

Тогда тут https://github.com/harbour/core/blob/master/tests/tbrowse.prg

 Отправлено: 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