Unidad System



Nombre :
System
Descripción :
Ofrece funciones y objetos básicos de uso común en los programas que utilizan la versión JEDI del Object Pascal
Autor :
Peter Fischer-Haase <pfischer@ise-online.de> commented as "pfh"


Índice

  1. Constantes
  2. Variables
  3. Funciones
  4. Funciones Externas
  5. Registros
  6. Clases


Constantes

WIN32
Su valor es 1 si el código se está ejecutando en una plataforma Win32, como por ejemplo, Win9x o Windows 2000. Si se ejecuta en una plataforma que no es Win32 su valor es 0.
LINUX
Su valor es 1 si el código se está ejecutando en una plataforma Linux. Si se ejecuta en una plataforma que no es Linux su valor es 0.
ISREMOTE
Especifica si el programa está siendo ejecutado como una URL o como local. Si su valor es 1 se está ejecutando remotamente. Si su valor es 0 se está ejecutando normalmente, es decir, como programa local.

Variables

Funciones

Move procedure Move(const Source; var Dest; Count: Integer);

Copia Count bytes desde Source a Dest.
ParamCount
procedure ParamCount;

Devuelve el número de parámetros pasados por línea de comandos a la máquina virtual. El número de parámetros que se obtenga no tiene porque ser el número de parámetros que se quieren pasar al programa, actualmente el número de parámetros es el número de parámetros pasados la máquina virtual, es decir, al binario que ejecuta el código JEDI Pascal.
ParamStr
procedure ParamStr(Index : integer) : string;

Devuelve la cadena pasada como parámetro número Index de la línea de comandos a la máquina virtual.
Randomize
procedure Randomize;

Inicializa el modo de generación de números aleatorios.
Random
function Random ( Range: Integer);

Devuelve un número aleatorio con un rango especificado por Range.
UpCase
function UpCase(Ch: Char): Char;

Convierte a mayúsculas el carácter pasado como parámetro Ch. Si se pasa una cadena de carácteres en vez de un carácter, se convierte a mayúsculas solo el primer carácter de la cadena.
VarType
function VarType(constV: Variant): Integer;

Devuelve el tipo de una variable pasada como parámetro V.
VarAsType
function VarAsType(constV: Variant; VarType: integer): Variant;

Convierte una variable Variant al tipo especificado como parámetro Vartype y devuelve una nueva variable Variant con el tipo especificado.
VarIsEmpty
function VarIsEmpty(constV: Variant): Boolean;

Devuelve true si la variable está vacía, falso si la variable no esta vacía.
VarIsNull
function VarIsNull(constV: Variant): Boolean;

Devuelve true si la variable tiene el valor Nil, falso en cualquier otro caso.
VarToStr
function VarToStr(const V: Variant): string;

Devuelve el resultado de la conversión de una variable de tipo Variant pasada como parámetro V a una de tipo string.

NOTA : Si la variable es nula o no se puede convertir correctamente el valor devuelto es una cadena vacía.
VarFromDateTime
function VarFromDateTime(DateTime: TDateTime): Variant;

Devuelve el valor de la conversión de una fecha especificada como parámetro DateTime a una variable Variant.
VarToDateTime
function VarToDateTime(const V: Variant): TDateTime;

Convierte una variable de tipo Variant a una de tipo TDateTime.

NOTA: Si la conversión no se puede ejecutar correctamente se produce una excepción del tipo EVariantError.
Ord
function Ord(X);

Devuelve el código ASCII de un carácter.
Chr
function Chr(X: Byte): Char;

Devuelve el carácter ASCII correspondiente al código ASCII pasado como parámetro X.
Abs
function Abs(X);

Devuelve el valor absoluto de una variable numérica. El parámetro X puede ser de tipo integer o real.
Length
function Length(S): Integer;

Devuelve el número de carácteres de la variable pasada como parámetro S.
Copy
function Copy(S : string; Index: integer; Count: Integer): string;

Devuelve una subcadena de S que empieza desde el carácter número Index hasta un total de carácteres Count.

Ejemplo :

La expresión siguiente devolvería la cadena 'esto' ya que empieza a leer desde el carácter 1 y toma 4 carácteres :

MyVar := copy('esto es un texto',1,4);

Round
function Round(Value: Extended): Int64;

La función Round redondea un valor Real a un valor Integer.

NOTA : Si al redondear se produce algún error se genera una excepción del tipo EInvalidOp.
Trunc
function Trunc(X: Extended): Int64;

La función Trunc trunca un valor Real a un valor integer.

NOTA : Si al efectuar la operación se produce algún error se genera una excepción del tipo EInvalidOp.
Pos
function Pos(Substr: string; S: string): Integer;

Devuelve la primera posición de la subcadena SubStr en S o 0 en otro caso.

Ejemplo :

La expresión siguiente devolvería 2, ya que se encuentra en la posición 2 de la cadena :

MyVar := Pos('b', 'abcdefg');

Delete
procedure Delete(varS: string; Index : integer; Count: Integer);

La función Delete elimina una subcadena de un total de Count carácteres de la cadena S comenzando desde el carácters número Index.

Ejemplo :

La expresión siguiente devolvería la cadena 'cdef' ya que se eliminan los 2 primeros carácteres de la cadena :

MyVar := Delete('abcdef',1,2);


Insert
procedure Insert(Source: string; var S: string; Index: Integer);

El procedimiento Insert fusiona la cadena S en la cadena Source en la posición Index de Source.

Ejemplo :

La expresión siguiente devuelve el nombre 'Joxean Coret' ya que se inserta la cadena 'an' en la posición 5 de la cadena :

var
  S: string;
begin
  S := 'Joxe Coret';
  Insert('an', S, 5);
  Result := S;
end;

Sqr
function Sqr(X: Integer): Integer;

La función sqr devuelve el cuadrado de un número especificado como parámetro X.
Sqrt
function Sqrt(X: Extended): Extended;

La función Sqrt devuelve la raíz cuadrada de un número especificado como parámetro X.
Exp
function Exp(X: Real): Real;

La función Exp devuelve el valor de e elevado a X.
Ln
function Ln(X: Real): Real;

Devuelve el logaritmo natural de X.
Sin
function Sin(X: Extended): Extended;

Devuelve el seno de X.
Cos
function Cos(X: Extended): Extended;

Devuelve el coseno de X.
Tan
function Tan(const X: Extended): Extended;

Devuelve la tangente de X.
ArcTan
function ArcTan(X: Extended): Extended;

Devuelve el arco tangente de X.
SetLength
procedure SetLength(var S; NewLength: Integer);

Establece el tamaño de S al valor NewLength.
ChDir
procedure ChDir(const S: string);

Establece el directorio como el valor especificado por S. Tiene el mismo resultado que el comando chdir de MS-DOS y UNIX/GNU Linux.

Funciones Externas

Registros

Clases


TInterfacedObject - TInterfacedObject es la clase base para clases que soportan interfaces.

Jerarquía : 

TObject
      |
TInterfacedObject

Métodos Get :

RefCount property RefCount: Integer;

Indica el número de referencias de puntero que dependen actualemente del objeto.

Métodos Set

Métodos IGet

Métodos ISet

Métodos IDGet

Métodos IDSet

Métodos DGet


TObject - TObject es el último ancestro de todos los tipos de objetos existentes.

Jerarquía : 

TObject es la clase padre de todos los objetos.

Métodos Get :

ClassInfo Class function ClassInfo: Pointer;

Devuelve un puntero a la información RTII para el tipo de objeto.
ClassName Class function ClassName: ShortString;

Devuelve una cadena que indica el nombre de calse de la instancia de objeto creada.
ClassNameIs Class function ClassNameIs(const Name: string): Boolean;

Determina si un objeto es del tipo Name.
ClassParent Class function ClassParent: TClass;

Devuelve el tipo del ancestro anterior de una clase.
ClassType function ClassType: TClass;

Devuelve una referencia a la clase del objeto.
InheritsFrom Class function InheritsFrom(AClass: TClass): Boolean;

Determina si AClass es ancestro del objeto.
InstanceSize Class function InstanceSize: Longint;

Devuelve el tamaño en bytes de cada instancia de un tipo de objeto.

Métodos Set

Métodos IGet

Métodos ISet

Métodos IDGet

Métodos IDSet

Métodos DGet


Author : Jose Antonio Coret
Creation Data : 07/10/2003
Modification Date : 07/10/2003
Document Version : 0.0.1