怎样把记事本里的内容再Memo里或者其他编辑工具里显示

Question

怎样把记事本里的内容再Memo里或者其他编辑工具里显示！

Answer 1

Procedure ReadTxt;
Var
　F : Textfile;
　str : String;
Begin
　AssignFile(F, 'c:\ek.txt'); {将文件名与变量 F 关联}
　Reset(F); {打开并读取文件 F }
　Readln(F, str);
　ShowMessage('文件有:' +str + '行。');
　Closefile(F); {关闭文件 F}
然后把str加到你指定的文本框或memo中End;

Answer 2

if FileExists('c:\1.txt') then
  Memo1.Lines.LoadFromFile('c:\1.txt');

Answer 3

var 
  S: string;
begin
  if OpenDialog1.Execute then            { Display Open dialog box }
  begin
    S := OpenDialog1.FileName;
    Memo1.Lines.LoadFromFile(S);
  end;
end;
我知道我的答案没有什么新鲜之处，我只想补充一点本质的东西，请注意，不是说只有TMemo类型的对象才能这样读取文件，事情的本质是Memo1.Lines是一个TStrings类型的对象，记住，所有TStrings类型的对象都可以使用LoadFromFile的方法，比如还有TRichEdit类型，这是为什么呢，因为，它的属性Lines的类型同样是TStrings。
并且，你还可以根据需要这样做：
var
  TestStrings : TStrings;
begin
  TestStrings := TStringList.Create;  //TStrings类型是抽象类型，用其子类实例化
  try
  ...
  finally
  TestStrings.Free;
  end;
end;

Answer 4

sorry，上面最后的代码是：
var
  TestStrings : TStrings;
begin
  TestStrings := TStringList.Create; //TStrings类型是抽象类型，用其子类实例化
  try
  ...
  TestStrings.LoadFromFile(File_Name);   //一样可以调用LoadFromFile方法
  ...
  finally
  TestStrings.Free;
  end;
end;