Fehler bei Abbruch des Savedialogs

[WHaase]

Hallo Leute,

bei mir stellt sich ein Problem ein, wenn ich versuche Daten mit dem unten angegebenen Savedialog zu speichern.

Das Problem tritt auf, wenn ich den Savedialog während der Ausführung abbreche. Dann erhalte ich eine Fehlermeldung. Offensichtlich ist der Abbruch nicht vorgesehen und in meinem Code nicht abgefangen.

Weiss da jemand Abhilfe?

Mein Code:
with SaveDialog1 do begin
FileName:=SaveDialog1.FileName ;
Filter:= 'Text-File (*.txt)|*.txt';
DefaultExt:= '*.txt';
If Execute then begin
assignfile(f,Filename);
rewrite(f);
end;
end; // End with SaveDialog1 do begin

[s-off]

Hallo,

1. setze Deinen Delphi Code bitte in entsprechende Tags, wegen der Lesbarkeit.
2. Wenn Du Fehler abfangen möchtest, machst Du das bspw. so:

Delphi-Quellcode:

If Execute then begin
 try
  assignfile(f,Filename);
  rewrite(f);
 except
  //hier der Code, der bei einem Fehler ausgeführt werden soll
 end;
end;

Edit: zur Erläuterung
Sollte in dem Bereich zwischen 'try' und 'except' ein Fehler auftreten, wird der Code ausgeführt, der zwischen 'except' und 'end' steht.

[Bernhard Geyer]

Brrr. Dein Reihenfolge ist vollkommen falsch:
Wie soll SaveDialog1.FileName einen gültigen Wert haben wenn der Dialog noch nicht ausgeführt (Executed) wurde? :gruebel:

[guidok]

Die Zeile

Delphi-Quellcode:

with SaveDialog1 do begin 
  FileName:=SaveDialog1.FileName;

ist ja ziemlich sinnlos, oder? Du weißt einer Variablen sich selbst zu, also X=X.

Man könnte FileName schon vor dem Execute etwas zuweisen, um z.B. einen Vorgabenamen für den Savedialog einzustellen.

Ansonsten ist der Abbruch natürlich vorgesehen, die Function Execute hat dann den Wert False und deine if-Bedingung ist nicht erfüllt.

Wie lautet denn übrigens der Fehler?

[s-off]

Zitat:

Zitat von Bernhard Geyer

Wie soll SaveDialog1.FileName einen gültigen Wert haben wenn der Dialog noch nicht ausgeführt (Executed) wurde? :gruebel:

Indem der Filename-Property zum testen im Objektinspektor ein Wert zugewiesen worden ist.
Vielleicht schwachsinnig - aber immerhin eine Antwort auf die Frage.

Edit: sorry, habe guidoks Beitrag übersehen - der hat es ja bereits gesagt...

Wieso kann man eigentlich eigene Beiträge nicht löschen? Dann würde man sich manchmal solche Peinlichkeiten wie jetzt ersparen können :oops:

[Nuclear-Ping]

Delphi-Quellcode:

with SaveDialog1 do
  begin
    Filter:= 'Text-File (*.txt)|*.txt';
    DefaultExt:= '*.txt';
    if not Execute then
      Exit;
    {...}
  end;

So kann man's auch machen. Da muss man keinen ganzen Block machen, nur weil 'ne Bedingung erfüllt wurde.

[s-off]

Zitat:

Zitat von Nuclear-Ping

Delphi-Quellcode:

with SaveDialog1 do
  begin
    Filter:= 'Text-File (*.txt)|*.txt';
    DefaultExt:= '*.txt';
    if not Execute then
      Exit;
    {...}
  end;

So kann man's auch machen. Da muss man keinen ganzen Block machen, nur weil 'ne Bedingung erfüllt wurde.

Naja, ob ich nun

Delphi-Quellcode:

with SaveDialog1 do
  begin
    Filter:= 'Text-File (*.txt)|*.txt';
    DefaultExt:= '*.txt';
    if not Execute then
      Exit;
    {...}
  end;

oder

Delphi-Quellcode:

with SaveDialog1 do
  begin
    Filter:= 'Text-File (*.txt)|*.txt';
    DefaultExt:= '*.txt';
    if Execute then
    {...}
  end;

schreibe, spielt nun wirklich keine Geige - da spare ich bei letzterem Beispiel sogar noch das 'not' und das 'exit;' (sofern nur eine Anweisung folgt ein Reingewinn von acht Zeichen) :wink:

[Bernhard Geyer]

Zitat:

Zitat von s-off

Zitat:

Zitat von Bernhard Geyer

Wie soll SaveDialog1.FileName einen gültigen Wert haben wenn der Dialog noch nicht ausgeführt (Executed) wurde? :gruebel:

Indem der Filename-Property zum testen im Objektinspektor ein Wert zugewiesen worden ist.

Ist ja offensichtlich am obigen Codebeispiel das du sowas gemacht hast :?

[s-off]

Zitat:

Zitat von Bernhard Geyer

Ist ja offensichtlich am obigen Codebeispiel das du sowas gemacht hast :?

Oben stehen mehr als ein Codebeispiel - welches meinst Du, und was möchtest Du mir jetzt sagen?

Das erste Codebeispiel zeigt die Verwendung eines try-except-Blocks. Da wird in keiner Zeile der Savedialog erwähnt.
Das zweite Codebeispiel ist von Nuclear-Ping übernommen.

Desweiteren habe ich lediglich Deine Frage beantwortet, wie es möglich ist, dass ein Savedialog eine gültige FileName-Eigenschaft haben kann, bevor er überhaupt ausgeführt worden ist - nicht mehr und nicht weniger.

Sei bitte so fair, und lass das jetzt nicht so im Raum stehen, wie das manche Leute hier gerne mal tun, wenn sie ein Problem mit jemandem (oder dessen Aussagen) haben.

[Bernhard Geyer]

Zitat:

Zitat von s-off

Sei bitte so fair, und lass das jetzt nicht so im Raum stehen, wie das manche Leute hier gerne mal tun, wenn sie ein Problem mit jemandem (oder dessen Aussagen) haben.

Sorry, ich dachte der Beitrag war vom Thread-Ersteller. Das es von dir ein Quereinwurf war habe ich nicht erkannt.

[s-off]

Zitat:

Zitat von Bernhard Geyer

Sorry, ich dachte der Beitrag war vom Thread-Ersteller. Das es von dir ein Quereinwurf war habe ich nicht erkannt.

Kein Problem - ich habe ja auch kleine Leseschwierigkeiten in diesem Thread bewiesen.
Danke für die Aufklärung :)

[Nuclear-Ping]

Zitat:

Zitat von s-off

Naja, ob ich nun

Delphi-Quellcode:

with SaveDialog1 do
  begin
    Filter:= 'Text-File (*.txt)|*.txt';
    DefaultExt:= '*.txt';
    if not Execute then
      Exit;
    {...}
  end;

oder

Delphi-Quellcode:

with SaveDialog1 do
  begin
    Filter:= 'Text-File (*.txt)|*.txt';
    DefaultExt:= '*.txt';
    if Execute then
    {...}
  end;

schreibe, spielt nun wirklich keine Geige - da spare ich bei letzterem Beispiel sogar noch das 'not' und das 'exit;' (sofern nur eine Anweisung folgt ein Reingewinn von acht Zeichen) :wink:

Kannst du das Mathematisch nachweisen? :warn:
Du hast in deine Rechnung sicher nicht die ganzen Leerzeichen mit einbezogen, die man noch sparen würde - wenn zB nach dem Execute noch ein Begin folgen würde, das End nicht zu vergessen ... :mrgreen:

[s-off]

Deswegen schrob -ähm- schrieb ich ja auch extra

Zitat:

Zitat von ich

sofern nur eine Anweisung folgt...

Warum gibt es hier kein Zunge-rausstreck-Smilie? :stupid: :wink:

[leddl]

Zitat:

Zitat von s-off

Warum gibt es hier kein Zunge-rausstreck-Smilie? :stupid: :wink:

Wer suchet, der findet :zwinker: :P

//Edit:
Bzw. wir haben ja sogar 2 (thx to Matze, dem Oberschlaumeier :stupid:): :tongue:

[s-off]

Zitat:

Zitat von leddl

Wer suchet, der findet

Hui, supi - danke :)

Hey, Nuclear-Ping --- :tongue:

:mrgreen: :wink:

[WHaase]

Zitat:

Zitat von s-off

Zitat:

Zitat von leddl

Wer suchet, der findet

Hui, supi - danke :)

Hey, Nuclear-Ping --- :tongue:

:mrgreen: :wink:

Hallo zusammen,

vielen Dank für die rege Resonanz!!

[WHaase]

Liebe Leute,

vielen Dank für die rege und schnelle Hilfe.

Das Problem ist gelöst.

http:// :-D