Форум » [x]Harbour » Просмотр 2-х мерного массива. » Ответить

Просмотр 2-х мерного массива.

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

Ответов - 4

AlexMyr: azoo пишет: Где-то видел пример, но сейчас не могу найти. Смотрим тут core\tests\tbrowse.prg

azoo: Смотрим тут core\tests\tbrowse.prg Что-то не нашёл этого файла в папке tests. (HB30\tests)

AlexMyr: azoo пишет: Что-то не нашёл этого файла в папке tests. (HB30\tests) Тогда тут https://github.com/harbour/core/blob/master/tests/tbrowse.prg


azoo: В 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



полная версия страницы