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

[Admin]

Я может быть гоню но у вас явно написано u_int что есть (для 32b приложений) ULONG а никак не USHORT

[PavelNK]

Я может быть гоню но у вас явно написано u_int что есть (для 32b приложений) ULONG а никак не USHORT

Ничуть! Абсолютно справедливо!

[Admin]

Ничуть! Абсолютно справедливо!

Т.е. я бы написал

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

FD_SET                  GROUP,TYPE
FD_COUNT                  ULONG 
FD_ARRAY                  SOCKET,DIM(FD_SETSIZE)
                        END

[vd-vuf]

Я может быть гоню но у вас явно написано u_int что есть (для 32b приложений) ULONG а никак не USHORT

Ничуть! Абсолютно справедливо!

Спасибо! Хороший пинок
Причем, есть ведь у меня и определение. совсем забыл
UINT EQUATE(UNSIGNED)

[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]

Как то так...

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

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]

По функции в гугле поискать пробовали?
Вот к примеру

[RaFaeL]

Спасибо, попробуем

[SuperMax]

что-то никак вспомнить не могу
как обновить содержимое browse ?
в процедуре записи добавил - а как их отобразить ?

[Дед Пахом]

Если ABC, то

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

    BRW1.ResetSort(1)
    BRW1.UpdateWindow()

[SuperMax]

Спасибо!

[SuperMax]

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

делаю так

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

OPEN(TYPE_DATA2,2) 
...
GET(TPD2:UK_TYPE_DATA_NAME,clip(str2))  ! в str2 значение ключа - строка

но упорно получаю 35ую ошибку
запись в файле есть, ключ уникальный по единственному полю name

я что-то упустил ?

[RaFaeL]

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

TPD2:TYPE_DATA_NAME=clip(str2)
get(TYPE_DATA2,TPD2:UK_TYPE_DATA_NAME)

А про такое использование оператора get как у вас справка не знает

[SuperMax]

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

про конструкцию я прочитал тут
http://bourabai.ru/alg/clarion/13.htm#_ ... 1%80%D1%8F
GET(ключ, указатель ключа)
Получает запись, основываясь на заданным указателем ключа относительном положении значения ключа в файле ключей.

[RaFaeL]

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