[Delphi] Korektní uložení souboru

[Rainbow]

Ten kod je dost hrozny.
1) Je tam dvakrat ten isty kod
2) Nemozes sa spoliehat na to, ze je ta pravdepodobnost mala
3) Nie su tam osetrene chyby

Keby si zacal bodom 3), mozno nemusis riesit tie ostatne veci (v Delphi som uz dlho nerobil, preto "mozno").

[Chuck]

Ten kod je dost hrozny.
1) Je tam dvakrat ten isty kod
2) Nemozes sa spoliehat na to, ze je ta pravdepodobnost mala
3) Nie su tam osetrene chyby

Keby si zacal bodom 3), mozno nemusis riesit tie ostatne veci (v Delphi som uz dlho nerobil, preto "mozno").

add 1)
BTW: mozna jsem se spatne vyjadril ale nekde vys bylo psany ze je tam to zdvojeni kodu docastne, nez se vyresi ten problem...
ted to vypada takto

procedure TForm1.UlozClick(Sender: TObject);
var FileHandle:integer;

begin
  If SaveDialog1.Execute then
    begin
      If FileExists(SaveDialog1.FileName) then
        begin
          FileHandle := FileOpen(SaveDialog1.FileName, fmOpenWrite or fmShareDenyNone);
          If FileHandle > 0 then
            begin
              If (MessageDlg('Soubor již existuje, přepsat?',mtConfirmation, [mbYes, mbNo],0))=mrYes then
                begin
                  FileClose(FileHandle);
                  UlozeniSouboru;
                end
              else
                begin
                  MessageDlg('Soubor neuložen',mtInformation, [mbOk],0);
                end;
            end
          else
            begin
              MessageDlg('Soubor je otevřen, zavřete jej nebo změnte název souboru a opakujte akci',mtInformation, [mbOk],0);
            end;
        end
      else
        begin
          UlozeniSouboru;
        end;
    end;
end;

add 3) Jaky chyby mas na mysli? Prave ty se snazim v ty procedure eliminovat...

[Camillek]

Testuješ někdě, zda máš dostatek místa na disku? Možná se dá toho vymyslet ještě víc.

A ještě jedno takové pravidlo: "Pokud něco nastat může, tak to také nastane." Jinými slovy. Pokud někdo má čas, byť milisekundy, na otevření tvého souboru, tak to určitě stihne. Stejně tak jako když někde má být zadáno číslo, tak první uživatel tam napíše "PEPA"

Zamysli se nad použitím "try ... catch ..."

[Chuck]

K tomu disku: O tom jsem ani nepremyslel Ten program generuje tabulky do excelu ve formatu CSV... Ted jsem jeden zkusil udelat a ma 622 Bajtu na disku 1KB... Jeste o tom popremyslim a kouknu na try a catch, zatim diky