取TEXT文件行的文字!

Question

procedure  TForm1.Button1Click(Sender:  TObject); 
var 
    StrList:  TStringList; 
begin 
    StrList  :=  TStringList.Create; 
    try 
        StrList.LoadFromFile(MyFileName); 
        // 这里，StrList本身就可以看做一个数组，这样每一行对应它的一个项
        StrList.SaveToFile(MyFileName); 
    finally 
        FreeAndNil(StrList); 
    end; 
end;

Answer 1

procedure    TForm1.Button1Click(Sender:    TObject);  
var StrList: TStringList;  
    StrArray: array of string;
begin  
  StrList := TStringList.Create;  
  try  
    StrList.LoadFromFile(MyFileName);  
  finally  
    SetLength(StrArray, StrList.count);
    for i:=0 to High(StrArray) do StrArray[i] := StrList.Strings[i];
    FreeAndNil(StrList);  
  end;  
end;