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

LazStats: some more refactoring for LatinSpecsUnits, complete help for this form.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7448 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-05-11 16:21:39 +00:00
parent 907ce43f18
commit 06b3dbaa64
6 changed files with 206 additions and 326 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
applications/lazstats/source/units/utils.pas
View File

@ -10,6 +10,7 @@ uses
function AnySelected(AListbox: TListBox): Boolean;
procedure ErrorMsg(const AMsg: String);
procedure ErrorMsg(const AMsg: String; const AParams: array of const);
procedure Exchange(var a, b: Double); overload;
procedure Exchange(var a, b: Integer); overload;
@ -35,6 +36,11 @@ begin
MessageDlg(AMsg, mtError, [mbOK], 0);
end;
procedure ErrorMsg(const AMsg: String; const AParams: array of const);
begin
ErrorMsg(Format(AMsg, AParams));
end;
procedure Exchange(var a, b: Double);
var
tmp: Double;