TSave Dialog Exception

[Dunkelbunt27]

Zitat:

fragt sich nur wozu dann eine Funktion

Das ist für die CloseQuery, CanClose := Speichern(Datei).

Zitat:

Irgendie hast du das mit dem try .. finally wohl noch nicht verstanden

Das kommt wohl, wenn mal sich alles selber beibringen muss, weil man in der Schule noch beim Einbinden einer zweiten Unit steckt -.-.

Danke für die ganzen Hinweise, ich verbessere das mal

Wie kann ich es dann machen, wenn das Speichern aus irgendeinem Grund fehgeschlagen ist, dass dann result auf False gesetzt ist?

[himitsu]

Es ging ihm darum, daß das Result immer true ist, egal was passiert.
(außer es tritt eine Exception auf, da dann das Result eh nicht mehr benötigt wird)
Und ein Result, was eh immer nur das Selbe liefert, ist doch irgendwie "nutzlos" ?

[DeddyH]

Er meinte wahrscheinlich, wieso das eine Funktion ist, wenn sie sowieso immer true zurückgibt.

[Dunkelbunt27]

Ja, ich weiß, dass es so wie es ist sinnlos ist, ich wollte ja bewirken, dass auch mal result = false sein kann...
Also wenn das Speichern klappt, dann result = true
wenn das Speichern nicht klappt, durch z.B. keine Schreibrechte, dann result = false

[DeddyH]

Delphi-Quellcode:

Result := true;
try
  MachIrgendwas;
except
  Result := false;
end;

Wobei es natürlich besser wäre, die Exception dann auch auszuwerten, um zu ermitteln, wieso es schiefgegangen ist.

[Sir Rufo]

Delphi-Quellcode:

function Speichern : Boolean;
begin
  Result := False;  // Erst mal den Rückgabewert auf False, wer weiß was alles passieren kann :o)

  if MeinSaveDialog.Execute then // Ich soll also wirklich speichern
    begin
      // Hier kommt jetzt der Block zum Speichern
      ...
      // Wenn dieser Block komplett ohne Fehler abgeschlossen wurde, dann ist die Datei wohl gespeichert
      Result := True;
    end;

end;

[Dunkelbunt27]

Okay, danke für die beiden Vorschläge, ich schau mal was besser passt.

EDIT: Alles klar, so gehts. Danke.

[Luckie]

Visuelle Komponenten und der Timer haben einen Besitzer (Owner). Der Besitzer ist für das Freigeben der Komponente zuständig. Bei visuellen Komponenten ist das dir Form auf der sie liegen. Das heißt, die Form gibt diese Objekte wieder frei. Und dies geschieht automatisch. Du brauchst dich also um, nichts mehr zu kümmern. Das noch mal zur Erklärung.

[himitsu]

Delphi-Quellcode:

function Speichern : Boolean;
begin
  Result := MeinSaveDialog.Execute;
  if Result then
  begin
    ... // speichern
  end;
end;