Глупые вопросы
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
- Admin
- Администратор
- Сообщения: 3959
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 25 раз
- Поблагодарили: 22 раза
- Контактная информация:
Глупые вопросы
Я может быть гоню но у вас явно написано u_int что есть (для 32b приложений) ULONG а никак не USHORT
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
Глупые вопросы
Ничуть! Абсолютно справедливо!Admin писал(а):Я может быть гоню но у вас явно написано u_int что есть (для 32b приложений) ULONG а никак не USHORT
- Admin
- Администратор
- Сообщения: 3959
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 25 раз
- Поблагодарили: 22 раза
- Контактная информация:
Глупые вопросы
Т.е. я бы написалPavelNK писал(а):Ничуть! Абсолютно справедливо!
Код: Выделить всё
FD_SET GROUP,TYPE
FD_COUNT ULONG
FD_ARRAY SOCKET,DIM(FD_SETSIZE)
END
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
-
- Бывалый
- Сообщения: 61
- Зарегистрирован: 12 Декабрь 2008, 12:09
- Откуда: Верхний Уфалей
- Контактная информация:
Глупые вопросы
Спасибо! Хороший пинокPavelNK писал(а):Ничуть! Абсолютно справедливо!Admin писал(а):Я может быть гоню но у вас явно написано u_int что есть (для 32b приложений) ULONG а никак не USHORT
Причем, есть ведь у меня и определение. совсем забыл
UINT EQUATE(UNSIGNED)
- RaFaeL
- ✯ Ветеран ✯
- Сообщения: 1376
- Зарегистрирован: 24 Март 2009, 17:59
- Откуда: НН
- Благодарил (а): 7 раз
- Поблагодарили: 1 раз
- Контактная информация:
Глупые вопросы
У меня тоже вопрос в тему
Как описать вот такую функцию
http://www.delphikingdom.com/asp/viewit ... 4981164050
Может кто подключал библиотеку. Остальные фукнции подключили, кроме этой
Как описать вот такую функцию
http://www.delphikingdom.com/asp/viewit ... 4981164050
Код: Выделить всё
function GetFIOParts(pFIO: PChar; Parts: PPartsFIO): Integer; stdcall;
export;
Выделяет из ФИО (pFIO) его составляющие. Результат помещается в буфер (Parts).
Позволяет выделить из заданного ФИО его части. Результат работы помещается в запись со структурой:
type
PPartsFIO = ^TPartsFIO;
TPartsFIO = record
pLastName, pFirstName, pMiddleName : PChar;
nLastName, nFirstName, nMiddleName : LongInt;
end;
- Admin
- Администратор
- Сообщения: 3959
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 25 раз
- Поблагодарили: 22 раза
- Контактная информация:
Глупые вопросы
Как то так...
Код: Выделить всё
GetFIOParts(CSTRING pFIO, *PartsFIO Parts), LONG
...
PartsFIO GROUP,TYPE
pLastName CSTRING(100)
pFirstName CSTRING(100)
pMiddleName CSTRING(100)
nLastName LONG
nFirstName LONG
nMiddleName LONG
END
...
Part PartsFIO
FIO CSTRING(255)
Part.nLastName = 100
Part.nFirstName = 100
Part.nMiddleName = 100
FIO = "Пупкин Василий Васильевич"
Err# = GetFIOParts(FIO, Part)
MESSAGE(CLIP(Part.pLastName)&' '&CLIP(Part.pMiddleName)&' '&CLIP(Part.pMiddleName))
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
- Admin
- Администратор
- Сообщения: 3959
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 25 раз
- Поблагодарили: 22 раза
- Контактная информация:
Глупые вопросы
По функции в гугле поискать пробовали?
Вот к примеру
Вот к примеру
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
Глупые вопросы
что-то никак вспомнить не могу
как обновить содержимое browse ?
в процедуре записи добавил - а как их отобразить ?
как обновить содержимое browse ?
в процедуре записи добавил - а как их отобразить ?
Глупые вопросы
Еще вопрос
надо найти значение по ключу
делаю так
но упорно получаю 35ую ошибку
запись в файле есть, ключ уникальный по единственному полю name
я что-то упустил ?
надо найти значение по ключу
делаю так
Код: Выделить всё
OPEN(TYPE_DATA2,2)
...
GET(TPD2:UK_TYPE_DATA_NAME,clip(str2)) ! в str2 значение ключа - строка
запись в файле есть, ключ уникальный по единственному полю name
я что-то упустил ?
- RaFaeL
- ✯ Ветеран ✯
- Сообщения: 1376
- Зарегистрирован: 24 Март 2009, 17:59
- Откуда: НН
- Благодарил (а): 7 раз
- Поблагодарили: 1 раз
- Контактная информация:
Глупые вопросы
Код: Выделить всё
TPD2:TYPE_DATA_NAME=clip(str2)
get(TYPE_DATA2,TPD2:UK_TYPE_DATA_NAME)
Глупые вопросы
спасибо. работает.
про конструкцию я прочитал тут
http://bourabai.ru/alg/clarion/13.htm#_ ... 1%80%D1%8F
GET(ключ, указатель ключа)
Получает запись, основываясь на заданным указателем ключа относительном положении значения ключа в файле ключей.
про конструкцию я прочитал тут
http://bourabai.ru/alg/clarion/13.htm#_ ... 1%80%D1%8F
GET(ключ, указатель ключа)
Получает запись, основываясь на заданным указателем ключа относительном положении значения ключа в файле ключей.