[Delphi] Korektní uložení souboru

[Chuck]

To jestli je otevrenej se zjistuje jeste pred tim nez se do nej vubec pokousi zapsat... Je to osetreny tady:

If (FileOpen(SaveDialog1.FileName, fmOpenWrite or fmShareDenyNone)>0) then
.
.

A tim by to byt nemelo, kdyz to zkusim po restartu tak to dela taky a ten jsoubor jsem nicim neotviral...

PS: Tu proceduru jsem tam mel, jenze me to kvuli tomuhle problemu neslo tak jsem to hodil radsi zpatky... Aspon je to ted nazornejsi... Az to pujde tak ji udelam

EDIT: Zjisteni: Kdyz z

If (FileOpen(SaveDialog1.FileName, fmOpenWrite or fmShareDenyNone)>0) then

vymazu fmOpenWrite tak to ulozit jde i kdyz ten soubor existuje, ale pak to zas spadne kdyz je ten soubor otevrenej protoze to nezjisti ze je otevrenej a povoli to prepis...

to fmOpenWrite a fmShareDenyNone jsem nasel v prikladu v helpu ale nejak jsem nepochopil na co to je... Je to asi neco co se tyce otevreni a sdileni, ale smysl mi unikl... kdyby mi to nekdo osvitil byl bych vdecny