Variablen übergeben

[jonsen2.0.0.9]

Hallo,

ich schreibe gerade ein programm bei dem ich 2 forms habe.

allerdings möchte ich wenn man auf form2 einen button klick, das ein bestimmter wert(Form2.Edit1.text) übergeben wird an Form 1 und dort dann eine Vaiable dieses als wert annimmt.


Also kurz:

Form1 und Form2

in Form2 wirt ein wert mit hilfe eines buttons und eines editfeldes ermittelt (ein format für die zeit),

dieses format soll an eine globale variable der unit1 übergeben werden.

sorry noch kein code vorhanden der helfen könnte!

[hoika]

Hallo,

globale Variable ist das Stichwort.

Definiere eine neue Unit uVars

Delphi-Quellcode:

unit uVars;

var
  iXXX: Integer;
  sXXX: String;

interface

implementation

end;

Die bindest du in beide Forms ein
und benutzt sie.

D.h. du hast nur eine Variable.



Heiko

[Jens Hartmann]

Hallo,

der richtige Weg, wären so glaube ich zumindesten probertys. Die Frage ist halt, was du damit in der zweiten Form machen willst. Du kannst das ganze auch z.B. als Sender an eine Funktion in der anderen Form übergeben.

Die Frage wäre halt, was Du damit machen willst.

[EDIT] Das mit dem Unit uVars wäre natürlich auch eine Möglichkeit.
MFG

Jens

[fui-tak]

Du könntest einfach eine globale Variable, die überall im ganzen Programm zu erreichen ist, deklarieren, nämlich so

Delphi-Quellcode:

...
var
  Form1: TForm1;
  meineGlobaleVariable: String;

implementation
...

oder du machst dir eine Variable in Form1 rein:

Delphi-Quellcode:

TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen}
  public
    meineVariable: String;
  end;

Zum Verwenden kannst du dann in dem ButtonClick Ereignis in Form2 einfach sowas machen

Delphi-Quellcode:

//Beipsiel 1
meineGlobaleVariable := 'abc';

//Beispiel 2
Form1.meineVariable := 'abc';

[Micha88]

oder, wenn es viele zusammengehörige Variablen sind so:

Delphi-Quellcode:

type TmyRecord packed record
 myVar1: String;
 myVar2: String;
end;

// var
var
 //Form1: TForm1;
 mySpecialVars: TmyRecord;

// procedure button ..
begin
 mySpecialVars.myVar1 := 'abc';
 mySpecialVars.myVar2 := 'def';
end;

[himitsu]

Nimm Unit1 (Form1) in die Uses der Unit2 (Form2) auf ... und zwar im Implementation-Abschnitt,
dann kannst du auf die Form1 zugreifen und kannst dort die Werte übergeben.

Oder in Form1 greifst du auf Form2 zu und holst dort die Werte ab.

Jenachdem wie die Forms angezeigt werden.

[Luckie]

Zitat von hoika:

globale Variable ist das Stichwort.

Autsch. Aber leider das falsche.

So ist es besser: http://www.michael-puff.de/Developer...tauschen.shtml

[Micha88]

Ich dneke, wenn man nicht weis, wie man eine for-schleife bedient, Variablen übrgibt usw, dann sollte man um propertys einen Bogen machen =)

[Luckie]

Oder man lernt es besser gleich richtig.

[Micha88]

Dafür bin ich ja auch, aber das Stichwort ist "Basics". =)