diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2014-06-23 21:50:48 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2014-06-23 21:50:48 +0100 |
| commit | 3b299881fb6656c12780849486682e5875348494 (patch) | |
| tree | fc215ce5d4eee330b7cee478b92c99d68187f1a3 /examples/gui/filedialog | |
| parent | 3fee751e6fcdd119a0e0129bc0d9745199a75191 (diff) | |
| download | fpGUI-3b299881fb6656c12780849486682e5875348494.tar.xz | |
Demos: fixed compiler warnings.
* fixed deprecated functions
* fixed unused variables
* fixed unused units
* fixed not initialised variables
* fixed nested comments
Diffstat (limited to 'examples/gui/filedialog')
| -rw-r--r-- | examples/gui/filedialog/filedialog.lpr | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/examples/gui/filedialog/filedialog.lpr b/examples/gui/filedialog/filedialog.lpr index e1dca3d7..315b7885 100644 --- a/examples/gui/filedialog/filedialog.lpr +++ b/examples/gui/filedialog/filedialog.lpr @@ -105,6 +105,7 @@ procedure TMainForm.btnUserInputClicked(Sender: TObject); var lAnswer: TfpgString; begin + lAnswer := ''; if fpgInputQuery('Caption here', 'And the prompt goes here', lAnswer) then ShowMessage(Format('User entered <%s>', [lAnswer])); end; |