mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-09 08:52:40 +02:00
34 lines
773 B
ObjectPascal
34 lines
773 B
ObjectPascal
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.
|
|
|
|
|