Einzelnen Beitrag anzeigen

Benutzerbild von sx2008
sx2008

Registriert seit: 16. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#14

AW: Record an 2tes Formular übergeben

  Alt 12. Dez 2010, 14:16
Ich würd' dann noch Folgendes ändern.
.Free statt .Release
Lokale Variable frm statt globale Variable Form2 verwendet
Private Methode EditPerson - damit wird im Code klar ausgedrückt, was hier passieren soll
Delphi-Quellcode:
procedure TForm1.EditPerson(var person:TPerson);
var
  frm : TForm2;
begin
  frm := TForm2.Create(nil);
  try
    frm.Person := person;
    if frm.ShowModal = mrOK then
      person := frm.Person;
  finally
    frm.Free;
  end;
end;
  Mit Zitat antworten Zitat