关于delphi读取文本文件的问题

Question

请问，delphi怎么读取“d:/gg.txt"的文本文件内容，希望 各位大大写出详细的过程，谢谢

Answer 1

var
  F:TFileStream;
begin
  F:=TFileStream.Create('D:\gg.txt');
  Memo1.Lines.LoadFromStream(F);

Answer 2

var     
  F: TextFile;    
  S: string;
begin    
  if OpenDialog1.Execute then 
  begin        
    AssignFile(F, OpenDialog1.FileName);//找到并打开d:/gg.txt     
    Reset(F);        
    Readln(F, S);        
    Edit1.Text := S;       
    CloseFile(F);    
  end;
end;

Answer 3

上面少了一个fmOpenRead参数，
F:=TFileStream.Create('D:\gg.txt',fmOpenRead);

Answer 4

偶掺和一下 上面两位的方法都可以实现 偶不再废话要是大文件用 冰火的合适 速度要快很多要是小文件lwk_hlj的方法方便的多

Answer 5

这里有偶文本数据库高手呀，帮我看看问题呀
http://community.csdn.net/Expert/topic/3343/3343618.xml?temp=.2345697

Answer 6

更方便的类：TStringListconst
  FileName = 'd:\gg.txt';
var
  FileContent: TStringList;
begin
  FileContent := TStringList.Create;
  if FileExists(FileName) then 
  begin
    FileContent.LoadFromFile(FileName);//自己写代码操作吧。
  end
  FileContent.Free;
end;

Answer 7

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('D:\gg.txt');
end;