Question

delphi的richedit如何进行排序?

lines:
型号abc 数量123 修改时间2012-5-29 12:00
型号abc 数量456 修改时间2012-5-29 12:10
型号cba 数量100 修改时间2012-5-29 12:01

我想根据时间进行排序:
型号abc 数量123 修改时间2012-5-29 12:00
型号cba 数量100 修改时间2012-5-29 12:01
型号abc 数量456 修改时间2012-5-29 12:10

请问应该如何才能得到以上结果？

Answer 1

var
list1:tlistbox;
i:integer;
begin
list1:=tlistbox.Create(nil);
list1.Parent:=self;

for i:=0 to richedit1.Lines.Count-1 do
richedit1.Lines.Strings[i]:=rightstr(richedit1.Lines.Strings[i],14)+richedit1.Lines.Strings[i];
list1.Items.Assign(richedit1.Lines);
list1.Sorted:=true;
for i:=0 to list1.Items.Count-1 do
begin
list1.Items[i]:=trim(list1.Items[i]);
list1.Items[i]:=rightstr(list1.Items[i],length(list1.items[i])-22);
end;
richedit1.Lines.Assign(list1.items);
list1.Hide;
list1.Free;
end;

Answer 2

先排序处理，在写入richedit

Answer 3

用richedit1.Lines.Strings[i]把数据一行一行取出来，可以保存到数据库，也可以保存到stringlist，然后再进行排序，排序完成后再重新写入richedit。
保存时去日期当做一个字段，