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

Lazstats: Refactor LatinSpecsUnit and latinSqrsUnit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7447 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-05-10 23:10:20 +00:00
parent ca4fa9b510
commit 907ce43f18
19 changed files with 6000 additions and 3540 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,10 +5,12 @@ unit Utils;
interface
uses
Classes, SysUtils, StdCtrls;
Classes, SysUtils, StdCtrls, Dialogs;
function AnySelected(AListbox: TListBox): Boolean;
procedure ErrorMsg(const AMsg: String);
procedure Exchange(var a, b: Double); overload;
procedure Exchange(var a, b: Integer); overload;
procedure Exchange(var a, b: String); overload;
@ -28,6 +30,11 @@ begin
end;
end;
procedure ErrorMsg(const AMsg: String);
begin
MessageDlg(AMsg, mtError, [mbOK], 0);
end;
procedure Exchange(var a, b: Double);
var
tmp: Double;