Автор | Сообщение |
|
| |
Пост N: 1
Зарегистрирован: 26.07.12
|
|
Отправлено: 26.07.12 08:47. Заголовок: Как открыт это поля
У меня есть dbf файл.Кодирование поля charxor() функция как можно открыт другой программирований Delphi... http://www.dir.uz/ru/files/get/57882/kod_ochishga_dbf FUNCTION RCRI_() PARAMETER I, N, K, X PRIVATE A1, R, P MEMVAR->P := "пбЁмоз¬вЎ" MEMVAR->A1 := &("BDVI")->INVEI&I IF EMPTY(A1) MEMVAR->R := SPACE(K) ELSE MEMVAR->X := SB4(A1, N, K) IF EMPTY(X) MEMVAR->R := SPACE(K) ELSE MEMVAR->R := CHARXOR(X, P) ENDIF ENDIF
|
|
|
Новых ответов нет
[см. все]
|
|
|
| |
Пост N: 2469
Зарегистрирован: 17.05.05
|
|
Отправлено: 26.07.12 10:55. Заголовок: anvar пишет: как мо..
anvar пишет: цитата: | как можно открыт другой программирований Delphi... |
| 1. Найти аналог на Delphi 2. Глянуть исходник Charxor в Harbour и написать свою функцию
|
|
|
|
| |
Пост N: 2470
Зарегистрирован: 17.05.05
|
|
Отправлено: 26.07.12 11:33. Заголовок: anvar пишет: http:/..
anvar пишет: цитата: | http://www.dir.uz/ru/files/get/57882/kod_ochishga_dbf |
| Выложить файл на платный обменник это круто. Сложи сюда files.mail.ru
|
|
|
|
| |
Пост N: 2
Зарегистрирован: 26.07.12
|
|
Отправлено: 26.07.12 12:11. Заголовок: Я анолог Delphi нен..
Я анолог Delphi ненайдено Какой функия ест на дельфи
|
|
|
|
| |
Пост N: 3
Зарегистрирован: 26.07.12
|
|
Отправлено: 26.07.12 12:14. Заголовок: Файл http://files.ma..
|
|
|
|
| |
Пост N: 2471
Зарегистрирован: 17.05.05
|
|
Отправлено: 26.07.12 12:28. Заголовок: Что то не пойму чем ..
|
|
|
|
| |
Пост N: 42
Зарегистрирован: 08.02.11
|
|
Отправлено: 27.07.12 05:24. Заголовок: DESCRIPTION The ..
DESCRIPTION The CHARXOR() function constructs a new string from the two strings passed as parameters. To do this, it combines the ASCII values of the corresponding characters of both strings with a bitwise XOR-operation and places a character in the resulting string whose ASCII value equals to the result of that operation.If the first string is passed by reference, the resulting string is stored in <cString1>, too. By setting the CSETREF()-switch to .T.,the return value can be omitted.If <cString2> is shorter than <cString1> and the last character of<cString2> has been processed, the function restarts with the first character of <cString2>. реализуй это описание в Дельфи - и будет тебе счастье
|
|
|
|