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'
........
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'
呵呵,不要笑,刚学
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'
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;