Место общения программистов, форум разработчиков БД на Clarion
https://www.forum.clarionlife.net/
Ничуть! Абсолютно справедливо!Admin писал(а):Я может быть гоню но у вас явно написано u_int что есть (для 32b приложений) ULONG а никак не USHORT
Т.е. я бы написалPavelNK писал(а):Ничуть! Абсолютно справедливо!
Код: Выделить всё
FD_SET GROUP,TYPE
FD_COUNT ULONG
FD_ARRAY SOCKET,DIM(FD_SETSIZE)
ENDСпасибо! Хороший пинокPavelNK писал(а):Ничуть! Абсолютно справедливо!Admin писал(а):Я может быть гоню но у вас явно написано u_int что есть (для 32b приложений) ULONG а никак не USHORT
Код: Выделить всё
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;Код: Выделить всё
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))
Код: Выделить всё
BRW1.ResetSort(1)
BRW1.UpdateWindow()
Код: Выделить всё
OPEN(TYPE_DATA2,2)
...
GET(TPD2:UK_TYPE_DATA_NAME,clip(str2)) ! в str2 значение ключа - строкаКод: Выделить всё
TPD2:TYPE_DATA_NAME=clip(str2)
get(TYPE_DATA2,TPD2:UK_TYPE_DATA_NAME)
