Daten an Formular übergeben und zurücbekommen

[Fischli80]

Schönen guten Tag!

Ich habe folgendes (Anfänger?) Problem.

Ich möchte gerne ein Formular dazu benutzen die Daten eines Record Datentyps
zu editieren. Dazu ist es halt nötig die Daten von verschiedenen Punkten des
Programmes an das Edit-Formular zu übergeben. Wenn ich in diesem auf "Okay"
gehe bzw. das Fenster nach positivem Ende schließe, soll der geänderte Datentyp
an die Stelle des Programmes zurückgegeben werden von der der Aufruf kam.

Wie löse ich das am besten? Ich vermute, dass ich noch nich objektorientiert
genug denke

[MrSpock]

Hallo Fischli,

die anderen Teile des Programmes können doch auf das Edit-Feld des Formulars einfach zugreifen. Oder habe ich hier nicht verstanden, was du wirklich willst?

[SirThornberry]

eigentlich recht simpel die Lösung. Im Prinzip funktioniert das ganze wie bei einem Öffnendialog auch. Folgendes ist ein abgespeckter Beispielsource für das Editform.

Delphi-Quellcode:

[...]
type
  TYourRecord = record
    Entry1: String;
    Entry2: String;
  end;
  PYourRecord = ^TYourRecord;

  TEditForm = class(Form)
  [...]
  private
    FYourRecord: PYourRecord;
  public
    function Execute(var YourRecord: TYourRecord): Boolean;
  end;

function TEditForm.Execute(var YourRecord: TYourRecord): Boolean;
begin
  FYourRecord := @YourRecord;
  result := ShowModal = mrOk;
end;

procedure TEditForm.OKButtonClick(Sender: TObject);
begin
  FYourRecord^.Entry1 := Edit1.Text;
  FYourRecord^.Entry2 := Edit2.Text;
  modalresult := mrOK;
end;

function TEditForm.AbbrechenButtonClick(Sender: TObject);
begin
  modalresult := mrCancel;
end;

der Aufruf lautet dann ganze einfach

Delphi-Quellcode:

if EditForm.Execute(MeinZuEditierenderRecord) then
   showMessage('Erfolgreich')
else
   showMessage('Nicht editiert');