paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 03:47:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Some more fixes for case-sensitiveness

Browse Source
This commit is contained in:
michael 2003-05-29 22:30:37 +00:00
parent e9051d1061
commit dab70f699a
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fcl/inc/custapp.pp
View File

@ -312,7 +312,7 @@ Var
O,OV,SO : String;
HaveArg : Boolean;
Function FindLongOpt(Const S : String) : boolean;
Function FindLongOpt(S : String) : boolean;
Var
I : integer;
@ -325,8 +325,13 @@ Var
Dec(i);
end
else
I:=LongOpts.IndexOf(S);
Result:=(I<>-1)
begin
S:=UpperCase(S);
I:=LongOpts.Count-1;
While (I>=0) and (UpperCase(LongOpts[i])<>S) do
Dec(i);
end;
Result:=(I<>-1);
end;
begin
@ -379,7 +384,7 @@ begin
end
else
begin // Optional Argument.
If FindLongOpt(O+'::') then
If not FindLongOpt(O+'::') then
Result:=Format(SErrInvalidOption,[I,O]);
end;
end;