Pointer (^integer) an ein formular übergeben und Ändern

[shmia]

Zitat von Bigeddie:

Der integer soll eine Bauteilnummer enthalten und das Fenster ist modal

Na dann ist die Sache ganz einfach:
Das Formular bekommt ein Property BauteilNr.

Delphi-Quellcode:

property BauteilNr:integer read GetBauteilNr write SetBauteilNr;
....
procedure TBauteilForm.SetBauteilNr(Value:integer);
begin
   EditBauteil.Text := IntTostr(Value);
end;
function TBauteilForm.GetBauteilNr:integer;
begin
   result := StrToInt(EditBauteil.Text);
end;

Der Aufruf sieht dann so aus:

Delphi-Quellcode:

var
   frm : TBauteilForm;
begin
   frm := TBauteilForm.Create(nil);
   try
      frm.BauteilNr := XXXX;
      if frm.ShowModal = mrOK then
          XXXX := frm.BauteilNr;
   finally
      frm.Free;
   end;
end;

XXXX ist deine Variable in dem aufrufenden Formular.