Procedure TestYouData;<br> Var<br> _TmFl : Text;<br> Begin<br> If (FileExits('A.DAT')) Then Exit;<br><br> AssignFile(_TmFl,'A.DAT');<br> ReWrite(_TmFl);<br> WriteLn(_TmFl,'第1行');<br> WriteLn(_TmFl,'第2行');<br> WriteLn(_TmFl,'第3行');<br> CloseFile(_TmFl);<br> End;<br>