1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
program breakprog;
procedure WriteLnIpc(aStr: String);
begin
Freemem(GetMem(1)); // writeln(aStr);
Freemem(GetMem(1)); // writeln(aStr+aStr);
end;
function CalcNextUpdTime(aTime: Integer): Integer;
begin
Freemem(GetMem(1)); // writeln(aTime);
Freemem(GetMem(1)); // writeln(aTime+aTime);
Result := 5*aTime;
end;
function StripFileDrive(const FileName: string): string;
begin
Freemem(GetMem(1)); // writeln(FileName);
Freemem(GetMem(1)); // writeln(FileName+FileName);
Result := FileName;
Delete(Result, 1, 1);
end;
begin
{$IFDEF CALL_ALL} StripFileDrive('11'); {$ENDIF}
WriteLnIpc('drive="%s", dir="%s", path="%s", nodrv=%s.');
CalcNextUpdTime(1);
WriteLnIpc('Now = ');
WriteLnIpc('UpdateTime = ');
WriteLnIpc('RealUpdateTime = ');
end.
|
