paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 12:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed AV in GetURL

Browse Source 
* Removed useless code (warning)

git-svn-id: trunk@14879 -
This commit is contained in:
joost 2010-02-09 12:45:58 +00:00
parent c459100773
commit 257c6b0b89
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-web/src/webpage.pp
View File

@ -354,21 +354,16 @@ function TStandardWebController.DefaultMessageBoxHandler(Sender: TObject;
AText: String; Buttons: TWebButtons): string;
var i : integer;
HasCancel: boolean;
HasOk: boolean;
OnOk: string;
OnCancel: string;
begin
HasCancel:=false;
HasOk:=false;
OnOk:='';
OnCancel:='';
for i := low(Buttons) to High(Buttons) do
begin
if Buttons[i].ButtonType=btOk then
begin
HasOk := True;
OnOk := Buttons[i].OnClick;
end;
if Buttons[i].ButtonType=btCancel then
begin
HasCancel := True;
@ -425,6 +420,7 @@ begin
qs := '';
result := Action;
ARequest := GetRequest;
ActionVar := '';
if assigned(owner) then
begin
if (owner is TWebPage) and assigned(TWebPage(Owner).WebModule) then
@ -433,11 +429,9 @@ begin
WebMod := TFPWebModule(Owner);
ActionVar := WebMod.ActionVar;
if action = '' then
if (action = '') and assigned(WebMod.Actions) and assigned(WebMod.Actions.CurrentAction) then
result := WebMod.Actions.CurrentAction.Name;
end
else
ActionVar := '';
end;
if ActionVar='' then FancyTitle:=true;
if Assigned(ARequest) then
begin