能不能给断读写txt文件的代码？？

Question

能不能给断读写txt文件的代码，txt文件有很多的行，我要读取后，用一个数组，每行对应数组的一个元素？？衷心的感谢，希望是调试能通过的·

Answer 1

var
  Strs: TStrings; //这就是一个字符串数组
begin 
  Strs := TStringList.Create;
  Strs.LoadFromFile('g:\aa.txt');
  //……
  Strs.SaveToFile('g:\aa.txt');
  //Strs.Free;
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i,z:integer; 
  f:system.textfile; 
  t:string; 
  data:array of string; 
begin 
  if opendialog1.execute then 
  begin 
    assignfile(f,opendialog1.filename); 
    reset(f); 
    z:=0; 
    setlength(data,0); 
    //Repeat for each line until end of file 
    repeat 
      inc(z); 
      readln(f,t); 
      setlength(data,length(data)+length(t)); 
      data[z]:=t; 
    until eof(f);     setlength(data,length(data)+3*z); 
    //Add to each line the line number 
    for i:=1 to z do data[i]:=inttostr(i)+' '+data[i]; 
    setlength(data,length(data)+2); 
    //Add a carriage return and line feed 
    data[1]:=data[1]+#13+#10; 
    i:=length(data[5]); 
    data[5]:=''; 
    setlength(data,length(data)-i); 
    //create a new textfile with the new data 
    assignfile(f,opendialog1.filename+'2'); 
    rewrite(f); 
    //write all lines 
    for i:=1 to z do writeln(f,data[i]); 
    //save file and close it 
    CloseFile(f); 
  end; 
end; 

Answer 3

procedure TForm1.BitBtn6Click(Sender: TObject);
var
  FileName : TextFile;
  Str,Tmp : String;
  TStrList : TStringList;
  i,k : Integer;
begin
  TStrList := TStringList.Create;
  TStrList.Clear;
  if not (FileExists(GetNameDir(Application.ExeName)+'xuanhao.txt')) then
  begin
    Application.MessageBox('xuanhao.txt文件不存在，请先转出TXT文件','提示',MB_OK+MB_ICONSTOP);
    Exit;
  end;
  AssignFile(FileName,GetNameDir(Application.ExeName) + 'xuanhao.txt');
  Reset(FileName);
  Readln(FileName,Str);
  CloseFile(FileName);