pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazStats: Load data files only when they have extension .laz.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7424 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-05-02 09:31:58 +00:00
parent 5874c00df8
commit 97f6e90678
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
applications/lazstats/source/units/dataprocs.pas
View File

@ -296,7 +296,7 @@ end;
procedure OpenOS2File;
begin
OS3MainFrm.OpenDialog1.DefaultExt := '.laz';
OS3MainFrm.OpenDialog1.Filter := 'LazStats (*.laz)|*.laz;*.LAZ|All files (*.*)|*.*';
OS3MainFrm.OpenDialog1.Filter := 'LazStats files (*.laz)|*.laz;*.LAZ|All files (*.*)|*.*';
OS3MainFrm.OpenDialog1.FilterIndex := 1;
if OS3MainFrm.OpenDialog1.Execute then
OpenOS2File(OS3MainFrm.OpenDialog1.FileName, true);
@ -309,6 +309,12 @@ var
i, j: integer;
NRows, NCols: integer;
begin
if Lowercase(ExtractFileExt(AFileName)) <> '.laz' then
begin
MessageDlg(Format('Incorrect file format ("%s")', [AFileName]), mtError, [mbOK], 0);
exit;
end;
DictLoaded := false;
OS3MainFrm.FileNameEdit.Text := ExpandFileName(AFileName);