geht auch nicht. ich denke aber dass ich das Problem eingrenzen kann.
Das Problem liegt an der List Box. die Übergabe mit listbox1:=listbox2 klappt irgendwie nicht.
Die Übergabe einer einfachen Stringvaribalen klappt gut. Hier der Code für den den es interessiert:
Delphi-Quellcode:
unit Main;
interface
uses
Sub, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm3 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormMain: TForm3;
implementation
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
sub.test_str:='
ich schreibe aus Main';
FormSub.showmodal;
end;
end.
und die sub
Delphi-Quellcode:
unit Sub;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm5 =
class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var FormSub: TForm5;
test_str:
string;
implementation
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
memo1.Text:=test_str;
end;
end.
Ich schliesse diesen Threat da das Übergabe Problem gelöst ist.
Ich öffnen eine neuen Threat mit dem eigentlichen Problem.
