style, early return

This commit is contained in:
Basile Burg 2019-04-04 10:10:18 +02:00
parent 46527beb88
commit d3b689f2b6
1 changed files with 5 additions and 6 deletions

View File

@ -2103,13 +2103,12 @@ var
url: string; url: string;
begin begin
url := checkForUpdate; url := checkForUpdate;
if url <> '' then if url.isEmpty then
begin exit;
if dlgYesNo('An new release is available, do you wish to visit the release page ?' + if dlgYesNo('An new release is available, do you wish to visit the release page ?' +
lineEnding + '(' + url +')') = mrYes then lineEnding + '(' + url +')') = mrYes then
OpenURL(url); OpenURL(url);
end; end;
end;
procedure TMainForm.mnuItemManualClick(Sender: TObject); procedure TMainForm.mnuItemManualClick(Sender: TObject);
begin begin