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

LazStats: Remove Cancel btn from FactorUnit, improved usability of arrow btns, write report to StringList, not to OutputFrm directly. Add pdf to help file. Add Exchange() procedure to Utils.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7364 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-04-09 09:05:26 +00:00
parent c222b83196
commit e67df71726
8 changed files with 1433 additions and 1345 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,6 +9,10 @@ uses
function AnySelected(AListbox: TListBox): Boolean;
procedure Exchange(var a, b: Double); overload;
procedure Exchange(var a, b: Integer); overload;
procedure Exchange(var a, b: String); overload;
implementation
function AnySelected(AListBox: TListBox): Boolean;
@ -24,5 +28,32 @@ begin
end;
end;
procedure Exchange(var a, b: Double);
var
tmp: Double;
begin
tmp := a;
a := b;
b := tmp;
end;
procedure Exchange(var a, b: Integer);
var
tmp: Integer;
begin
tmp := a;
a := b;
b := tmp;
end;
procedure Exchange(var a, b: String);
var
tmp: String;
begin
tmp := a;
a := b;
b := tmp;
end;
end.