Rewrite(f) findet File nicht...

[Sir Rufo]

Hmmm, ich weiß nicht was da "abschmiert". Im Gegenteil, dein Programm bleibt eher stabil.

Oder wie willst du hier irgendwas in den Stream schreiben, wenn du

• Keine Instanz übergeben hast
• Keinen Dateinamen übergeben hast
• Keine Datei erzeugen konntest

Diese Methode muss einfach abgebrochen werden, weil eine sinnvolle Weiterführung nicht möglich ist.

Delphi-Quellcode:

procedure DoSaveFoo( AFoo: TFoo; AFileName : string );
var
  LFooData: TBytes;
  LStream: TStream;
begin

  // Guard Block - zu 99.9% ein Programmiererfehler, wenn das kommt

  // Kein Foo, dann kann ich nichts machen => tschüssi
  if not Assigned( AFoo ) then
    raise EArgumentNilException.Create('AFoo');
  // Kein Dateiname, dann kann ich nichts machen => tschüssi
  if AFileName.IsEmpty then
    raise EArgumentNilException.Create('AFileName');

  LFooData := SerializeFoo( AFoo );
  LStream := TFileStream.Create( AFileName, fmCreate or fmShareExclusive );
  try
    LStream.WriteData( LFooData, Length( LFooData ) );
  finally
    LStream.Free;
  end;
end;

Aber die Methode vorher, die könnte etwas machen. Wenn es ein Problem mit dem FileStream gab (EFileStreamException = alle Exceptions von TFileStream ohne die normalen Exceptions die TStream wirft), dann wird das 9 mal mit einem neuen Dateinamen versucht. Wenn das nicht funktioniert hat, dann wird diese Exception auch weitergereicht (angezeigt).

Alle anderen Exceptions laufen einfach durch und werden direkt angezeigt.

Delphi-Quellcode:

procedure SaveFoo();
var
  LFoo: TFoo;
  LFooFileName: string;
  LRetry: Integer;
begin
  LFoo := TFoo.Create;
  try

    LRetry := 0;
    while true do
    begin
      LFooFileName := GetTempFileName();
      try
        DoSaveFoo( LFoo, LFooFileName );
        Break;
      except
        on E: EFileStreamError do
        begin
          Inc( LRetry );
          if LRetry = 10 then
            raise;
        end;
      end;
    end;

  finally
    LFoo.Free;
  end;
end;

[redox]

Die function CDevice.storeSettings(name: string) : integer; liefert statt boolean/nachvollziehber INTEGER.

Das "Hab bei Herrn Amazon nun ne XE8 Pro gekauft. Hoffe der Umstieg wird keine
Katastrophe.. " wird alle Probleme lösen!

Geld statt Hirn löst alle Probleme, denn dann kann man statt Denken das Denkenlassen bezahlen

MfG

[FarAndBeyond]

@mm1256:
Danke für die Compiler Info, kann ich vielleicht mal brauchen...

@SirRufo:
Besten Dank für das Beispiel...

Sorry Leute, ich hab' das Thema gar nicht gestartet, bin aufgrund des ExceptionHandlings auf den Zug aufgesprungen, weil mich das interessierte...
Kann schlecht testen ob das funzt, da gar nicht mein Programm bzw. Problem...

Ich bin dann mal weg... nichts für ungut...

[calibra301]

Schande über mich....
{+I} , einen Compilerschalter, aus versehen gelöscht...

Wenns nicht mehr geht das Projekt in die Ecke werfen und ein paar Tage später wieder ran.
Mann sieht seinen eigenen Blödsinn nicht..

Noch mal danke für die Hilfe, aber gegen eigene Blindheit hilft nix...

Gruss
Calli . . der schon das nächste Problem hat..