Prozeduren und Methoden mit Parameter

[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

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

  SaveDlg.Free; welchen zweg hat das .Free ?

[Sir Rufo]

Zitat von Finki:

  SaveDlg.Free; welchen zweg hat das .Free ?

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

BTW Online-Hilfe TObject.Free