Changeset 12 for trunk/UNetworkTest.pas


Ignore:
Timestamp:
Feb 11, 2008, 11:37:07 AM (17 years ago)
Author:
george
Message:

Aktualizace: Vyměněna jednotka UWaitingDialog za novější UJobProgressView.
Opraveno: Chyba při vytváření souboru Error.txt.

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        55*.~dsk
        66Network.cfg
         7Error.txt

  • trunk/UNetworkTest.pas

    r9 r12  
    8282    ChDir(ExtractFileDir(Application.ExeName));
    8383    AssignFile(Soubor, NetworkFileName);
    84     if FileExists(NetworkFileName) then Reset(Soubor) else Rewrite(Soubor);
     84    if FileExists(NetworkFileName) then Reset(Soubor) else begin
     85      Rewrite(Soubor);
     86      CloseFile(Soubor);
     87      AssignFile(Soubor, NetworkFileName);
     88      Reset(Soubor);
     89    end;
    8590    SetLength(Devices, 1);
    8691    while not Eof(Soubor) do begin
Note: See TracChangeset for help on using the changeset viewer.