Question

delphi编程 文本数字排序

在一个文本中保存有8000行数据记录，如下：
1624
0341
3204
0302
5901
7534
……

现在需要将8000行数据导入memo，在导入过程中通过比较，实现以下排序：
0302
0341
1624
3204
5901
7534
……

如何实现？请高手赐教！！谢谢！（分不多，请多包涵）。

Answer 1

不用那么麻烦，用TStringList就可以排序。

procedure ReadFileAndSorted(const AFileName: string; var AResult: TStringList);
begin
  AResult.Clear;
  AResult.LoadFromFile(AFileName);
  AResult.Sort;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  TSResult: TStringList;
begin
  TSResult:= TStringList.Create;
  ReadFileAndSorted('d:\test.txt', TSResult);
  Memo2.Lines.Clear;
  Memo2.Lines.AddStrings(TSResult);
  TSresult.Free;
end;

Answer 2

用冒泡排序法，添加一个循环，具体还的看你项目需求

追问

高手，能否给段代码看看。。。实在没头绪。。。谢谢~~