Hey,

ich fühle mich inzwischen echt schlecht das ich so viele neue beiträge auf mache, aber ich muss bis zumm 26.8 mein programm abgeben und hab noch ein paar fragen die ich so nirgendwo im Internet gefunden haben.

und zwar geht es dieses mal um procedure/function

ich möchte eine function haben die ca. so aussieht

zusammenfalten · markieren

Delphi-Quellcode:

function btnReset(x,y,btnbreite,btnhoehe:integer; name:string;sichtbar:boolean):???; //muss man auch was zurückgeben???
var
text:string;
begin

name.setposition(x,y,btnbreite,btnhoehe); //is ja glaub ich klar ich will den butoon an der position haben

text:=copy(name,4,length(name); //die namen aller meiner buttons fangen mit btn an und der will ich nicht als caption
name.caption:=text;

name.visible:=sichtbar; //sichtbar oder halt nicht

end;

was mache ich flasch bzw wie muss ich das angehen

ich falle vor euch auf die knie und bedanke mich für eure antworten und eure geduld

thx Finki

Ich schlage vor, Du ziehst Dir erst mal ein paar Tutorials rein zum Üben. Zu dem Thema z.b.:

http://de.wikibooks.org/wiki/Program...und_Funktionen

oder auch die offizielle Doku:
http://docwiki.embarcadero.com/RADSt...und_Funktionen

Von welchem Typ ist die Variable, die Du im Parameter name übergeben willst? Ist es
[ ] ein String
[ ] ein TButton

Zitat von Furtbichler:

Von welchem Typ ist die Variable, die Du im Parameter name übergeben willst? Ist es
[ ] ein String
[ ] ein TButton

eigentlich ein String (kann ich auch einen button übergeben?)

Zitat von Finki:

eigentlich ein String (kann ich auch einen button übergeben?)

Von welchem Typ ist denn die Button-Komponente?

Zitat von Furtbichler:

Von welchem Typ ist denn die Button-Komponente?

vom typ Speedbutton

Also der Ansatz ist doch schon da. Das Stichwort wonach Du suchen musst ist findcomponent. Darüber wirst Du an Deine Buttons mit Hilfe des Namen kommen

Zitat von Finki:

Hey, ich fühle mich inzwischen echt schlecht das ich so viele neue beiträge auf mache, aber ich muss bis zumm 26.8 mein programm abgeben und hab noch ein paar fragen die ich so nirgendwo im Internet gefunden haben.

Deshalb mußt du dich nicht schlecht fühlen. Ich z.B. fühle mich schlecht, wenn User Anfragen im Forum stellen, weil sie z.B. zu faul sind, sich die Grundlagen beizubringen. Da du aber offensichtlich selbst Anstrengungen unternimmst, werden Fragen gerne beantwortet.

Zitat von Finki:

ich möchte eine function haben die ca. so aussieht

Zuerst solltest du dir einmal anschauen, was der Unterschied zwischen einer Function und einer Procedure ist: Erstere liefert einen Wert in der Variablen des Funktionsnamens zurück. Um den Typ dieser Variablen festzulegen, dient die Typangabe am Ende der Funktions-Deklaration, z.B.: function MeineFunktion(Wert : Integer) : String; Die Zuweisung innerhalb der Function geschieht via Result: Result := Wert; Der so zugewiesene Wert steht nun in der Funktionsvariablen zur Verfügung.

Eine Procedure liefert dagegen keinen Wert zurück; sie wird aufgerufen und macht irgendwas. Natürlich können in der Procedure Parameter als Var deklariert sein, die bei Rückkehr der Procedure ausgewertet werden können.

Zitat von Finki:

zusammenfalten · markieren

Delphi-Quellcode:

function btnReset(x,y,btnbreite,btnhoehe:integer; name:string;sichtbar:boolean):???; //muss man auch was zurückgeben???
var
text:string;
begin

name.setposition(x,y,btnbreite,btnhoehe); //is ja glaub ich klar ich will den butoon an der position haben

text:=copy(name,4,length(name); //die namen aller meiner buttons fangen mit btn an und der will ich nicht als caption
name.caption:=text;

name.visible:=sichtbar; //sichtbar oder halt nicht

end;

was mache ich flasch bzw wie muss ich das angehen

Wenn du nur Zuweisungen beabsichtigst, benötigst du keine Funktion, da würde eine Prozedur genügen. Möchtest du dagegen eine Rückmeldung, ob die Aufgabe korrekt und erfolgreich ausgeführt wurde, wäre eine Funktion mit Rückgabe-Typ Boolean sinnvoll. Dazu setzt du Result erst einmal auf False, packst dann die ganzen Zuweisungen in einen Try-Except-Block, an dessen Ende des Try-Bereichs du Result auf True setzt und in der Exception-Behandlung bei Bedarf Fehlermeldungen behandelst (ShowMessage, Logfile etc.).

Zitat von Finki:

ich falle vor euch auf die knie und bedanke mich für eure antworten und eure geduld

Dann paß nur auf, daß du dir deine Hosen nicht durchscheuerst bei den vielen Kniefällen

Hi,

auch wenn ich jetzt gelyncht werde, wegen fertigen Lösungen...

Betrachte es als Denkaufgabe.
Bei der Übergabe des Namen des Buttons gibt es ein paar Fallstricke.

Deshalb im Beispiel 3 mögliche Wege. Übergabe des Buttons direkt ist natürlich am einfachsten.

Frank

Zitat von dataspider:

auch wenn ich jetzt gelyncht werde, wegen fertigen Lösungen...

würde ich nie tun, ich bin dir sehr dankbar darüber.

ich hab aber ein paar fragen zu dem quellcod

1.  if AButton <> nil then was sagt das nil aus??? (wann und wo kann des verwendet werden)

2.    AButton.Caption := copy(AButton.Name, 4, MaxInt); ist das MaxInt eine Variable oder ein befehl der die Länge wieder gibt???