30分钟结帖！帮我修改一下吧，读取文本到memo1

Question

帮我修改一下吧，读取文本到memo1.30分钟结帖   
 AssignFile(F, OpenDialog1.FileName);   { File selected in dialog box }
    Reset(F);
    try
    Memo1.Lines.Clear;
    For i:=1 to 100 do
    While Not EOF(F) do
    begin
    Memo1.Lines.Add(Readln(F,S[i]));
    end;
    CloseFile(F);
    finally
    CloseFile(F);
    end;

Answer 1

Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

Answer 2

procedure RealTextToMemo(Path:string);
var 
  F: TextFile;
  S: string;
beginAssignFile(F, Path);
Reset(F);
while not eof(F)do
begin
  Readln(F, S);
  Memo1.Lines.Append(S);
end;
closefile(F);end;

Answer 3

最简单：Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

Answer 4

同上：memo1.Lines.LoadFromFile(OpenDialog1.FileName);

Answer 5

晚了
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

Answer 6

var
  F:TextFile;
  S:string;
  i:integer;begin
  if OpenDialog1.Execute then
  begin
    try
      AssignFile(F, OpenDialog1.FileName);
      Reset(F);
      Memo1.Lines.Clear;
      While Not EOF(F) do
      begin
        Readln(F,S);
        Memo1.Lines.Add(s);
      end;
    finally
      CloseFile(F);
    end;
  end;
end;先学会写代码~~~你那种代码写个几十行后,少了个end,都不知道该加到哪CloseFile(F);有必要执行两次吗?

Answer 7

//也许你要的是以下这样的效果
var
      i : integer;
      list : TStringList;
begin
    try
      Memo1.Lines.Clear;
      list := TStringList.Create;
      list.LoadFromFile(OpenDialog1.FileName);    For i:=1 to 100 do
       Memo1.Lines.Add(Copy(list.Strings[i - 1], 1, i));    finally
      list.Free;
    end;
end;

Answer 8

Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

Answer 9

抢分
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

Answer 10

var
  f: TextFile;begin
  if OpenDialog1.Execute then
  begin
    try
      AssignFile(F, OpenDialog1.FileName);  //asociate f and filename
      Reset(F);                             //open file
      //Clear data
      if Memo1.lines.count > 0 then
        Memo1.lines.clear;
      //load data 
      Memo1.lines.LoadFromFile(Opendialog1.FileName                  
    finally
      CloseFile(F);
    end;
  end;
end;