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

[Bigeddie]

Hallo,

wie kann ich an ein Formular einen Pointer auf Integer (^înteger) übergeben, diesen dort verändern und außerhab des Formulars mit diesem neuen Wert weiterarbeiten?

Grüße

Ernst Jürgen

[shmia]

Du solltest deine Aufgabe etwas genauer beschreiben.
Was beinhaltet der Integer-Wert (Stückzahl, Alter, Jahreszahl, ...) ?
Modales Formular oder nicht-modal ?
Du brauchst für diesen Zweck sicher keinen Pointer; es gibt bestimmt einfachere und saubere Möglichkeiten.

[Bigeddie]

Der integer soll eine Bauteilnummer enthalten und das Fenster ist modal

[Tormentor32]

Wo befindet sich der Pointer denn? Ist er eine Variable deiner Form, oder ein Globale, oder... ?

[shmia]

Zitat:

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.