paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 19:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid RTE 211 on At method with wrong index

Browse Source
This commit is contained in:
pierre 2001-08-07 21:27:34 +00:00
parent 634a68bf3e
commit 513c329b25
1 changed files with 36 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
ide/fpswitch.pas
View File

@ -425,7 +425,10 @@ function TSwitches.ItemName(index:integer):string;
var
P : PSwitchItem;
begin
P:=Items^.At(Index);
if index<ItemCount then
P:=Items^.At(Index)
else
P:=nil;
if assigned(P) then
ItemName:=P^.Name
else
@ -437,7 +440,10 @@ function TSwitches.ItemParam(index:integer):string;
var
P : PSwitchItem;
begin
P:=Items^.At(Index);
if index<ItemCount then
P:=Items^.At(Index)
else
P:=nil;
if assigned(P) then
ItemParam:='-'+Prefix+P^.Param
else
@ -449,7 +455,10 @@ function TSwitches.GetBooleanItem(index:integer):boolean;
var
P : PBooleanItem;
begin
P:=Items^.At(Index);
if index<ItemCount then
P:=Items^.At(Index)
else
P:=nil;
if assigned(P) and (P^.Typ=ot_boolean) then
GetBooleanItem:=P^.IsSet[SwitchesMode]
else
@ -461,7 +470,10 @@ function TSwitches.GetLongintItem(index:integer):longint;
var
P : PLongintItem;
begin
P:=Items^.At(Index);
if index<ItemCount then
P:=Items^.At(Index)
else
P:=nil;
if assigned(P) and (P^.Typ=ot_longint) then
GetLongintItem:=P^.Val[SwitchesMode]
else
@ -473,7 +485,10 @@ function TSwitches.GetStringItem(index:integer):string;
var
P : PStringItem;
begin
P:=Items^.At(Index);
if index<ItemCount then
P:=Items^.At(Index)
else
P:=nil;
if assigned(P) and (P^.Typ=ot_string) then
GetStringItem:=P^.Str[SwitchesMode]
else
@ -485,7 +500,10 @@ procedure TSwitches.SetBooleanItem(index:integer;b:boolean);
var
P : PBooleanItem;
begin
P:=Items^.At(Index);
if index<ItemCount then
P:=Items^.At(Index)
else
P:=nil;
if assigned(P) and (P^.Typ=ot_boolean) then
P^.IsSet[SwitchesMode]:=b;
end;
@ -495,7 +513,10 @@ procedure TSwitches.SetLongintItem(index:integer;l:longint);
var
P : PLongintItem;
begin
P:=Items^.At(Index);
if index<ItemCount then
P:=Items^.At(Index)
else
P:=nil;
if assigned(P) and (P^.Typ=ot_longint) then
P^.Val[SwitchesMode]:=l;
end;
@ -505,7 +526,10 @@ procedure TSwitches.SetStringItem(index:integer;const s:string);
var
P : PStringItem;
begin
P:=Items^.At(Index);
if index<ItemCount then
P:=Items^.At(Index)
else
P:=nil;
if assigned(P) and (P^.Typ=ot_string) then
P^.Str[SwitchesMode]:=s;
end;
@ -1193,7 +1217,10 @@ end;
end.
{
$Log$
Revision 1.1 2001-08-04 11:30:24 peter
Revision 1.2 2001-08-07 21:27:34 pierre
* avoid RTE 211 on At method with wrong index
Revision 1.1 2001/08/04 11:30:24 peter
* ide works now with both compiler versions
Revision 1.1.2.11 2001/08/03 13:07:47 pierre