Prozeduren und Methoden mit Parameter

[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.

und zwar geht es dieses mal um procedure/function

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

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:-D

thx Finki

[Union]

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

[Furtbichler]

Von welchem Typ ist die Variable, die Du im Parameter

Delphi-Quellcode:

name

übergeben willst? Ist es
[ ] ein String
[ ] ein TButton
:gruebel:

[v2afrank]

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

[Finki]

Zitat:

Zitat von Furtbichler (Beitrag 1223459)

Von welchem Typ ist die Variable, die Du im Parameter

Delphi-Quellcode:

name

übergeben willst? Ist es
[ ] ein String
[ ] ein TButton
:gruebel:

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

[Furtbichler]

Zitat:

Zitat von Finki (Beitrag 1223462)

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

Von welchem Typ ist denn die Button-Komponente?

[Perlsau]

Zitat:

Zitat von Finki (Beitrag 1223456)

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:

Zitat von Finki (Beitrag 1223456)

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.:

Delphi-Quellcode:

function MeineFunktion(Wert : Integer) : String;

Die Zuweisung innerhalb der Function geschieht via Result:

Delphi-Quellcode:

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:

Zitat von Finki (Beitrag 1223456)

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:

Zitat von Finki (Beitrag 1223456)

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

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

[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:

Zitat von Furtbichler (Beitrag 1223465)

Von welchem Typ ist denn die Button-Komponente?

vom typ Speedbutton

[Finki]

Zitat:

Zitat von dataspider (Beitrag 1223473)

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.

Delphi-Quellcode:

  if AButton <> nil then

was sagt das nil aus??? (wann und wo kann des verwendet werden)

2.

Delphi-Quellcode:

    AButton.Caption := copy(AButton.Name, 4, MaxInt);

ist das MaxInt eine Variable oder ein befehl der die Länge wieder gibt???

[Sir Rufo]

1.

Delphi-Quellcode:

AButton

ist eine Referenz, also ein Zeiger auf die Instanz.

Delphi-Quellcode:

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.

Delphi-Quellcode:

MaxInt

ist eine Konstante und beinhaltet den maximalen Integerwert.

Allerdings ist das überflüssig, denn

Delphi-Quellcode:

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 :D

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

Delphi-Quellcode:

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:

Zitat von mkinzler (Beitrag 1223512)

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:

Zitat von mkinzler (Beitrag 1223512)

Besser wäre aber

Delphi-Quellcode:

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 :D

[Aviator]

Hallo Finki,

du schreibst in deinem Code folgendes:

Delphi-Quellcode:

procedure TForm1.Save(Sender: TObject);
var
  textb : boolean;
  texts : string;
  long, long01, i : integer;
begin
  SaveDialog.Execute;   // Hier führst du den SaveDialog bereits das erste Mal aus
  case SaveDialog.FilterIndex of

    2: begin
        if SaveDialog.Execute then   // Und hier schon wieder
        begin
          [...]
        end;
       end;

Das was du vor hast kannst du auch anders umsetzen. In etwa so (ungetestet):

Delphi-Quellcode:

procedure Save;
var
  SaveDlg : TSaveDialog;
begin
  SaveDlg := TSaveDialog.Create(Self);
  SaveDlg.Filter := '*.doc | Word 97-2003 Format | *.docx | Word Dokument';
  
  if SaveDlg.Execute then begin
    Memo1.Lines.SaveToFile(SaveDlg.Filename);
    // Oder auch weitere Aktionen ausführen
  end;

  SaveDlg.Free;
end;

In etwa so könnte man das machen. Habe gerade kein Delphi zur Verfügung, um das Ganze noch vollständig zu testen. Aber ich bin mir sicher, dass du daraus etwas zusammenbauen kannst.

[Finki]

Delphi-Quellcode:

  SaveDlg.Free;

welchen zweg hat das

Delphi-Quellcode:

.Free

?

[Sir Rufo]

Zitat:

Zitat von Finki (Beitrag 1223648)

Delphi-Quellcode:

  SaveDlg.Free;

welchen zweg hat das

Delphi-Quellcode:

.Free

?

Wenn du etwas erzeugst, dann musst du das auch wieder entsorgen, sonst baust du einen Speicherfresser ;)

BTW Online-Hilfe TObject.Free

[Finki]

ich hoffe es ist nicht schlimm das ich nicht jedesmal einen neuen beitrag eröffne (oder ist das gegen die Forumregel?)

ich hätte da mal eine einfache frage:

ich hab mir überlegt eine möglichkeit einzubauen den inhalt der memo componente direkt als mail zu versenden.

ist das für einen wie mich zukomplex oder geht das im prinzip einfach?

(ich glaub ihr kennt inzwischen mein niveau :D )

[Sir Rufo]

Eine Frage pro Thread

[Finki]

ok vielen danke dann werde ich das machen