Prozeduren und Methoden mit Parameter

[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