delphi4arab منتديات دلفي للعرب

الصفحات : 1 2

مالفرق بين هذا :

كود :
New(EcriRec);
  [U]EcriRec^.EdTitre[/U] := Edit1.Text;
  [U]EcriRec^.MemTexte[/U] := Memo1.Text;
  ListBox1.AddItem(Edit1.Text, {Pointer}TObject(EcriRec));

وهذا :

كود :
New(EcriRec);
  [U]EcriRec.EdTitre[/U] := Edit1.Text;
  [U]EcriRec.MemTexte[/U] := Memo1.Text;
  ListBox1.AddItem(Edit1.Text, pointer(EcriRec));

وهذا :

كود :
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Edit1.Text := pMyRec(ListBox1.Items.Objects
[ListBox1.ItemIndex])^.EdTitre;
  Memo1.Text := pMyRec(ListBox1.Items.Objects
[ListBox1.ItemIndex])^.MemTexte;
end;

وهذا :

كود :
procedure TForm1.ListBox1Click(Sender: TObject);
var LirRec: TMyRec;
begin
 LirRec := pMyRec(ListBox1.Items.Objects
[ListBox1.itemindex])^;
  Edit1.Text := LirRec.EdTitre;
  Memo1.Text := LirRec.MemTexte;}
end;

وهذا :

كود :
procedure TForm1.FormDestroy(Sender: TObject);
var
i:integer;
begin
For I := 0 To ListBox1.Items.Count - 1 Do
   Dispose(PMyRec(ListBox1.Items.Objects[i]));
end;

وهذا :

كود :
procedure TForm1.FormDestroy(Sender: TObject);
begin
if EcriRec <> nil then
 Dispose(EcriRec);
end;

الحذر من عدم تحرير ال records

الصفحات : 1 2

mohfa