разработка UDF [D6, IB6.x]
Kalaggan © (2002-11-25 19:23:00)
Всем привет, мастера подскажите почему не работает следующая
UDF
function NplToNum (var AAString:Pchar): integer;
function IsNum (aWord:String): boolean;
var
i: integer;
begin
result:=True;
for i:=1 to Length(aWord) do
begin
if not (aWord[i] in ["0".."9"]) then
begin
result:=False;
exit;
end;
end;
end;
var
delim : TSysCharSet;
astring:string;
begin
astring:=String(AAstring);
delim:=["-"];
result:=0;
if aString="" then
begin
result:=0;
exit;
end;
if WordCount(Astring,delim)=3 then
begin
if IsNum(ExtractWord(1,Astring,delim)) then
Result:=StrToInt(ExtractWord(1,Astring,delim))
else result:=0;
Exit;
end;
if (WordCount(Astring,delim)=1) and (Length(Astring)=3) then
begin
if IsNum(Astring) then result:=StrToInt(AsTring);
end;
end;
функция получает строку и на основе ее анализа выдает целое
значение.
проверяю в отдельном приложении все работает, а IB не
работает, сразу рвется связь с сервером. Подскажите кто может.
Заранее всем спасибо.
Prooksius (2002-11-25 19:27:00) [1]
www.ibase.ru
Наверх 
ЧАТ |
Орешник |
|
