Как декодировать и кодировать некоторые столбцы .dbf файла?

На Clipper я откопал интересную функцию по декодировке данного .dbf файла
(файл Ring.dbf прилагается, закодирован столбец 'SUM')... но как ее декодировать 
(или использовать Clipper евскую функцию) в Delphi?

Clipper овская функция:

function retvalue( x )
local lo, hi, result
      lo := bin2l( x )
      hi := asc( substr( x, 5, 1 ))
      if hi > 131
         hi -= 132
         result := ( lo + hi / 100 )*(-1)
      else
         hi-=32
         result := lo + hi / 100
      end
      return (result)

и можно ли сделать так чтобы таблица отображалась в декодированном виде в DbGrid... 
как мне это сделать???


Пожалуйста если есть дайте исходники (может есть ссылки) на эту тему... Заранее спасибо!!! 

Присоединённый файл ( Кол-во скачиваний: 3 )
 RING.DBF 0,49 Kb

    

Это сообщение отредактировал(а) Centurion - 30.7.2006, 07:45

ауууууууууу...... есть кто нибудь....

Здесь наверное не так много знатоков клиппера   
Сможешь переписать эту функцию на паскале. Если да, то какая проблема перегнать данные этого столбца при помощи переписанной функции и раз и навсегда решить проблему ? Если нет, то хотя бы уточни, что за функция bin2l. Тип параметра и результат который она возвращает. Тоже самое, на счет функции asc.

я не силен в Clipper но возможно саботает такой вариант 
сделай запрос 

примерно такого вида

Centurion, 

Что за дичь? В Clipper присвоение не как в Паскале, т.е. правильно будет:
      lo = bin2l( x )
      hi = asc( substr( x, 5, 1 ))

Этого Клиппер тоже не поймет.
Дальше: если вопрос редактирования не стоит, то делай вычисляемое поле, в процедуру вычисления впихивай перекодировку, аналогичную клипперовской.
А проще (и лучше всего) ликвидировать перекодировку поля.  Поскольку кроме лишней мороки она ничего не дает.