14.11.2013, 09:47
|
|
ага
Код:
function MyCompare(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result:=CompareValue(StrToFloat(List.ValueFromIndex[Index2]),StrToFloat(List.ValueFromIndex[Index1]));
end;
там еще дробные числа нужно обрабатывать
|