Forum > General

SortColRow Function

<< < (2/2)

eny:
Or you could use the Math unit with the CompareValue functions:


--- Code: ---//...
  try
    result := CompareValue(StrToInt(Cells[ACol,ARow], StrToInt(Cells[BCol,BRow]);
  Except
    result := AnsiCompareText(Cells[ACol,ARow], Cells[BCol,BRow]);
  end;
//...
--- End code ---

fredycc:
I think eny that your solution is better, thanks  ;D

try
   Result := CompareValue(StrToInt(Cells[ACol,ARow]), StrToInt(Cells[BCol,BRow]));
Except
   Result:=AnsiCompareText(Cells[ACol,ARow], Cells[BCol,BRow]);
end;

Navigation

[0] Message Index

[*] Previous page

Go to full version