我真的需要帮助Delphi ...文本文件和排序数组？

Question

我已经将一个文本文件(名称)读入一个数组,我需要如何将这些名称按字母顺序排序并在丰富的编辑中显示？

请从这一点开始给我代码:

readln(MYFILE,ARR [I]);

'myfile'是文本文件,'arr'是字符串数组.此外,我已将'i'声明为整数,即使它是一个字符串数组.这可以吗？

Answer 1

使用TStringList而不是数组,并将Sort属性设置为true.

var
  sortlist : TStringList;            // Define our string list variable
begin
  // Define a string list object, and point our variable at it
  sortlist := TStringList.Create;
  try
    // Now add some names to our list
    sortlist.Sorted := True;

    // And now find Brian's age
    sortlist.LoadFromFile(myfile);

    // Do something.
  finally    
    // Free up the list object
    sortlist.Free;
  end;
end;