关于读文件的问题！！

Question

我知道将一个文件的一行读入一个textfile变量中用readln
可是我要通篇将一个文件的所有内容读入变量，然后对其操作，用什么阿 ？
谢谢！

Answer 1

FileRead，建立一个内存块，在读进去

Answer 2

Var
  FList: TStringList;
  tmpStr: String;
Begin
  FList:= TStringList.Create;
  FList.LoadFromFile(TextFileName);

Answer 3

DELPHI帮助procedure TForm1.Button1Click(Sender: TObject);var
  iFileHandle: Integer;
  iFileLength: Integer;
  iBytesRead: Integer;
  Buffer: PChar;
  i: Integer
begin
  if OpenDialog1.Execute then
  begin
    try
      iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
      iFileLength := FileSeek(iFileHandle,0,2);
      FileSeek(iFileHandle,0,0);
      Buffer := PChar(AllocMem(iFileLength + 1));
      iBytesRead = FileRead(iFileHandle, Buffer, iFileLength);
      FileClose(iFileHandle);      for i := 0 to iBytesRead-1 do
      begin
        StringGrid1.RowCount := StringGrid1.RowCount + 1;
        StringGrid1.Cells[1,i+1] := Buffer[i];
        StringGrid1.Cells[2,i+1] := IntToStr(Integer(Buffer[i]));
      end;
    finally
      FreeMem(Buffer);
    end;
  end;
end;

Answer 4

var
  S: TFileStream;
begin
  if OpenDialog1.Execute then
  begin
    S := TFileStream.Create (OpenDialog1.FileName, fmOpenRead);
    try
      Memo1.Lines.LoadFromStream(S);
    finally
      S.Free;
    end;
  end;
end;