简单问题，关于文件操作

[没数]

pascal程序
program sinfile1 (input,output,sfile);
var
sfile:file of real;
y:real;
i:integer;
begin
rewrite(sfile);
for i:=1 to 360 do
begin
y:=sin(i*3.14159/180);
write(sfile,y)
end
end.
怎样用delphi实现，谢谢

[没数]

能写的详细点吗，最好能写完整的代码？初学，谢谢，好心人加我 qq31489957
写上教你delphi就好

[没数]

自己顶，加分到100

[DWGZ]

根本都不用改
procedure Test(AFileName: TFileName);
var
sfile:file of real;
y:real;
i:integer;
begin
AssignFile(sfile, AFileName);
rewrite(sfile);
for i:=1 to 360 do
begin
y:=sin(i*3.14159/180);
write(sfile,y)
end;
CloseFile(sfile);
end;
end.

[zhoutian618]

传入的参数用ParamStr(1), ParamStr(2), ParamStr(3)代替就可以了。