p1,p2,p3: Integer; // integer
Begin
// integer
// ( )
New(p1);
New(p2);
New(p3);
1^:= 5;
2^:= 3;
3^:= 1^ + 2^;
ShowMessage(' ' + IntToStr(3^));
//
// ( , )
Dispose(p1);
Dispose(2);
Dispose(3);
end;
. , p1 2, . .
, .
(. 8.6).
. 8.6.
() , . . , , . , , .
, - . :
Type
TPStudent = ^TStudent; // TStudent
//
TStudent = record
surname: string [20]; //
name: string [20];' //
group: integer; //
address: string [60]; //
next: TPStudent; //
end;
Var
head: TPStudent; //
, . . . 8.7 .
head
. 8.7.
( 8.4) , . (. 8.8) (suttoni).
. 8.8. 1
8.4.
Unitdlist1_; interface
Uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls;
Type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit; //
Edit2: TEdit; //
Button1: TButton; //
Button2: TButton; //
procedure ButtonlClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
|
|
private
{ Private declarations } public
{ Public declarations } end;
Var
Form1: TForm1;
Implementation
{$R *.DFM)
Type
TPStudent=^TStudent; // TStudent
TStudent = record
f_name: string [20]; //
l_name: string [20]; //
next: TPStudent; //
end;
Var
head: TPStudent; // ()
//
procedure TForml.Button1Click(Sender: TObject);
Var
curr: TPStudent; //
Begin
new(curr); //
curr^.f_name:= Edit1.Text;
curr^.1_:= Edit2.Text;
//
curr^.next:= head; head:= curr;
//
Edit1.text:=''; Edit2.text: = ";
end;
//
procedure TForml.Button2Click(Sender: TObject);
Var
curr: TPStudent; //
n:integer; // (- )
st:string; //
begin n:= 0; st:= '';
curr:= head; //