Variable zwischen 2 Forms übergeben?

Re(3): Variable zwischen 2 Forms übergeben?

Robert Craven — Tue, 13 Feb 2007 23:07:18 GMT

Unit1:


uses unit2;
procedure TForm1.Button1Click(Sender: TObject);
var form2 : TForm2;
begin
   form2 := TForm2.Create(Application);
   form2.init(edit1.text);
   form2.ShowModal;
   form2.release;
end;

Unit2:


type
  TForm2 = class(TForm)
    Edit2: TEdit;
  public
    procedure init(ed1:string);
  end;

procedure TForm2.init (ed1:string);
begin
  edit2.text := ed1;
end;

Damit steht dann im form2.edit2.text das Gleiche wie in form1.edit1.text. Analog kannst da alles übergeben.

Re(3): Variable zwischen 2 Forms übergeben?

Robert Craven — Tue, 13 Feb 2007 23:07:18 GMT


<b>Unit1:</b>
uses unit2;
procedure TForm1.Button1Click(Sender: TObject);
var form2 : TForm2;
begin
   form2 := TForm2.Create(Application);
   form2.init(edit1.text);
   form2.ShowModal;
   form2.release;
end;


<b>Unit2:</b>
type
  TForm2 = class(TForm)
    Edit2: TEdit;
  public
    procedure init(ed1:string);
  end;

procedure TForm2.init (ed1:string);
begin
  edit2.text := ed1;
end;

Damit steht dann im form2.edit2.text das Gleiche wie in form1.edit1.text. Analog kannst da alles übergeben.

Re(2): Variable zwischen 2 Forms übergeben?

userNumberOne — Tue, 13 Feb 2007 18:52:56 GMT

jo, so ähnlich hab ich's eh gemacht:

Ich hab in Form2 ne Procedure geschrieben: procdure Init(id:integer);

In Form 1:
Form2.Init(Übergabewert)

In Form 2:

procdure Init(id:integer);
begin
self.id:=id;
end;

Nur leider hat id immer den Wert 0 (die ID ist eigentlich ein PrimaryKey einer Tabelle), ausser wenn ich in der Procedure Init ein ShowMessage(ID) mache, dann wird der richtige Wert angezeit, aber in den anderen Prozeduren in der Form 2 wird immer 0 angezeit, was kann da falsch sein?

mfg

Re: Variable zwischen 2 Forms übergeben?

Robert Craven — Tue, 13 Feb 2007 18:18:52 GMT

In der Art:

In Form1:
...
form2 := TForm2.create;
form2.wert2 = wert1;
form2.show;
...

In Form2:
TForm2 = class(TForm)
public
wert2 : Integer;
end;
...

Variable zwischen 2 Forms übergeben?

userNumberOne — Tue, 13 Feb 2007 17:50:44 GMT

Hallo!

Bin noch ziemlicher Programmier-Anfänger, und hab jetzt ein Problem in Delphi:

Ich will eine Variable (integer) von meiner Form A in die zweite Form (Form B) "übertragen", und dort damit weiterarbeiten (d.h. ich benötige den Wert von der Variable in Form B)!
Ich hoffe, jmd. kann mir helfen

mfg