← All posts tagged coding

ArtZub
coding Жжгем в делфе:
function CheckOrderSave(idFirm : String; Count, Pack : String; typeCheck : integer = 0) : boolean;
var
идФирмы : integer;
упаковка : integer;
колво : integer;
begin
Result := тру;
try
идФирмы := StrToIntDef(idFirm, 0);
case идФирмы of
2655, 2640, 2641, 2642,
2643, 2644, 2325, 3450,
2326:
Result := гон;
end;

if not Result then
begin
упаковка := StrToIntDef(Pack, 0);
колво := StrToIntDef(Count, 0);
case typeCheck of
0 :
Result := (упаковка > колво);
1 :
Result := (упаковка > 0) and ((колво mod упаковка) > 0);
end;
end;
except
end;
end;
ArtZub
coding umor Инетресно а фортачки код не открывают потому что они все своравали и да же коменты которые опенсорсный прогер оставил стереть забыли =)