VarType(V: variant):integer;

0 - нет данных;

1 - неизвестный тип;

2 – целый тип SmallInt;

3 – целый тип Integer;

4 – вещественный тип Single;

5 – вещественный тип Double;

6 – вещественный тип Currency;

7 – тип дата/время;

11 – логический тип WordBool;

12 - вариантный массив;

16 – целый тип Byte;

17 – строковый тип и т.д.

VarToStr(V:variant):string;

VarArrayCreate(bounds:array of integer; varType:integer):variant;

Листинг 31

var

a: variant;

begin

а := VarArrayCreate([0, 4], 1);

а[0] := 1;

а[1] := 1234.5678;

а[2] := 'здравствуйте';

а[3] := True;

а[4] := VarArrayOf([1, 10, 100, 1000]); {создание и заполнение одномерного массива}

WriteLn(а[2]); {здравствуйте}

WriteLn(а[4][2]); { 100 }

ShortString

String

AssignFile(f, <строка>);

CloseFile(f);

Menu

MenuDesigner

О ИО Items . . .

<название формы>.MainMenu1

ОИО Caption

Ctrl/→

Create Submenu

ОИО ShortCut

-

Insert

Delete

TMenuItem

N<номер>

Bitmap : TBitmap

mbNone

mbBreak

mbBarBreak

Break:

Checked: Boolean 

OnClick

PopupMenu

AutoPopup:boolean

TLabel

Label1

A

Caption: text

AutoSize: boolean

tlTop

tlCenter

tlBottom

Layout:

Transparent: boolean

WordWrap: boolean

abI

AutoSize: boolean

ecNormal

ecUpperCase

ecLowerCase

CharCase:

MaxLength: integer

PasswordChar: char

ReadOnly: boolean

SelLength: integer

SelStart: integer

SelText: string

OnKeyPress

Листинг 32

procedure TForm1.EditKeyPress(Sender:TObject; var Key: char);

begin

if (Key < '0') or (Key > '9') then

Key := #0; //введенный символ игнорируется

end;

Clear

ClearSelection

CopyToClipboard

CutToClipboard

PasteFromClipboard

SelectAll

TMemo



Lines:TStrings

Memo.Lines.Count

Text

TCheckBox



Caption

cbUnchecked

cbСhecked

cbGrayed

State:

Checked: boolean

AllowGrayed: Boolean

Alignment: taLeftJustify / taRightJustify

TRadioButton

_

Checked

Caption

TListBox

Columns: LongInt

Items: TStrings

ItemIndex: integer

Selected[i:integer]: boolean

Sorted: boolean

TComboBox

Р ис. 23

TListBox + TEdit

Style = csSimple

Рис. 24

TScrollBar

Рис. 25

Kind: sbHorizontal / sbVertical

Max

Min

Position

SetParams(Position, Max, Min: integer)

OnScroll

TRadioGroup

TRadioButton

Caption

Columns

ItemIndex

Items

TPanel



Caption

T GroupBox

ADDITIONAL

TBitBtn

Glyph

Program Files\Common Files\Borland Shared\Images\Buttons

Kind

Рис. 26

? Help	X Cancel	 Retry	 No	X Abord	All
 OK	 Yes	Close	Ignore	Custom

Kind = bkCustom

TSpeedButton

GroupIndex: integer

AllowAllUp:boolean

Down:boolean

Flat:boolean

TMaskEdit

EditMask:string