Du könntest dazu dem ersten Form eine Prozedur hinzufügen die den String übergeben bekommt und dann das macht was damit gemacht werden muss
:
Delphi-Quellcode:
type
TForm1 = class(TForm)
...
private
{ Private-Deklarationen }
...
public
{ Public-Deklarationen }
procedure DoSomething(MyStr: String); //Deine Prozedur deklarieren
...
end;
...
implementation
procedure TForm1.DoSomething(MyStr: String); //Und hier noch implementieren
begin
Showmessage(MyStr);
end;
Nun muss du nur noch die
Unit (z.B. Unit1) in die uses-Klausel der zweiten
Unit packen und fertig:
Delphi-Quellcode:
procedure TForm2.Button1(Sender: TObject);
var temp : String;
begin
Form1.DoSomething(TEdit1.text);
Form2.Close;
end;
Gruß
Mr_G