equal
deleted
inserted
replaced
60 e: TEventId; |
60 e: TEventId; |
61 begin |
61 begin |
62 trammo[sidNothing]:= ' '; |
62 trammo[sidNothing]:= ' '; |
63 for e:= Low(TEventId) to High(TEventId) do first[e]:= true; |
63 for e:= Low(TEventId) to High(TEventId) do first[e]:= true; |
64 |
64 |
65 {$I-} //iochecks off |
65 {$I-} // iochecks off |
66 filemode:=0; //readonly |
66 filemode:= 0; // readonly |
67 Assign(f, FileName); |
67 Assign(f, FileName); |
68 reset(f); |
68 reset(f); |
69 // if the locale does not exist, fallback to the default one |
69 // if the locale does not exist, fallback to the default one |
70 if (IOResult <> 0) then |
70 if (IOResult <> 0) then |
71 begin |
71 begin |