Mega Code Archive
Dispose hakkında bir örnek
<![CDATA[
//Dispose : Hafızaya yüklenen pointerleri siler.
// TPanel koymanıza gerek yok. Formu güzel görünmesi için
// spinedit-> granti süresini vermek için
// beveller biliyorsunuz süslemek için kullandım.
type
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Bevel1: TBevel;
Bevel2: TBevel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
SpinEdit1: TSpinEdit;
Edit3: TEdit;
ListBox1: TListBox;
Button1: TButton;
Button2: TButton;
Bevel3: TBevel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Type
TCeptel = Record
Marka : string;
Model : string;
Garanti : integer;
Renk : string;
End;
var
Form1 : TForm1;
Ceptel : ^TCeptel;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
New(Ceptel);
Ceptel.Marka := Edit1.Text;
Ceptel.Model := Edit2.Text;
Ceptel.Garanti:= SpinEdit1.Value;
Ceptel.Renk := Edit3.Text;
with Listbox1.items do
begin
Add(Ceptel.Marka);
Add(Ceptel.Model);
Add(Inttostr(Ceptel.Garanti));
Add(Ceptel.Renk);
end;
ModalResult := MrOk;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
begin
if button1.ModalResult = mrok then
Dispose(Ceptel);
For i:=1 to 3 do
(FindComponent('Edit'+inttostr(i)) as TEdit).Text := '';
SpinEdit1.Value:=0;
Button1.ModalResult := mrCancel;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.BorderStyle:= bsDialog;
end;
end.
]]>