简单问题，在线等

Question

Fn:file;
........
filename:='game.txt';
AssignFile(Fn,filename);
        if FileExists(filename) then
           begin
           Showmessage('文件存在');
           Read(Fn,Model);
........../
错误提示：
[Error] Unit1.pas(145): Incompatible types: 'procedure, untyped pointer or untyped parameter' and 'WideString'

Answer 1

Text Files 类型？？？
呵呵，不要笑，刚学

Answer 2

var
 filename:string;
 Model:string;
 a:string[100];
 Fn:TextFile;
......
var
 i:integer;
procedure Tmain.N6Click(Sender: TObject);
begin
 i:=0;
filename:='game.txt';
AssignFile(Fn,filename);
        if FileExists(filename) then
           begin
           Showmessage('文件存在');
           //Read(Fn,Model);
           while not seekeof(Fn) do
                begin
                        read(Fn,Model);
                         a[i]:=Model;//此处出错
                         i:=i+1;
错：[Error] Unit1.pas(152): Incompatible types: 'Char' and 'String'

Answer 3

关于读写的例子，你自己看一下！
procedure TForm1.FlatButton1Click(Sender: TObject);
var
  MyTextFile: TextFile;
  S: String;
  I: Integer;
begin
  AssignFile(MyTextFile, 'MyTextFile.txt');
  Rewrite(MyTextFile);
  try
    for I := 0 to 5 do
    begin
      S := 'This is line: ';
      Writeln(MyTextFile, S, I);
    end;
  finally
    CloseFile(MyTextFile);
  end;
end;procedure TForm1.FlatButton2Click(Sender: TObject);
var
  MyTextFile: TextFile;
  S: string[15];
  I: Integer;
  J: Integer;
begin
  AssignFile(MyTextFile, 'MyTextFile.txt');
  Reset(MyTextFile);
  try
    While not eof(MyTextFile)do
    begin
      Readln(MyTextFile, S, J);
      FlatMemo1.Lines.add(S + Inttostr(J));
    end;
  finally
    CloseFile(MyTextFile);
  end;
end;

Answer 4

你是不是只要判断是否存在文件  game.txt 啊？