Variablen übergeben

[jonsen2.0.0.9]

nagut ich hab jetzt mal alles durchprobiert...aber nichts klappt.

Also:

in das edit feld in form2 soll man ein muster eingeben wie die uhrzeit dann formatiert werden soll (z.B. hh:nn:ss)

dann soll eine Variable diesen wert annehmen (z.B. hh:nn:ss) und dieses wird dann mit einem Timer ausgeführt und so die uhrzeit angezeigt:

Form1--->

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CheckLst, Menus, ExtCtrls, ShellAPI, unit2;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Musik1: TMenuItem;
    Video1: TMenuItem;
    Spiele1: TMenuItem;
    Anderes1: TMenuItem;
    CheckListBox1: TCheckListBox;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    Label2: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Optionen1: TMenuItem;
    ime1: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ime1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    AB: String;
  end;

var
  Form1: TForm1;
   sDir:String;
   AB:string;
implementation

{$R *.dfm}

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=FormatDateTime(AB,Now);
end;

Form2--->

Delphi-Quellcode:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}


procedure TForm2.Button1Click(Sender: TObject);
begin
 AB:=Edit1.Text;
end;

end.

[Micha88]

Du hast AB doppelt deklariert.

Nimm AB mal aus den GLOBALEN Variablen (Var) heraus

Dann Form2, Button1:

Form1.AB := Edit1.Text;

[jonsen2.0.0.9]

ok aus dem link werde ich nich ganz schlau.

hab jetzt ma probiert aber der meckert: [Fehler] Unit2.pas(39): Inkompatible Typen: 'TForm2' und 'TCaption'
naja weiss halt nich genau wie das gehen soll.

so siehts bis jetzt aus:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
Var AB:TForm1;
begin
AB:=TForm1.Create(nil);
AB:=Edit1.Text;
end;

naja irgendwas hab ich vergessen
so siehts beim link aus! aber ich weiss nich was der meint mit MeinText

Delphi-Quellcode:

uses
  Unit2;

procedure TForm1.Button1Click(Sender: TObject);
var
  ZweiteForm: TForm2;
begin
  ZweiteForm := TForm2.Create(nil);
  try
    ZweiteForm.MeinText := 'Dieser Text kommt aus Form1';        \\<-----------aber ich weiss nich was der meint mit MeinText
    ZweiteForm.ShowModal;
  finally
    ZweiteForm.Free;
  end;
end;

und was ich solnst noch brauche
hoffe ihr könnt mir auch da helfen.

[Micha88]

Properties siehe hier

[jonsen2.0.0.9]

ok danke geht jetzt!

VIELEN VIELEN DANK!

Michel habs jetzt so wie du gesagt hast GEHT!

[Micha88]

Zu meiner Lösung ist zu sagen:

Wenn du ein Programm mit VIELEN Variablen machst, und 20 dieser Variablen gehören zu "EINEM Gebiet", so fast man diese als record zusammen.

Ich verwende soetwas z.B. in meinem MovieManagement Programm,
ich lege alle Film-Bezogenen Variablen (Name, Titel, Länge usw..) in eine, Record ab.