Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Añadido uReferenciasUtils.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@414 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-06-03 11:27:19 +00:00
parent 219798e3c9
commit aed91ee86c
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
Source/Base/Utiles/uReferenciasUtils.pas Normal file
View File

@ -0,0 +1,32 @@
unit uReferenciasUtils;
interface
{ Si ARef1 < ARef2 -> Result := -1
Si ARef1 = ARef2 -> Result := 0
Si ARef1 > ARef2 -> Result := 1 }
function CompararReferencias(const ARef1, ARef2 : String) : Integer;
implementation
uses
JclStrings, cxVariants;
function CompararReferencias(const ARef1, ARef2 : String) : Integer;
var
Aux1, Aux2 : String;
Rpl : Char;
begin
Rpl := '0';
Aux1 := StrReplaceButChars(ARef1, AnsiDecDigits, Rpl);
Aux2 := StrReplaceButChars(ARef2, AnsiDecDigits, Rpl);
if StrIsDigit(Aux1) and StrIsDigit(Aux2) then
Result := VarCompare(StrToIntSafe(Aux1), StrToIntSafe(Aux2))
else
VarCompare(Aux1, Aux2)
end;
end.