xy9x3r/Inv_web
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Beta_cartrigesg_bd Beta v0.5

Browse Source
This commit is contained in:
Alexey
2026-07-25 17:23:46 +03:00
parent 1ee346940d
commit 264dee652f
1 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Inventera.iss
View File

@@ -166,8 +166,19 @@ end;
function IsValidPort(const Value: String; var PortNumber: Integer): Boolean; function IsValidPort(const Value: String; var PortNumber: Integer): Boolean;
begin begin
Result := TryStrToInt(Trim(Value), PortNumber) and Result := False;
(PortNumber >= 1) and (PortNumber <= 65535); PortNumber := 0;
if Trim(Value) = '' then
Exit;
try
PortNumber := StrToInt(Trim(Value));
except
PortNumber := 0;
Exit;
end;
Result := (PortNumber >= 1) and (PortNumber <= 65535);
end; end;
function IsValidIdentifier(const Value: String): Boolean; function IsValidIdentifier(const Value: String): Boolean;