Question

有关DELPHI中richedit的排序问题

在RICHEDIT中有如下记录:
X-019849Y01162
Y01162
X330151Y-54838
X-019849
我想要找出以上x和Y的最小值和最大值,请问有没有什么办法可以实现?
注:当没有标注X或Y座标时,以上一个座标为准.如第二段Y01162的X座标为:-019849
请给个简单的例子,如果有用的函数部分麻烦大侠给出说明.
谢谢!

Answer 1

有.
procedure TForm1.btn2Click(Sender: TObject);
var
sl:TStringList;
begin
sl:=TStringList.Create;
try
sl.AddStrings(redt1.Lines);
sl.Sort;
redt1.Lines.Assign(sl);
finally
sl.Free
end;
end;
如你所愿了