Форум: "Базы";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];
Внизсортировка IP адресов и не только.... Найти похожие ветки
← →
Chris (2002-01-25 09:30) [3]Можно попробовать такой вариант:
s1:="1.1.12.";
s2:="11.";
s1_:="";
s2_:="";
k:=0;
for i:=1 to length(s1) do
begin
if s1[i]="." then
begin
s1_:="."+FormatFloat("000",k)+s1_;
k:=0;
end;
else
k:=10*k+ord(s1[i])-48;
end;
k:=0;
for i:=1 to length(s2) do
begin
if s2[i]="." then
begin
s2_:="."+FormatFloat("000",k)+s2_;
k:=0;
end;
else
k:=10*k+ord(s2[i])-48;
end;
Теперь s1_=".012.001.001", а s2_=".011"
и теперь можно смело сортировать элементы.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c