Funktion oder procedure???

[Piro]

Moin

ich möchte gerne in einer procedure eine zweite aufrufen und dieser ein Editfeld übergeben.
Die zweite Procedure berechnet dann irgend etwas und gibt das Ergebnis an das Editfeld.

Das ist alles. Irgendwie will es bei mir nicht. Meine Deklaration der Procedure schlägt dauert fehl. Kann mir einer mal ein Beispiel geben oder mir erklären wie ich das anstellen sollte.

Das wäre echt nett. :wall:

[Treffnix]

Delphi-Quellcode:

Procedure ChangeEditText( var edt: TEdit );
Begin
  edt.Text := 'Irgendeinstring';
End;

Meinst du sowas?

[Sourcemaker]

Ich weiß nicht ob ich richtig verstanden habe aber vielleicht so:

Delphi-Quellcode:

procedure Ziel(x: TEdit);
begin
   x.Text := 'Errechneter Wert'
end;

procedure Quelle;
var
   xEdit : TEdit;
begin
   Ziel(xEdit);
end;

Wobei wenn du dich ein einer Form befindest das Edit jederzeit direkt erreichen könntest außer es würde der Quelle per Sender übergeben worden
sein;

Delphi-Quellcode:

 
procedure Quelle(Sender: TObject);
begin
   Ziel(TEdit(Sender));
end;

Gruß

Frank

[Piro]

ja genau. bloß meckert er dauert bei mir.

Delphi-Quellcode:

type
  Tfrm_verleih = class(TForm)

  ...

  private
    { Private-Deklarationen }
    procedure mietbetragberechnen( var edt: TEdit ); {meine gewünschte procedure} // Hier tritt der Fehler auf s.u. Beschreibung)
  public
    { Public-Deklarationen }
  end;

implementation

uses form, module, setup;

{$R *.DFM}
{Hilfsprogramm}
procedure mietbetragberechnen( var edt: TEdit );
begin
 with frm_verleih do
 begin
   edt.Text := edt_laenge.Text;
 end;
end;


procedure Tfrm_verleih.tbtn_druckenClick(Sender: TObject);
var
 ...
 begin
   ...
   mietbetragberechnen(edt_mietbetrag);
   ...
 end;

end.

Fehlerbeschreibung: Ungenügende Forward- oder External Deklaratinonen:'frm_verleih.mietbetragsberechnung'

Was soll das denn sein? Eigentlich fehlt doch nichts, oder?

[Sourcemaker]

Delphi-Quellcode:

procedure Tfrm_verleih.mietbetragberechnen( var edt: TEdit );
begin
with frm_verleih do
begin
   edt.Text := edt_laenge.Text;
end;
end;

Gruß

Frank

[Treffnix]

Jup, da fehlt der Klassenname vor der Prozedur. siehe Sourcemaker

[Piro]

ich danke euch vielmals. irgendwann sieht man das einfachste nicht mehr.