paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 12:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed range error

Browse Source
This commit is contained in:
peter 2002-05-13 13:44:33 +00:00
parent 11a60a8a1e
commit 9f1a6bab94
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/wutils.pas
View File

@ -452,7 +452,7 @@ function StrToCard(const S: string): cardinal;
var L: cardinal; var L: cardinal;
C: integer; C: integer;
begin begin
Val(S,L,C); if C<>0 then L:=-1; Val(S,L,C); if C<>0 then L:=$ffffffff;
LastStrToCardResult:=C; LastStrToCardResult:=C;
StrToCard:=L; StrToCard:=L;
end; end;
@ -1269,7 +1269,10 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.8 2002-04-02 13:23:02 pierre Revision 1.9 2002-05-13 13:44:33 peter
* fixed range error
Revision 1.8 2002/04/02 13:23:02 pierre
+ HextToCard StrToCard new functions + HextToCard StrToCard new functions
Revision 1.7 2002/03/22 16:43:27 pierre Revision 1.7 2002/03/22 16:43:27 pierre