82 lines
1.4 KiB
ObjectPascal
82 lines
1.4 KiB
ObjectPascal
/// Ìîäóëü ýëåêòðîííîãî çàäà÷íèêà PT for Exam
|
|
unit PT4Exam;
|
|
|
|
//------------------------------------------------------------------------------
|
|
// Ìîäóëü äëÿ ïîäêëþ÷åíèÿ çàäà÷íèêà PT for Exam
|
|
// Âåðñèÿ 1.1
|
|
// Copyright (c) 2014-2015 Ì.Ý.Àáðàìÿí
|
|
//------------------------------------------------------------------------------
|
|
|
|
|
|
interface
|
|
|
|
procedure Task(name: string);
|
|
procedure FinExam;
|
|
|
|
implementation
|
|
|
|
uses
|
|
PT4, System.IO, System.Text;
|
|
|
|
procedure ToWin(s: string);
|
|
begin
|
|
var fs: StreamReader := new StreamReader(s);
|
|
var fs1: StreamWriter := new StreamWriter('$$.tmp', false,
|
|
Encoding.Default);
|
|
fs1.Write(fs.ReadToEnd);
|
|
fs.Close;
|
|
fs1.Close;
|
|
System.IO.File.Delete(s);
|
|
System.IO.File.Move('$$.tmp',s);
|
|
end;
|
|
|
|
var
|
|
NextTask: boolean := False;
|
|
s1, s2: string;
|
|
|
|
procedure Task(name: string);
|
|
var
|
|
f: textfile;
|
|
begin
|
|
PT4.Task(name);
|
|
if NextTask then
|
|
exit;
|
|
NextTask := True;
|
|
GetS(s1);
|
|
GetS(s2);
|
|
if not FileExists(s1) then
|
|
begin
|
|
s1 := 'null1.tst';
|
|
Assign(f, s1);
|
|
Rewrite(f);
|
|
Close(f);
|
|
end;
|
|
if s2 = '' then
|
|
s2 := 'null2.tst';
|
|
Assign(input, s1);
|
|
Reset(input);
|
|
Assign(output, s2);
|
|
Rewrite(output);
|
|
end;
|
|
|
|
procedure FinExam;
|
|
begin
|
|
Close(input);
|
|
Close(output);
|
|
if s1 = 'null1.tst' then
|
|
Erase(input);
|
|
if s2 = 'null2.tst' then
|
|
Erase(output)
|
|
else
|
|
ToWin(s2);
|
|
NextTask := false;
|
|
end;
|
|
|
|
initialization
|
|
|
|
finalization
|
|
|
|
FinExam;
|
|
|
|
end.
|