Function von Form1 in Form2 anzeigen

[m-werk]

Hallo,

ich habe in Form1 eine function, die ich dort in einem Label auch anzeige.

Wie kann ich aber genau diese function auch in einem Label in einer "FORM2" anzeigen?

[DeddyH]

Wie zeigt man denn eine Function in einem Label an?

[m-werk]

Code:

label4.Caption := 'Version: ' + GetVersion;

Wenn ich aber in Form2 es wie folgt versuche:

Code:

label4.Caption := 'Version: ' + Form1.GetVersion;

Steht beim Compilieren: Undeklarierter Bezeichner: 'GetVersion'

[s.h.a.r.k]

Dann ist eine keine Methode vom TForm1, zumindest keine public-Methode. Wenn du die Methode GetVersion innerhalb der Unit1 definierst, dann musst du diese auch nach außen hin "sichtbar" machen:

Delphi-Quellcode:

unit Unit1;

uses
// ...

type
TForm1 = class(TForm)
  // ...
end;

// Ohne diese Zeile ist GetVersion nur innerhalb der Unit1 nutzbar,
// aber auch nur in dem Code, der unter der function steht.
function GetVersion(): string;

implementation

function GetVersion(): string;
begin
 Result := 'Blub';
end;

Soll GetVersion eine Methode von TForm1 sein, muss das wie folgt aussehen:

Delphi-Quellcode:

unit Unit1;

uses
// ...

type
TForm1 = class(TForm)
public
  function GetVersion(): string;
end;

implementation

function TForm1.GetVersion(): string;
begin
 Result := 'Blub';
end;

[m-werk]

Spitze, DANKE.

Und so lernt man immer was neues dazu!

[m-werk]

Eine Frage noch:
Ist das bei einer procedur das gleiche?

[DeddyH]

Und genau das ist eigentlich unschön. Wenn die Funktion/Methode nicht unmittelbar etwas mit Form1 zu tun hat, gehört sie in eine eigene Unit, welche dann eingebunden wird.