Memo Feld aus anderem Formular auslesen

[Delphi-Narr]

Formular1 (Eingabe)

Delphi-Quellcode:

unit Formular1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdCtrls;

type
  TWort = class(TForm)
    Textfeld: TMemo;  //<-Hier ist das Textfeld...
    Hauptmenu: TMainMenu;
    Dokument: TMenuItem;
    Neu: TMenuItem;
    Sichern: TMenuItem; //<- Hier ist der Verweis auf Form2
    Oeffnen: TMenuItem;
    Schliessen: TMenuItem;
    Drucken: TMenuItem;
    Extras: TMenuItem;
    EMail: TMenuItem;
    Spende: TMenuItem;
    Hilfe: TMenuItem;
    Hilfedatei: TMenuItem;
    SaveDialog1: TSaveDialog;
    Schriftart: TMenuItem;
    Arial: TMenuItem;
    ComicSansMS: TMenuItem;
    TimesNewRoman: TMenuItem;
    Standard: TMenuItem;
    Textgroesse: TMenuItem;
    G7: TMenuItem;
    G9: TMenuItem;
    G11: TMenuItem;
    G13: TMenuItem;
    G15: TMenuItem;
    G20: TMenuItem;
    G30: TMenuItem;
    procedure SichernClick(Sender: TObject);
    procedure TextfeldChange(Sender: TObject);
    procedure ComicSansMSClick(Sender: TObject);
    procedure ArialClick(Sender: TObject);
    procedure TimesNewRomanClick(Sender: TObject);
    procedure StandardClick(Sender: TObject);
    procedure G7Click(Sender: TObject);
    procedure G9Click(Sender: TObject);
    procedure G11Click(Sender: TObject);
    procedure G13Click(Sender: TObject);
    procedure G15Click(Sender: TObject);
    procedure G20Click(Sender: TObject);
    procedure G30Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Wort: TWort;
  vText: string;
  datei:string;

implementation

uses Speichern;

{$R *.DFM}

procedure TWort.SichernClick(Sender: TObject);
begin
     Speicherdialog.show;  //<-Formular2 wird gezeigt
end;

procedure TWort.TextfeldChange(Sender: TObject);
begin
     vText:=Textfeld.Text;
end;

procedure TWort.ComicSansMSClick(Sender: TObject);
begin
     Textfeld.Font.Name:=('Comic Sans MS');
end;

procedure TWort.ArialClick(Sender: TObject);
begin
     Textfeld.Font.Name:=('Arial');
end;

procedure TWort.TimesNewRomanClick(Sender: TObject);
begin
     Textfeld.Font.Name:=('Times New Roman');
end;

procedure TWort.StandardClick(Sender: TObject);
begin
     Textfeld.Font.Name:=('MS Sans Serif');
end;

procedure TWort.G7Click(Sender: TObject);
begin
      Textfeld.Font.Size:=7;
end;

procedure TWort.G9Click(Sender: TObject);
begin
     Textfeld.Font.Size:=9;
end;

procedure TWort.G11Click(Sender: TObject);
begin
     Textfeld.Font.Size:=11;
end;

procedure TWort.G13Click(Sender: TObject);
begin
     Textfeld.Font.Size:=13;
end;

procedure TWort.G15Click(Sender: TObject);
begin
     Textfeld.Font.Size:=15;
end;

procedure TWort.G20Click(Sender: TObject);
begin
     Textfeld.Font.Size:=20;
end;

procedure TWort.G30Click(Sender: TObject);
begin
     Textfeld.Font.Size:=30;
end;

end.

Formular2 (Speicherformular)

Delphi-Quellcode:

unit Speichern;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TSpeicherdialog = class(TForm)
    Dateiname: TEdit;  //<-Hier kommt der Dateiname rein, unter dem gespeichert werden soll
    Label1: TLabel;
    Speichern: TButton; //<-In dieser Prozedur kommt die Fehlermeldung
    procedure SpeichernClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Speicherdialog: TSpeicherdialog;
  Datei : string;  //<-Meine Variable... Global!!!

implementation
uses Formular1; // heißt eigentlich anders...
{$R *.DFM}

procedure TSpeicherdialog.SpeichernClick(Sender: TObject);
begin
     Datei:=('C:\Users\') +Dateiname.text + ('.dat'); // Klappt wunderbar...
     Formular1.Textfeld.Lines.SaveToFile(Datei);      // Hier die oben genannte Fehlermeldung...
end;

end.

@Forlan: Was soll das bringen???