Delphi 2种排序方法

比较第一个字串的最小值，然后取出第二字串中相应的一组

 

方法一；

function GetMinValue(s1,s2:string):string;
var
ss1,ss2:TStringList;
MinIndex:integer;
i:integer;
begin
ss1:=TStringList.Create;
ss2:=TStringList.Create;
ss1.Delimiter:=',';
ss1.DelimitedText:=s1;
ss2.Delimiter:=',';
ss2.DelimitedText:=s2;
MinIndex:=0;
for i:=1 to ss1.Count-1 do
  begin
  if strtoint(ss1[i]) <strtoint(ss1[MinIndex]) then
    MinIndex:=i;
  end;
result:=ss2[MinIndex];
ss1.Free;
ss2.Free;
end;

T1:='25,89,21,54,21,78,63,142';
T2:='AA,BB,CC,DD,EE,FF,GG,HH';
showmessage(GetMinValue(T1,T2));

 

方法二；

var
  List: TStringList;
begin
  List := TStringList.Create;

  List.Add('25=AA');
  List.Add('89=BB');
  List.Add('12=CC');
  List.Add('54=DD');
  List.Add('15=EE');
  List.sort;
  showmessage(List.ValueFromIndex[0]);
end;

 

搞了我一下午了。。。