Prozeduren und Methoden mit Parameter

[Perlsau]

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:

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

[dataspider]

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

[Finki]

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???

[Sir Rufo]

1. AButton ist eine Referenz, also ein Zeiger auf die Instanz. nil beudeutet "nichts". Wenn die Referenz also auf "nichts" zeigt, wie willst du da was verändern können. Um Fehler zu vermeiden, wird also vorher abgefragt, ob die Referenz auf etwas zeigt

2. MaxInt ist eine Konstante und beinhaltet den maximalen Integerwert.

Allerdings ist das überflüssig, denn copy( AButton.Name, 4 ); reicht hier aus

[Finki]

gut dann danke ich euch für eure Aufmerksamkeit, Geduld und hoffe das es dann auch in meinem Programm geht

mfg Finki

[mkinzler]

Zitat:

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

NIL steht für "Not In List" und ist das Delphiäquivalent zu NULL.
Besser wäre aber if Assigned( AButton ) zu prüfen.

Zitat:

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

MaxInt ist eine Konstante, welche die maximale Zahl eines Integers enthält.

[uligerhardt]

Zitat von mkinzler:

NIL steht für "Not In List" und ist das Delphiäquivalent zu NULL.

Ich hab's immer als nihil/nil = nichts verstanden. Mit Listen hat's ja nichts zu tun.

[dataspider]

Zitat von mkinzler:

Besser wäre aber if Assigned( AButton ) zu prüfen.

Ist das nicht bei Variablenreferenzen eines Zeigers identisch?

Frank

[Der schöne Günther]

Laut Doku:

Zitat:

Assigned(P) entspricht bei einer Zeigervariable dem Test P <> nil und bei einer Prozedurvariable dem Test @P <> nil.

Der Test auf "<> nil" bei einer Variable vom Typ wie "reference to procedure" würde wahrscheinlich kompilieren, aber das Ergebnis der Methode auf <> nil prüfen.

[Finki]

gut des mit der procedure klappt aber irgend wie öffnet sich mein Savedialog zweimal ich hab keine ahnung warum ich hab mal alles in den anhang gepackt mal sehen vieleicht schaut sich des ja einer an