16,748
社区成员
发帖
与我相关
我的任务
分享
type
TWINRING_Data=array[0..1987] of char;
var
WINRING_Data:TWINRING_Data;
procedure TForm1.Button2Click(Sender: TObject);
var
sfile: file of TWINRING_Data;
str: string;
begin
AssignFile(dfile ,'d:\bb.txt') ;
Rewrite(dfile);
write(dfile,WINRING_Data);
closefile(dfile);
end;
type
TWINRING_Data=array[0..1987] of char;
var
WINRING_Data:TWINRING_Data;
procedure TForm1.Button2Click(Sender: TObject);
var
sfile: file of TWINRING_Data;
str: string;
begin
AssignFile(dfile ,'d:\bb.txt') ;
Rewrite(dfile);
write(dfile,WINRING_Data);
closefile(dfile);
end;