Скачать: CL | DM;

разработка UDF   Найти похожие ветки 

← →
Kalaggan   (2002-11-25 19:23) [0]

Всем привет, мастера подскажите почему не работает следующая 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) [1]

www.ibase.ru

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c