mit 1. Form auf 2. Form zugreifen

[mkinzler]

Für was, eine Variable im Interface, öffentlicher Formmember oder property?

[taaktaak]

Delphi-Quellcode:

private
  FIrgendwas : Integer;
public
  property Irgendwas : Integer read FIrgendwas write FIrgendwas;
end;

implementation

//..

FIrgendwas:=99;

//..

Nun kannst du im Form2 auf Form1.Irgendwas zugreifen!

[Chemiker]

Hallo Affemitwaffe93,

oder so:

z.B.:

Form2 – Aufrufen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sTestString: String;
begin
  sTestString:= 'Aufruf ';
  TForm2.GetData1 (sTestString);
  ShowMessage('Das ist ein TestString: '+sTestString);
end;

In Form2 deklarieren:

Delphi-Quellcode:

public
    { Public-Deklarationen }
      class function GetData1 (var sString: String): Boolean;



implementation

class function TForm2.GetData1 (var sString: String): Boolean;
begin
  with TForm2.Create(nil) do
    try
      Result := ShowModal=mrok;  // ModalResult auf mrOk im OI einstellen
      if Result then
      begin
        sString:= sString+ 'Das ist ein Test';
      end; 
      finally
       free;                 
   end;
end;

Edit: end; nachgereicht

Bis bald Chemiker

[taaktaak]

Delphi-Quellcode:

if Result then 
      begin 
        sString:= sString+ 'Das ist ein Test'; 
      finally 
       free;                  
   end;

Hmm, sind begin und end da richtig gesetzt?
Schaut irgendwie komisch aus?

[Chemiker]

Hallo taaktaak,

Zitat:

Zitat von taaktaak

Schaut irgendwie komisch aus?

habe den Quellcode verbessert, ich hoffe er ist jetzt richtig.

Bis bald Chemiker

[taaktaak]

Hallo Chemiker,
bin kein Erbsenzähler, aber bevor es einen Einsteiger verwirrt...
:hi:

[Affemitwaffe93]

irgendwie sieht das von Taaktaak einfacher aus ^^

Delphi-Quellcode:

property Irgendwas : Integer read FIrgendwas write FIrgendwas;

das brauch ich alles oder ???

und dann hald nur die variable auf meinen Namen ändern ^^

[taaktaak]

JEIN, "write ..." wird nur benötigt, wenn du den Wert von ausserhalb auch ändern möchtest. Aber in jedem Fall - das ist insgesamt nur eine Möglichkeit von mehreren, so etwas zu realisieren.

[Affemitwaffe93]

ahhh ok ... ja will ich ^^

also nochmal vielen dank^^

[taaktaak]

Vielleicht noch mal etwas weiter erklärt. Mein Beispiel ist eigentlich noch nicht sehr sinnvoll. Gleiches wäre erreicht, wenn du die Variable einfach nur als public deklarierst:

Delphi-Quellcode:

private 
  public 
    Irgendwas : Integer; 
end; 

implementation 

//.. 

Irgendwas:=99; 

//..

So richtig sinnvoll sind Properties m.E. erst, wenn der Zugriff über Getter/Setter-Methoden erfolgt. Beispiel:

Delphi-Quellcode:

  private 
  FIrgendwas : Integer; 
  procedure SetIrgendwas(NeuerWert:Integer)
  function  GetIrgendwas:Integer;
public 
  property Irgendwas : Integer read GetIrgendwas write SetIrgendwas; 
end; 

implementation 

//.. 

procedure T~~.SetIrgendwas(NeuerWert:Integer);
begin
  if NeuerWert>0 then FIrgendwas:=NeuerWert;
  ShowMessage('FIrgendwas wurde verändert')
end;

function T~~.GetIrgendwas:Integer;
begin
  Result:=FIrgendwas;
  ShowMessage('FIrgendwas wurde gelesen')
end;

//..

Damit erhälts du interessante Möglichkeiten; du kannst z.B. den neuen Wert prüfen und eine Änderung nur unter bestimmten Bedingungen zulassen. Ausserdem sind lesende und schreibende Zugriffe auf die interne Variable jetzt quasi zu einem Event geworden auf das du unit-intern reagieren kannst (das ShowMessage() ist hier nur ein Platzhalter). Denkbar ist z.B., daß nach einer Änderung des Wertes von aussen, die Unit eine Anzeige aktualisiert - das wär ohne den Setter schon schwieriger zu realisieren.