branch | qmlfrontend |
changeset 10517 | 844bd43db47a |
parent 10450 | bf9e30b4ef9b |
child 10612 | eb3c1a289a23 |
10515:7705784902e1 | 10517:844bd43db47a |
---|---|
104 |
104 |
105 tmp:= filesList; |
105 tmp:= filesList; |
106 while tmp^ <> nil do |
106 while tmp^ <> nil do |
107 begin |
107 begin |
108 s:= shortstring(tmp^); |
108 s:= shortstring(tmp^); |
109 writeln(stderr, '> ', s); |
|
110 l:= length(s); |
109 l:= length(s); |
111 if (l > 4) and (copy(s, l - 3, 4) = '.hwt') then inc(teamsNumber); |
110 if (l > 4) and (copy(s, l - 3, 4) = '.hwt') then inc(teamsNumber); |
112 inc(tmp) |
111 inc(tmp) |
113 end; |
112 end; |
114 |
113 |