Program ChangingParamsl; Var
I: Integer; Procedure
{ } Proc (A: Integer);
{ Proc , }
Begin
:= 154,
end; Begin I:= 200; Proc (I);
Proc (80);
End.
{ , . }
{ }
{ 1}
{ Proc,
I,
}
{ Proc,
80,
}
. -
. , (. . 4.2). . , , , , .
. 4.2.
Var ( . Vatriable ):
Procedure (..., Var <>: < >,...);
- , , , . , (. 4.4).
4.4.
Program ChangingParams2;
Var
I: Integer; { }
Procedure Proc (Var A: Integer);
{ Proc , }
Begin
:= 154; { , . , }
End;
Begin { }
I:= 200; { 1}
Proc(I); { Proc, I, , 154}
End.
, , - ( . Variable parameter -).
4.2.3.
Delphi Pascal . :
|
|
<>: < > = < >
, , , , ' . , , , , 4.5.
4.5.
Program UsingFunctions;
Var
s String; { S}
Function GetFullName SurName: String;
FirstName: String = ' ';
SecondName: String = ' ': String; { GetFullame , }
Begin
Result:= SurName + ' ' +
FirstName + ' ' + SecondName;
{ . , ' ', , ' '}
End
Begin { }
s= GetFullName ('');
{ S '
'}
s: = GetFullName('', '');
{ S '
'}
s:= GetFullName('', '', '');
{ S '
' }
End.
. , , . , , , , .
:
Procedure ChangeParam (P: ^Double); Begin
New(P); End;
, , , , . , , . , , , .
, :
Procedure ChangeParam (P: ^Double);
Begin
^:= 150; { , , }
New(P); { , , . }
^:= 320; { , , , }
|
|
Dispose (P); { , }
End;
, ( 4.6).
4.6.
Procedure ChangeParam (Var P:^Double); Begin
:= 150; { ,
,
}
New(P); {
,
.
,
}
P^:= 320; { ,
,
}
Dispose(P); { ,
, }
End;
, , , ", Var.
-
, , Const, - . Delphi .
Procedure (..., Const <>: < >,...);
, Const Var "Left side cannot be assigned to" - " ".
, Const, -. 4.7.
4.7. -
Procedure OpenFile(Const: FileName: AnsiString);
{ OpenFile, FileName ]
Var
sLocal: AnsiString;
{ }
Begin
FileName:= 4heFile.txt';
{ , FileName Const}
sLocal:= FileName; { }
End;
, ( -), , - , ( ) .
, . -, . Delphi , , , .
, . Delphi, , , , . , , . , .
Out:
|
|
Procedure (..., Out <>: < >,...);
4.8.
, , , . , . , , -, , .
, SaveToFile, , :
Procedure SaveToFile(Buffer: Pointer; Size: Integer);
, , , Buffer. @, , sizeOf, :
TRec = Record S: String; I: Integer; end; { ,
)
Var
Rec: Tree; { , , )