Daten von einem Formular in ein anderes übernehmen

[Gremlin]

Hallo,

na du kannst zb. eine class function in deiner Edit-Form definieren mit
Angabe des IR_Rahmen als Parameter oder ensprechend einzeln wenn gewünscht.
Als Rückgabewert gibst du einen Boolean zurück (True=ok und übernehmen, False=Werte verwerfen)

Damit es funktioniert sollte der Record in der Edit-Form bekannt sein. Wenn du das nicht
möchtest, dann nimmst du eben die Parameter einzeln, wird aber später wenn das Programm
einmal erweitert werden sollte, schnell unübersichtlich.


in der Edit-Form

Delphi-Quellcode:

type
  TEditForm = class
   [...]
  public
    class function Execute(var EditParam:IR_Rahmen):Boolean;
  end;

[...]

class function TEditForm.Execute(var EditParam:IR_Rahmen):Boolean;
begin
  with TEditForm.Create(Application) do begin
    <Editname>.Text := EditParam.Name;
    <Editgeraeteaddy>.Text := EditParam.geraeteaddy;
    [...]
    Result := (ShowModal=mrOK);
    if Result then begin
      EditParam.Name := <Editname>.Text;
      EditParam.geraeteaddy := <Editgeraeteaddy>.Text;
      [...]
    end;
  end;
end;

function TEditForm.FormClose...
begin
  if (ModalResult=mrOK) then begin
    // Hier die Werte prüfen auf plausibiblität
  end;
end;

und in der Hauptform wenn die Daten schon im Record stehen

Delphi-Quellcode:

  [...]
  if TEditForm.Execute(MyRecord) then begin
    // Daten übernehmen
  end;
  [...]