+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : نقل الكتابة من (Edit1) الى(ListBox1) (للمبتدئين) (/showthread.php?tid=1761)
الصفحات:
1
2
نقل الكتابة من (Edit1) الى(ListBox1) (للمبتدئين) - mohfa - 08-03-2010
مالفرق بين هذا :
كود :
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;