------
hiXD

建兩個TStrings, 分兩欄, 再用Index對應!!

procedure TForm2.Button1Click(Sender: TObject);
var
text :TextFile;
str :TStrings;
tmp :string;
begin
str :=TStringList.Create;
AssignFile(text, '文件全路径');
reset(text);
while not EOF(text) do
begin
readln(text, tmp);
str.Add(tmp);
end;
//文本文件所有内容都在str中了
end; 用TStringList的方法最简单
var
str :Tstrings;
begin
str :=TStringList.create;
str.LoadFromFile('文件全路径');
str.strings[2] :='100';
str.SaveToFile('文件全路径');
end;
这样text文件也被修改了
end;
end.
至于排序你应该会吧!