Units | Class Hierarchy | Classes, Interfaces and Objects | Types | Variables | Constants | Functions and Procedures | Identifiers

# Class TIFPSInternalProcedure

## Unit

ifpscomp

## Declaration

`type TIFPSInternalProcedure = class(`TIFPSProcedure`)`

## Description

TIFPSInternalProcedure stores information for scripted procedures

## Hierarchy

`TIFPSProcedure`

## Methods

### Overview

| `constructor Create;`
| `destructor Destroy; override;`
| `procedure ResultUse;`
| `procedure Use;`

### Description

| `constructor Create;`

IFPS3_mi2s(position)+IFPS3_mi2s(destinationnamehash)+destinationname

| `destructor Destroy; override;`

| `procedure ResultUse;`

Use the result variable

| `procedure Use;`

Use this procedure

## Properties

### Overview

| `property aExport: TIFPSExportType;`
| `property Data: string;`
| `property Decl: string;`
| `property DeclareCol: Cardinal;`
| `property DeclarePos: Cardinal;`
| `property DeclareRow: Cardinal;`
| `property Forwarded: Boolean;`
| `property Gotos: TIfStringList;`
| `property Labels: TIfStringList;`
| `property Name: string;`
| `property NameHash: Longint;`
| `property OriginalName: string;`
| `property OutputDeclPosition: Cardinal;`
| `property ProcVars: TIFList;`
| `property ResultUsed: Boolean;`
| `property Used: Boolean;`

### Description

| `property aExport: TIFPSExportType;`

The export mode

| `property Data: string;`

The compiled code for this procedure

| `property Decl: string;`

The declaration for this procedure: [RESULTTYPE] [PARAM1MODIFIER][PARAM1NAME] [PARAM1TYPE] [PARAM2MODIFIER] [PARAM2NAME] ... Modifiers: WARNING: @ = Normal Parameter ! = Var parameter

| `property DeclareCol: Cardinal;`

The col part of the position

| `property DeclarePos: Cardinal;`

The position this procedure is declared

| `property DeclareRow: Cardinal;`

The row part of the position

| `property Forwarded: Boolean;`

This field is true when the last declaration of this procedure was forwarded

| `property Gotos: TIfStringList;`

All goto's within this procedure

| `property Labels: TIfStringList;`

All labels within this procedure

| `property Name: string;`

The name for this procedure (in uppercase)

| `property NameHash: Longint;`

The hash for the name of this procedure

| `property OriginalName: string;`

The original name

| `property OutputDeclPosition: Cardinal;`

This field is used when writing the byte code. Do not set or change this

| `property ProcVars: TIFList;`

A list with all local variables

| `property ResultUsed: Boolean;`

This field is true when the result of this function is assigned somewhere

| `property Used: Boolean;`

True when this procedure is called from somewhere