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

First public commit

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@639 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
MageSlayer
2008-12-21 21:46:28 +00:00
parent 2e85188ebc
commit 05a5e2c6a2
34 changed files with 5978 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
examples/germesorders/uutils.pas Normal file
View File

@ -0,0 +1,30 @@
unit uUtils;
{$mode objfpc}{$H+}
interface
function Iif(Cond:boolean; const TrueResult:String; const FalseResult:string):string;overload;
function Iif(Cond:boolean; const TrueResult:integer; const FalseResult:integer):integer;overload;
function IfEmpty(const S:String; const ThenReplace:string):string;
implementation
function IfEmpty(const S:String; const ThenReplace:string):string;
begin
if S = '' then Result:=ThenReplace else Result:=S;
end;
function Iif(Cond:boolean; const TrueResult:String; const FalseResult:string):string;overload;
begin
if Cond then Result:=TrueResult else Result:=FalseResult;
end;
function Iif(Cond:boolean; const TrueResult:integer; const FalseResult:integer):integer;overload;
begin
if Cond then Result:=TrueResult else Result:=FalseResult;
end;
end.