Procedurparameter

[blackyhb]

Hallo,

bisher habe ich als Anfänger keine Lösung für das Problem gefunden,
edit1.text in einen Procedureaufruf zu bekommen!? :shock:

Meine eigene Procedure hat den folgendem Code:

Delphi-Quellcode:

procedure TForm1.teste(mystring:string; var abc, ...:string);
begin
.
.
.
end;

Der eigentliche Proceduraufruf

Delphi-Quellcode:

teste(mystring,edit1.text, ...);

führte zur Fehlermeldung, daß die
tatsächlichen und formalen var-Parameter übereinstimmen müssen!

Über eine Lösung oder Infos würde ich mich freuen! :-D

blackyhb

[SirThornberry]

ist ganz einfach. Edit1.Text ist vom Typ TCaption und diesen kann man nur komplett setzen. Eine Lösung wäre

Delphi-Quellcode:

var LtmpString: String;
begin
  LtmpString := edit1.Text;
  teste(mystring,LtmpString, ...);
  edit1.text := LtmpString;
end;

[blackyhb]

Die Lösung ist okay, verlängert den Programmcode jedoch erheblich! :?

Ist eine Typumwandlung möglich oder
die Verwendung von TCaption in der Prozedur? 8)

[Luckie]

TCaption ist auch nur als String deklariert.

[SirThornberry]

das Problem ist das ".Text" ein Property ist was nur komplett gesetzt werden kann. Es ist also nicht möglich ".Text[1] := 'c'" zu schreiben eben weil eine Setmethode dahinter steht. Du musst eben wirklich einen var-parameter übergeben oder du änderst die funktion so ab das sie ein TEdit entgegennimmt, dann kannst du auch direkt die ".Text" eigenschaft ändern.

[blackyhb]

Wie kann ich die funktion denn ändern? :oops:

Hast du einen Beispielcode? :roll:

blackyhb

[Nothine]

Zitat:

Zitat von SirThornberry

oder du änderst die funktion so ab das sie ein TEdit entgegennimmt, dann kannst du auch direkt die ".Text" eigenschaft ändern.

Delphi-Quellcode:

procedure Foo(Edit: TEdit); //Prozedur, nimmt ein TEdit entgegen
begin
  Edit.Text := 'Foo'; //und greift direkt auf die Text-Eigenschaft zu
end;

Foo(Edit1); //Aufruf

[blackyhb]

Prima und vielen Dank für die Hilfe! :)

Den Code habe ich angepaßt und alles läuft perfekt! :wink:

Mfg

blackyhb :-D