delphi編程 文本數字排序

不用那麽麻煩，用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;

上一篇:新世紀高智能方程式賽車的按鍵操作

下一篇:在產品上標註pm平臺倒角是什麽意思？