Глупые вопросы

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

Глупые вопросы

Сообщение Admin »

Я может быть гоню но у вас явно написано u_int что есть (для 32b приложений) ULONG а никак не USHORT
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
PavelNK
Старожил
Сообщения: 262
Зарегистрирован: 15 Март 2011, 8:02

Глупые вопросы

Сообщение PavelNK »

Admin писал(а):Я может быть гоню но у вас явно написано u_int что есть (для 32b приложений) ULONG а никак не USHORT
Ничуть! Абсолютно справедливо!
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

Глупые вопросы

Сообщение Admin »

PavelNK писал(а):Ничуть! Абсолютно справедливо!
Т.е. я бы написал

Код: Выделить всё

FD_SET                  GROUP,TYPE
FD_COUNT                  ULONG 
FD_ARRAY                  SOCKET,DIM(FD_SETSIZE)
                        END
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
vd-vuf
Бывалый
Сообщения: 61
Зарегистрирован: 12 Декабрь 2008, 12:09
Откуда: Верхний Уфалей
Контактная информация:

Глупые вопросы

Сообщение vd-vuf »

PavelNK писал(а):
Admin писал(а):Я может быть гоню но у вас явно написано u_int что есть (для 32b приложений) ULONG а никак не USHORT
Ничуть! Абсолютно справедливо!
Спасибо! Хороший пинок :)
Причем, есть ведь у меня и определение. совсем забыл :(
UINT EQUATE(UNSIGNED)
Аватара пользователя
RaFaeL
✯ Ветеран ✯
Сообщения: 1376
Зарегистрирован: 24 Март 2009, 17:59
Откуда: НН
Благодарил (а): 7 раз
Поблагодарили: 1 раз
Контактная информация:

Глупые вопросы

Сообщение RaFaeL »

У меня тоже вопрос в тему
Как описать вот такую функцию
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 раза
Контактная информация:

Глупые вопросы

Сообщение Admin »

Как то так...

Код: Выделить всё

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 раза
Контактная информация:

Глупые вопросы

Сообщение Admin »

По функции в гугле поискать пробовали?
Вот к примеру
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
Аватара пользователя
RaFaeL
✯ Ветеран ✯
Сообщения: 1376
Зарегистрирован: 24 Март 2009, 17:59
Откуда: НН
Благодарил (а): 7 раз
Поблагодарили: 1 раз
Контактная информация:

Глупые вопросы

Сообщение RaFaeL »

Спасибо, попробуем
SuperMax
Посетитель
Сообщения: 47
Зарегистрирован: 25 Август 2015, 3:22
Поблагодарили: 2 раза

Глупые вопросы

Сообщение SuperMax »

что-то никак вспомнить не могу
как обновить содержимое browse ?
в процедуре записи добавил - а как их отобразить ?
Аватара пользователя
Дед Пахом
Старичок
Сообщения: 3131
Зарегистрирован: 07 Июль 2005, 16:51
Откуда: Москва, Россия
Благодарил (а): 10 раз
Поблагодарили: 28 раз
Контактная информация:

Глупые вопросы

Сообщение Дед Пахом »

Если ABC, то

Код: Выделить всё

    BRW1.ResetSort(1)
    BRW1.UpdateWindow()
С уважением, ДП
SuperMax
Посетитель
Сообщения: 47
Зарегистрирован: 25 Август 2015, 3:22
Поблагодарили: 2 раза

Глупые вопросы

Сообщение SuperMax »

Спасибо!
SuperMax
Посетитель
Сообщения: 47
Зарегистрирован: 25 Август 2015, 3:22
Поблагодарили: 2 раза

Глупые вопросы

Сообщение SuperMax »

Еще вопрос
надо найти значение по ключу

делаю так

Код: Выделить всё

OPEN(TYPE_DATA2,2) 
...
GET(TPD2:UK_TYPE_DATA_NAME,clip(str2))  ! в str2 значение ключа - строка
но упорно получаю 35ую ошибку
запись в файле есть, ключ уникальный по единственному полю name

я что-то упустил ?
Аватара пользователя
RaFaeL
✯ Ветеран ✯
Сообщения: 1376
Зарегистрирован: 24 Март 2009, 17:59
Откуда: НН
Благодарил (а): 7 раз
Поблагодарили: 1 раз
Контактная информация:

Глупые вопросы

Сообщение RaFaeL »

Код: Выделить всё

TPD2:TYPE_DATA_NAME=clip(str2)
get(TYPE_DATA2,TPD2:UK_TYPE_DATA_NAME)
А про такое использование оператора get как у вас справка не знает ;)
SuperMax
Посетитель
Сообщения: 47
Зарегистрирован: 25 Август 2015, 3:22
Поблагодарили: 2 раза

Глупые вопросы

Сообщение SuperMax »

спасибо. работает.

про конструкцию я прочитал тут
http://bourabai.ru/alg/clarion/13.htm#_ ... 1%80%D1%8F
GET(ключ, указатель ключа)
Получает запись, основываясь на заданным указателем ключа относительном положении значения ключа в файле ключей.
Аватара пользователя
RaFaeL
✯ Ветеран ✯
Сообщения: 1376
Зарегистрирован: 24 Март 2009, 17:59
Откуда: НН
Благодарил (а): 7 раз
Поблагодарили: 1 раз
Контактная информация:

Глупые вопросы

Сообщение RaFaeL »

Указатель ключа это указатель ключа, а не значение поля
Ответить