Сортировка в тхт файле

[кабанискус]

Здравствуйте! Надеюсь на вашу помощь.
В тхт файле имеется набор координат х:у (срока:столбец) вроде:
1:4,1:5,1:6,1:7,1:8,1:9,3:3,3:5,3:6 ,3:7,3:8,5:4,5:5,5:6,5:7,5:8,7:3,7: 4,
необходимо отсортировать таким образом, чтобы получить их в таком виде:
1:9, 3:8, 5:8, 7:4
Это есть координаты всех черных пикселей бмп. Пробовал выписывать х и у в разные тхт файлы по отдельности, но ничего хорошего не получил. Еще в мыслях крутится выписывать сначала все числа до двоеточия, а затем после и затем как-то уже в один тхт их скомпановать, но не могу сообразить как это реализовать.

[evg_m]

Без файлов просто строка --> строка

r:=TStringList.Create;
r.Delimiter:=',';
r.DelimiterText:='1:4;1:5,1:6;..................';

res:='';
s:='';
for j:=0 to r.count-1 do begin
  if s='' then begin 
    s:=trim(r.strings[j]);
    s:=copy(s,1, pos(':',s));
  end;
  x:=trim(r.strins[j]); 
  if copy(x,1, pos(':',x)) =s then continue;
  // здесь x это то-то нам нужно
  res:=res+x; //собираем строку ответов
  s:='';
end;
if s<>'' then res:=res+x;

писал в блокноте, НЕ проверял

[Аватар]

function MyCompare(List: TStringList; Index1, Index2: Integer): Integer;
var i,x1,x2,y1,y2: Integer;
begin
  i:=Pos(':',List.Strings[Index1]);
  x1:=StrToInt(Copy(List.Strings[Index1],1,i-1));
  y1:=StrToInt(Copy(List.Strings[Index1],i+1,Length(List.Strings[Index1])));
  i:=Pos(':',List.Strings[Index2]);
  x2:=StrToInt(Copy(List.Strings[Index2],1,i-1));
  y2:=StrToInt(Copy(List.Strings[Index2],i+1,Length(List.Strings[Index2])));
  if x1<x2 then Result:=-1
  else if x1>x2 then Result:=1
  else if y1<y2 then Result:=1
  else if y1>y2 then Result:=-1
  else Result:=0;
end;

procedure TForm1.Button2Click(Sender: TObject);
var s: TStringList;
    i,j,k: Integer;
begin
  s:=TStringList.Create;
  s.LoadFromFile('d:\1.txt');
  s.Delimiter:=',';
  s.DelimitedText:=s.Text;
  s.CustomSort(MyCompare);
  k:=-1;
  for i:=0 to s.Count-1 do begin
    j:=Pos(':',s.Strings[i]);
    if StrToInt(Copy(s.Strings[i],1,j-1))<>k then begin
      Memo1.Lines.Add(s.Strings[i]);
      k:=StrToInt(Copy(s.Strings[i],1,j-1));
    end;
  end;
  s.Free;
end;

В d:\1.txt

1:4,1:5,1:6,1:7,1:8,1:9,3:3,3:5,3:6,3:7,3:8,5:4,5:5,5:6,5:7,5:8,7:3,7:4...

без всяких пробелов и прочей лабуды. Результат в мемо