可能是语法问题， Edit1.Lines.Add(s );

Question

  var
     sDir: string;
     MyTextFile: TextFile;
     s: string;begin
    Edit2.text := strpas(GetIdeSerialNumber);
    sDir := ExtractFilePath(paramstr(0)) + 'OK.txt';
  //关联文件
  AssignFile(MyTextFile,Sdir);
  //判断文件是否存在
  if FileExists(sDir) then
    //以只读方式打开文本
    Reset(MyTextFile)
  else
    Raise Exception.Create('文件不存在！');
  try
    while not eof(MyTextFile) do
    begin
            Readln(MyTextFile,s);
Edit1.Lines.Add(s );　　这句对吗？
    end;

Answer 1

如果你的Edit1是Edit的话，ms不行哦，edit是单行的
用memo吧