paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 20:27:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added a lot of functions donated by GertJan Schouten

Browse Source
This commit is contained in:
michael 1998-04-10 15:18:21 +00:00
parent 80e4fa2639
commit f310cf5ad9
1 changed files with 34 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
rtl/objpas/sysutils.pp
View File

@ -16,6 +16,8 @@ unit sysutils;
interface
uses dos; { should become platform independent }
type
{ some helpful data types }
@ -44,7 +46,7 @@ unit sysutils;
constructor createfmt(const msg; const args : array of const);
constructor createres(indent : longint);
{ !!!! }
property helcontext : longint read fhelpcontext write fhelpcontext;
property helpcontext : longint read fhelpcontext write fhelpcontext;
property message : string read fmessage write fmessage;
end;
@ -56,8 +58,34 @@ unit sysutils;
ematherror = class(exception);
{ Read date & Time function declarations }
{$i datih.inc}
{ Read String Handling functions declaration }
{$i sysstrh.inc}
{ Read pchar handling functions declration }
{$i syspchh.inc}
{ Read filename handling functions declaration }
{$i finah.inc}
implementation
{ Read filename handling functions implementation }
{$i fina.inc}
{ Read date & Time function implementations }
{$i dati.inc}
{ Read String Handling functions implementation }
{$i sysstr.inc}
{ Read pchar handling functions implementation }
{$i syspch.inc}
constructor texception.create(const msg : string);
begin
@ -84,8 +112,11 @@ end.
{
$Log$
Revision 1.1 1998-03-25 11:18:49 root
Initial revision
Revision 1.2 1998-04-10 15:18:21 michael
Added a lot of functions donated by GertJan Schouten
Revision 1.1.1.1 1998/03/25 11:18:49 root
* Restored version
Revision 1.1 1998/02/05 11:11:32 michael
+ moved to objpas directory