ギコナビ
修訂 | c6cb85e0e425ab468b7f09cbcc9e7a909c47a610 (tree) |
---|---|
時間 | 2006-07-23 05:34:39 |
作者 | h677 <h677> |
Commiter | h677 |
無効なIDの判定を修正。
ほかコメント追加したり,コメントアウトしたソースを削除したり。
@@ -104,7 +104,6 @@ type | ||
104 | 104 | FURL: string; //{[hURL |
105 | 105 | FRound: Boolean; //Xbhêñ\ñ |
106 | 106 | FRoundName: string; //ñ¼ |
107 | - //FRoundName: PChar; //ñ¼ | |
108 | 107 | FRoundDate: TDateTime; //Xbhêðæ¾µ½úiñúj |
109 | 108 | FLastModified: TDateTime; //XbhêªXV³êÄ¢éúiT[o¤új |
110 | 109 | FLastGetTime: TDateTime; //XbhܽÍXbhêðÅãÉXVµ½úiT[o¤úE«ÝÉgp·éj |
@@ -289,17 +289,26 @@ begin | ||
289 | 289 | Result := CustomStringReplace(Result, '|', 'b'); |
290 | 290 | end; |
291 | 291 | (************************************************************************* |
292 | - * ³øÈID©Ì`FbNi³øáFID:??? , ID:???0) | |
292 | + * ³øÈID©Ì`FbNi³øáFID:??? , ID:???X) | |
293 | 293 | *************************************************************************) |
294 | 294 | function IsNoValidID( inID :String): Boolean; |
295 | +var | |
296 | + bTail : Boolean; | |
295 | 297 | begin |
298 | + Result := True; | |
296 | 299 | inID := Trim(inID); |
297 | - if inID = '' then Result := True | |
298 | - else begin | |
300 | + if (Length(inID) > 0) then begin | |
299 | 301 | inID := Copy(inID, AnsiPos(':', inID) + 1, Length(inID) ); |
302 | + bTail := False; | |
303 | + // öª?ÈO© | |
304 | + if Length(inID) > 0 then begin | |
305 | + bTail := (inID[Length(inID)] <> '?'); | |
306 | + end; | |
300 | 307 | inID := CustomStringReplace(inID, '?', ''); |
301 | - if (inID = '') or (inID = '0') then Result := True | |
302 | - else Result := False; | |
308 | + if (Length(inID) > 0) and (not | |
309 | + ((Length(inID) = 1) and (bTail))) then begin | |
310 | + Result := False; | |
311 | + end; | |
303 | 312 | end; |
304 | 313 | end; |
305 | 314 |
@@ -1,6 +1,6 @@ | ||
1 | 1 | object RoundDialog: TRoundDialog |
2 | - Left = 249 | |
3 | - Top = 137 | |
2 | + Left = 256 | |
3 | + Top = 175 | |
4 | 4 | Width = 600 |
5 | 5 | Height = 427 |
6 | 6 | BorderIcons = [biSystemMenu] |
@@ -190,7 +190,7 @@ object RoundDialog: TRoundDialog | ||
190 | 190 | Top = 4 |
191 | 191 | Bitmap = { |
192 | 192 | 494C010104000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 |
193 | - 0000000000003600000028000000400000003000000001002000000000000030 | |
193 | + 0000000000003600000028000000400000003000000001001000000000000018 | |
194 | 194 | 0000000000000000000000000000000000000000000000000000000000000000 |
195 | 195 | 0000000000000000000000000000000000000000000000000000000000000000 |
196 | 196 | 0000000000000000000000000000000000000000000000000000000000000000 |
@@ -324,256 +324,64 @@ object RoundDialog: TRoundDialog | ||
324 | 324 | 0000000000000000000000000000000000000000000000000000000000000000 |
325 | 325 | 0000000000000000000000000000000000000000000000000000000000000000 |
326 | 326 | 0000000000000000000000000000000000000000000000000000000000000000 |
327 | + 0000000000000000000000000000000000000000000010421863186318631863 | |
328 | + 1863186318631863186318631863000000000000000000000000000000000000 | |
327 | 329 | 0000000000000000000000000000000000000000000000000000000000000000 |
330 | + 0000000000000000000000000000000000000000000010421042104210421042 | |
331 | + 104210421042104210421042000000000000000000001042FF7FFF7FFF7FFF7F | |
332 | + FF7FFF7FFF7FFF7FFF7FFF7F1863000000000000000000000000000000000000 | |
328 | 333 | 0000000000000000000000000000000000000000000000000000000000000000 |
334 | + 000000000000000000000000000000000000000000001042FF7F1863E07F1863 | |
335 | + E07F1863E07F1863E07F1042000000000000000000001042FF7F104210421042 | |
336 | + 10421042104210421042FF7F1863000000000000000000000000000000000000 | |
329 | 337 | 0000000000000000000000000000000000000000000000000000000000000000 |
338 | + 00000000000000000000000000000000000000001042FF7F1863E07F1863E07F | |
339 | + 1863E07F1863E07F18630000104200000000000000001042FF7FFF7FFF7FFF7F | |
340 | + FF7FFF7FFF7FFF7FFF7FFF7F186300000000000000000000FF7FFF7FFF7FFF7F | |
341 | + FF7FFF7FFF7FFF7F000000000000000000000000000000000000000000001042 | |
342 | + FF7F0000000000000000000000000000000010421042FF7FE07F1863E07F1863 | |
343 | + E07F1863E07F186310420000000000000000000000001042FF7F104210421042 | |
344 | + 10421042104210421042FF7F1863000000000000000000001042104200000000 | |
345 | + 00000000FF7FFF7F000000000000000000000000000000000000000010421042 | |
346 | + FF7FFF7F00000000000000000000000000001042FF7FE07F1863E07F1863E07F | |
347 | + 1863E07F1863E07F00001863186300000000000000001042FF7FFF7FFF7FFF7F | |
348 | + FF7FFF7FFF7FFF7FFF7FFF7F1863000000000000000000000000104200000000 | |
349 | + 00000000FF7F0000000000000000000000000000000000000000000010420000 | |
350 | + 0000FF7F00000000000000000000000000001042FF7FFF7FFF7FFF7FFF7FFF7F | |
351 | + FF7FFF7FFF7F104200001F00FF7F18630000000000001042FF7F104210421042 | |
352 | + 10421042104210421042FF7F1863000000000000000000000000104210420000 | |
353 | + 0000FF7FFF7F0000000000000000000000000000000000000000104210420000 | |
354 | + 0000FF7FFF7F0000000000000000000000000000104210421042104210421042 | |
355 | + 10421042104210421042FF7FFF7F00000000000000001042FF7FFF7FFF7FFF7F | |
356 | + FF7FFF7FFF7FFF7FFF7FFF7F1863000000000000000000000000000010420000 | |
357 | + 0000FF7F00000000000000000000000000000000000000000000104200000000 | |
358 | + 00000000FF7F00000000000000000000000000001042FF7FE07F18631042FF7F | |
359 | + FF7F1F0018631F00FF7FFF7F000000000000000000001042FF7F104210421042 | |
360 | + 10421042104210421042FF7F1863000000000000000000000000000010421042 | |
361 | + FF7FFF7F00000000000000000000000000000000000000001042104200000000 | |
362 | + 00000000FF7FFF7F0000000000000000000000001042FF7F1863E07F18631042 | |
363 | + FF7FFF7F1F00FF7FFF7F0000104200000000000000001042FF7FFF7FFF7FFF7F | |
364 | + FF7FFF7FFF7FFF7FFF7FFF7F1863000000000000000000000000000000001042 | |
365 | + FF7F000000000000000000000000000000000000000000001042104210421042 | |
366 | + 10421042104210420000000000000000000000001042FF7FE07F1863E07F1863 | |
367 | + 1042FF7FFF7FFF7F00001042104200000000000000001042FF7F104210421042 | |
368 | + 10421042104210421042FF7F1863000000000000000000000000000000000000 | |
330 | 369 | 0000000000000000000000000000000000000000000000000000000000000000 |
370 | + 000000000000000000000000000000000000000000001042FF7FFF7FFF7FFF7F | |
371 | + 10421042FF7F000000000000000000000000000000001042FF7FFF7FFF7FFF7F | |
372 | + FF7FFF7FFF7FFF7F000000000000000000000000000000000000000000000000 | |
331 | 373 | 0000000000000000000000000000000000000000000000000000000000000000 |
374 | + 0000000000000000000000000000000000000000000000001042104210421042 | |
375 | + 000000000000000000000000000000000000000000001042FF7FFF7FFF7FFF7F | |
376 | + FF7FFF7FFF7FFF7F1863FF7F1042000000000000000000000000000000000000 | |
332 | 377 | 0000000000000000000000000000000000000000000000000000000000000000 |
333 | 378 | 0000000000000000000000000000000000000000000000000000000000000000 |
379 | + 000000000000000000000000000000000000000000001042FF7FFF7FFF7FFF7F | |
380 | + FF7FFF7FFF7FFF7F186310420000000000000000000000000000000000000000 | |
334 | 381 | 0000000000000000000000000000000000000000000000000000000000000000 |
335 | 382 | 0000000000000000000000000000000000000000000000000000000000000000 |
336 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
337 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
338 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
339 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
340 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
341 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
342 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
343 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
344 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
345 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
346 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
347 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
348 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
349 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
350 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
351 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
352 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
353 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
354 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
355 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
356 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
357 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
358 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
359 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
360 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
361 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
362 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
363 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
364 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
365 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
366 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
367 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
368 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
369 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
370 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
371 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
372 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
373 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
374 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
375 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
376 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
377 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
378 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
379 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
380 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
381 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
382 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
383 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
384 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
385 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
386 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
387 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
388 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
389 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
390 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
391 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
392 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
393 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
394 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
395 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
396 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
397 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
398 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
399 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
400 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
401 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
402 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
403 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
404 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
405 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
406 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
407 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
408 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
409 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
410 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
411 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
412 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
413 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
414 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
415 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
416 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
417 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
418 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
419 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
420 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
421 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
422 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
423 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
424 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
425 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
426 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
427 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
428 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
429 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
430 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
431 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
432 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
433 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
434 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
435 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
436 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
437 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
438 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
439 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
440 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
441 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
442 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
443 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
444 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
445 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
446 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
447 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
448 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
449 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
450 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
451 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
452 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
453 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
454 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
455 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
456 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
457 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
458 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
459 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
460 | - 000000000000000000000000000000000000000000000000000084848400C6C6 | |
461 | - C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 | |
462 | - C600C6C6C600C6C6C60000000000000000000000000000000000000000000000 | |
463 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
464 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
465 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
466 | - 0000000000000000000000000000000000000000000000000000848484008484 | |
467 | - 8400848484008484840084848400848484008484840084848400848484008484 | |
468 | - 840084848400000000000000000000000000000000000000000084848400FFFF | |
469 | - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF | |
470 | - FF00FFFFFF00C6C6C60000000000000000000000000000000000000000000000 | |
471 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
472 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
473 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
474 | - 000000000000000000000000000000000000000000000000000084848400FFFF | |
475 | - FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF | |
476 | - FF0084848400000000000000000000000000000000000000000084848400FFFF | |
477 | - FF00848484008484840084848400848484008484840084848400848484008484 | |
478 | - 8400FFFFFF00C6C6C60000000000000000000000000000000000000000000000 | |
479 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
480 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
481 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
482 | - 0000000000000000000000000000000000000000000084848400FFFFFF00C6C6 | |
483 | - C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6 | |
484 | - C60000000000848484000000000000000000000000000000000084848400FFFF | |
485 | - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF | |
486 | - FF00FFFFFF00C6C6C6000000000000000000000000000000000000000000FFFF | |
487 | - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 | |
488 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
489 | - 0000000000000000000084848400FFFFFF000000000000000000000000000000 | |
490 | - 0000000000000000000000000000000000008484840084848400FFFFFF0000FF | |
491 | - FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C6008484 | |
492 | - 840000000000000000000000000000000000000000000000000084848400FFFF | |
493 | - FF00848484008484840084848400848484008484840084848400848484008484 | |
494 | - 8400FFFFFF00C6C6C60000000000000000000000000000000000000000008484 | |
495 | - 84008484840000000000000000000000000000000000FFFFFF00FFFFFF000000 | |
496 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
497 | - 0000000000008484840084848400FFFFFF00FFFFFF0000000000000000000000 | |
498 | - 00000000000000000000000000000000000084848400FFFFFF0000FFFF00C6C6 | |
499 | - C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF000000 | |
500 | - 0000C6C6C600C6C6C6000000000000000000000000000000000084848400FFFF | |
501 | - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF | |
502 | - FF00FFFFFF00C6C6C60000000000000000000000000000000000000000000000 | |
503 | - 00008484840000000000000000000000000000000000FFFFFF00000000000000 | |
504 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
505 | - 000000000000848484000000000000000000FFFFFF0000000000000000000000 | |
506 | - 00000000000000000000000000000000000084848400FFFFFF00FFFFFF00FFFF | |
507 | - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00848484000000 | |
508 | - 0000FF000000FFFFFF00C6C6C60000000000000000000000000084848400FFFF | |
509 | - FF00848484008484840084848400848484008484840084848400848484008484 | |
510 | - 8400FFFFFF00C6C6C60000000000000000000000000000000000000000000000 | |
511 | - 000084848400848484000000000000000000FFFFFF00FFFFFF00000000000000 | |
512 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
513 | - 000084848400848484000000000000000000FFFFFF00FFFFFF00000000000000 | |
514 | - 0000000000000000000000000000000000000000000084848400848484008484 | |
515 | - 8400848484008484840084848400848484008484840084848400848484008484 | |
516 | - 8400FFFFFF00FFFFFF000000000000000000000000000000000084848400FFFF | |
517 | - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF | |
518 | - FF00FFFFFF00C6C6C60000000000000000000000000000000000000000000000 | |
519 | - 000000000000848484000000000000000000FFFFFF0000000000000000000000 | |
520 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
521 | - 00008484840000000000000000000000000000000000FFFFFF00000000000000 | |
522 | - 0000000000000000000000000000000000000000000084848400FFFFFF0000FF | |
523 | - FF00C6C6C60084848400FFFFFF00FFFFFF00FF000000C6C6C600FF000000FFFF | |
524 | - FF00FFFFFF00000000000000000000000000000000000000000084848400FFFF | |
525 | - FF00848484008484840084848400848484008484840084848400848484008484 | |
526 | - 8400FFFFFF00C6C6C60000000000000000000000000000000000000000000000 | |
527 | - 0000000000008484840084848400FFFFFF00FFFFFF0000000000000000000000 | |
528 | - 0000000000000000000000000000000000000000000000000000000000008484 | |
529 | - 84008484840000000000000000000000000000000000FFFFFF00FFFFFF000000 | |
530 | - 0000000000000000000000000000000000000000000084848400FFFFFF00C6C6 | |
531 | - C60000FFFF00C6C6C60084848400FFFFFF00FFFFFF00FF000000FFFFFF00FFFF | |
532 | - FF0000000000848484000000000000000000000000000000000084848400FFFF | |
533 | - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF | |
534 | - FF00FFFFFF00C6C6C60000000000000000000000000000000000000000000000 | |
535 | - 0000000000000000000084848400FFFFFF000000000000000000000000000000 | |
536 | - 0000000000000000000000000000000000000000000000000000000000008484 | |
537 | - 8400848484008484840084848400848484008484840084848400848484000000 | |
538 | - 0000000000000000000000000000000000000000000084848400FFFFFF0000FF | |
539 | - FF00C6C6C60000FFFF00C6C6C60084848400FFFFFF00FFFFFF00FFFFFF000000 | |
540 | - 000084848400848484000000000000000000000000000000000084848400FFFF | |
541 | - FF00848484008484840084848400848484008484840084848400848484008484 | |
542 | - 8400FFFFFF00C6C6C60000000000000000000000000000000000000000000000 | |
543 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
544 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
545 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
546 | - 000000000000000000000000000000000000000000000000000084848400FFFF | |
547 | - FF00FFFFFF00FFFFFF00FFFFFF008484840084848400FFFFFF00000000000000 | |
548 | - 000000000000000000000000000000000000000000000000000084848400FFFF | |
549 | - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 | |
550 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
551 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
552 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
553 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
554 | - 0000000000000000000000000000000000000000000000000000000000008484 | |
555 | - 8400848484008484840084848400000000000000000000000000000000000000 | |
556 | - 000000000000000000000000000000000000000000000000000084848400FFFF | |
557 | - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6 | |
558 | - C600FFFFFF008484840000000000000000000000000000000000000000000000 | |
559 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
560 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
561 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
562 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
563 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
564 | - 000000000000000000000000000000000000000000000000000084848400FFFF | |
565 | - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6 | |
566 | - C600848484000000000000000000000000000000000000000000000000000000 | |
567 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
568 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
569 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
570 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
571 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
572 | - 0000000000000000000000000000000000000000000000000000848484008484 | |
573 | - 8400848484008484840084848400848484008484840084848400848484008484 | |
574 | - 8400000000000000000000000000000000000000000000000000000000000000 | |
575 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
576 | - 0000000000000000000000000000000000000000000000000000000000000000 | |
383 | + 0000000000000000000000000000000000000000000010421042104210421042 | |
384 | + 1042104210421042104200000000000000000000000000000000000000000000 | |
577 | 385 | 0000000000000000000000000000000000000000000000000000000000000000 |
578 | 386 | 000000000000000000000000000000000000424D3E000000000000003E000000 |
579 | 387 | 2800000040000000300000000100010000000000800100000000000000000000 |
@@ -38,9 +38,6 @@ type | ||
38 | 38 | property Count[RoundType: TGikoRoundType]: Integer read GetCount; |
39 | 39 | property OldFileRead: Boolean read FOldFileRead; |
40 | 40 | property Items[Index: integer; RoundType: TGikoRoundType]: TRoundItem read GetRoundItem; |
41 | - //procedure SetRoundName(Board: TBoard; RoundName: string); overload; | |
42 | - //procedure SetRoundName(ThreadItem: TThreadItem; RoundName: string); overload; | |
43 | - | |
44 | 41 | procedure LoadRoundBoardFile; |
45 | 42 | procedure LoadRoundThreadFile; |
46 | 43 | procedure SaveRoundFile; |
@@ -51,7 +48,6 @@ type | ||
51 | 48 | TRoundItem = class(TObject) |
52 | 49 | private |
53 | 50 | FItem : TObject; |
54 | - FRoundName: string; | |
55 | 51 | FRoundType: TGikoRoundType; |
56 | 52 | FTmpURL : string; |
57 | 53 | FBoolData: Boolean; //¢ë¢ëg¤å£ |
@@ -84,10 +80,12 @@ const | ||
84 | 80 | ROUND_INDEX_VERSION: string = '2.00'; |
85 | 81 | ERROR_BOARD_FILENAME: string = 'ErrorBoard.2ch'; //ErrorsðÛÇ·é |
86 | 82 | ERROR_ITEM_FILENAME: string = 'ErrorItem.2ch'; //ErrorsðÛÇ·é |
83 | +//! ñACeRXgN^ | |
87 | 84 | constructor TRoundItem.Create; |
88 | 85 | begin |
89 | 86 | inherited Create; |
90 | 87 | end; |
88 | +//! Â¼æ¾ | |
91 | 89 | function TRoundItem.GetBoardTitle : string; |
92 | 90 | begin |
93 | 91 | Result := ''; |
@@ -99,6 +97,7 @@ begin | ||
99 | 97 | end; |
100 | 98 | end; |
101 | 99 | end; |
100 | +//! Xbh¼æ¾ | |
102 | 101 | function TRoundItem.GetThreadTitle : string; |
103 | 102 | begin |
104 | 103 | Result := ''; |
@@ -108,6 +107,7 @@ begin | ||
108 | 107 | end; |
109 | 108 | end; |
110 | 109 | end; |
110 | +//! URLæ¾ | |
111 | 111 | function TRoundItem.GetURL : string; |
112 | 112 | begin |
113 | 113 | Result := ''; |
@@ -119,6 +119,7 @@ begin | ||
119 | 119 | end; |
120 | 120 | end; |
121 | 121 | end; |
122 | +//! XbhÌt@C¼æ¾ | |
122 | 123 | function TRoundItem.GetFileName : string; |
123 | 124 | begin |
124 | 125 | Result := ''; |
@@ -140,7 +141,7 @@ begin | ||
140 | 141 | end; |
141 | 142 | end; |
142 | 143 | end; |
143 | - | |
144 | +//! ñXgRXgN^ | |
144 | 145 | constructor TRoundList.Create; |
145 | 146 | begin |
146 | 147 | inherited; |
@@ -151,7 +152,7 @@ begin | ||
151 | 152 | RoundNameList.Duplicates := dupIgnore; |
152 | 153 | FOldFileRead := false; |
153 | 154 | end; |
154 | - | |
155 | +//! ñXgfXgN^ | |
155 | 156 | destructor TRoundList.Destroy; |
156 | 157 | begin |
157 | 158 | RoundNameList.Free; |
@@ -160,7 +161,7 @@ begin | ||
160 | 161 | FItemList.Free; |
161 | 162 | //inherited; |
162 | 163 | end; |
163 | - | |
164 | +//! ñ\ñÇÁiÂj | |
164 | 165 | function TRoundList.Add(Board: TBoard): Integer; |
165 | 166 | var |
166 | 167 | idx: Integer; |
@@ -168,22 +169,15 @@ var | ||
168 | 169 | begin |
169 | 170 | Result := -1; |
170 | 171 | idx := Find(Board); |
171 | - //RoundNameList.Add(Board.RoundName); | |
172 | 172 | if idx = -1 then begin |
173 | 173 | Item := TRoundItem.Create; |
174 | 174 | Item.FItem := Board; |
175 | 175 | // Item.BBSType := gbt2ch; //Æè ¦¸ |
176 | 176 | Item.RoundType := grtBoard; |
177 | -// Item.Item := Board; | |
178 | - //Item.URL := Board.URL; | |
179 | - //Item.BoardTitle := Board.Title; | |
180 | - //Item.ThreadTitle := ''; | |
181 | - //Item.FileName := ''; | |
182 | - //Item.RoundName := Board.RoundName; | |
183 | 177 | Result := FBoardList.Add(Item); |
184 | 178 | end; |
185 | 179 | end; |
186 | - | |
180 | +//! ñ\ñÇÁiXbhj | |
187 | 181 | function TRoundList.Add(ThreadItem: TThreadItem): Integer; |
188 | 182 | var |
189 | 183 | idx: Integer; |
@@ -191,26 +185,18 @@ var | ||
191 | 185 | begin |
192 | 186 | Result := -1; |
193 | 187 | idx := Find(ThreadItem); |
194 | - //RoundNameList.Add(ThreadItem.RoundName); | |
195 | 188 | if idx = -1 then begin |
196 | 189 | Item := TRoundItem.Create; |
197 | 190 | Item.FItem := ThreadItem; |
198 | 191 | // Item.BBSType := gbt2ch; //Æè ¦¸ |
199 | 192 | Item.RoundType := grtItem; |
200 | -// Item.Item := ThreadItem; | |
201 | - //Item.URL := Threaditem.URL; | |
202 | - //Item.BoardTitle := ThreadItem.ParentBoard.Title; | |
203 | - //Item.ThreadTitle := ThreadItem.Title; | |
204 | - //Item.FileName := ThreadItem.FileName; | |
205 | - //Item.RoundName := ThreadItem.RoundName; | |
206 | 193 | Result := FItemList.Add(Item); |
207 | 194 | end; |
208 | 195 | end; |
209 | - | |
196 | +//! ñ\ñíiÂj | |
210 | 197 | procedure TRoundList.Delete(Board: TBoard); |
211 | 198 | var |
212 | 199 | idx: Integer; |
213 | -// Item: TRoundItem; | |
214 | 200 | begin |
215 | 201 | idx := Find(Board); |
216 | 202 | if idx <> -1 then begin |
@@ -219,11 +205,10 @@ begin | ||
219 | 205 | FBoardList.Delete(idx); |
220 | 206 | end; |
221 | 207 | end; |
222 | - | |
208 | +//! ñ\ñíiXbhj | |
223 | 209 | procedure TRoundList.Delete(ThreadItem: TThreadItem); |
224 | 210 | var |
225 | 211 | idx: Integer; |
226 | -// Item: TRoundItem; | |
227 | 212 | begin |
228 | 213 | idx := Find(ThreadItem); |
229 | 214 | if idx <> -1 then begin |
@@ -232,7 +217,7 @@ begin | ||
232 | 217 | FItemList.Delete(idx); |
233 | 218 | end; |
234 | 219 | end; |
235 | - | |
220 | +//! ñ\ñÁ | |
236 | 221 | procedure TRoundList.Clear; |
237 | 222 | var |
238 | 223 | i: Integer; |
@@ -250,7 +235,7 @@ begin | ||
250 | 235 | end; |
251 | 236 | FItemList.Capacity := FItemList.Count; |
252 | 237 | end; |
253 | - | |
238 | +//! ñ\ñõiÂj | |
254 | 239 | function TRoundList.Find(Board: TBoard): Integer; |
255 | 240 | var |
256 | 241 | i: Integer; |
@@ -266,7 +251,7 @@ begin | ||
266 | 251 | end; |
267 | 252 | end; |
268 | 253 | end; |
269 | - | |
254 | +//! ñ\ñõiXbhj | |
270 | 255 | function TRoundList.Find(ThreadItem: TThreadItem): Integer; |
271 | 256 | var |
272 | 257 | i: Integer; |
@@ -282,6 +267,7 @@ begin | ||
282 | 267 | end; |
283 | 268 | end; |
284 | 269 | end; |
270 | +//! ñ\ñõiURL{ACe^Cvj | |
285 | 271 | function TRoundList.Find(URL: string; RoundType: TGikoRoundType): Integer; |
286 | 272 | var |
287 | 273 | i: Integer; |
@@ -308,6 +294,7 @@ begin | ||
308 | 294 | end; |
309 | 295 | end; |
310 | 296 | end; |
297 | +//! ñ\ñíiURL{ACe^Cvj | |
311 | 298 | procedure TRoundList.Delete(URL: string; RoundType: TGikoRoundType); |
312 | 299 | var |
313 | 300 | idx: Integer; |
@@ -323,7 +310,6 @@ begin | ||
323 | 310 | board := TBoard(Item); |
324 | 311 | Item.Free; |
325 | 312 | FBoardList.Delete(idx); |
326 | - //board := BBSsFindBoardFromURL(URL); | |
327 | 313 | if board <> nil then begin |
328 | 314 | board.Round := False; |
329 | 315 | board.RoundName := ''; |
@@ -334,7 +320,6 @@ begin | ||
334 | 320 | Item.Free; |
335 | 321 | FItemList.Delete(idx); |
336 | 322 | |
337 | - //threadItem := BBSsFindThreadFromURL(URL); | |
338 | 323 | if threadItem <> nil then begin |
339 | 324 | threadItem.Round := false; |
340 | 325 | threadItem.RoundName := ''; |
@@ -342,32 +327,7 @@ begin | ||
342 | 327 | end; |
343 | 328 | end; |
344 | 329 | end; |
345 | -{ | |
346 | -procedure TRoundList.SetRoundName(Board: TBoard; RoundName: string); | |
347 | -var | |
348 | - idx: Integer; | |
349 | - Item: TRoundItem; | |
350 | -begin | |
351 | - idx := Find(Board); | |
352 | - if idx <> -1 then begin | |
353 | - Item := TRoundItem(FBoardList[idx]); | |
354 | - Item.RoundName := RoundName; | |
355 | - end; | |
356 | -end; | |
357 | -} | |
358 | -{ | |
359 | -procedure TRoundList.SetRoundName(ThreadItem: TThreadItem; RoundName: string); | |
360 | -var | |
361 | - idx: Integer; | |
362 | - Item: TRoundItem; | |
363 | -begin | |
364 | - idx := Find(ThreadItem); | |
365 | - if idx <> -1 then begin | |
366 | - Item := TRoundItem(FItemList[idx]); | |
367 | - Item.RoundName := RoundName; | |
368 | - end; | |
369 | -end; | |
370 | -} | |
330 | +//! ñ\ñæ¾ | |
371 | 331 | function TRoundList.GetCount(RoundType: TGikoRoundType): Integer; |
372 | 332 | begin |
373 | 333 | Result := 0; |
@@ -376,7 +336,7 @@ begin | ||
376 | 336 | else if RoundType = grtItem then |
377 | 337 | Result := FItemList.Count; |
378 | 338 | end; |
379 | - | |
339 | +//! ñ\ñæ¾ | |
380 | 340 | function TRoundList.GetRoundItem(Index: Integer; RoundType: TGikoRoundType): TRoundItem; |
381 | 341 | begin |
382 | 342 | Result := nil; |
@@ -388,6 +348,7 @@ begin | ||
388 | 348 | Result := TRoundItem(FItemList[Index]); |
389 | 349 | end; |
390 | 350 | end; |
351 | +//! {[hñ\ñt@CÇÝÝ | |
391 | 352 | procedure TRoundList.LoadRoundBoardFile; |
392 | 353 | var |
393 | 354 | i: Integer; |
@@ -395,7 +356,6 @@ var | ||
395 | 356 | FileName, bFileName: string; |
396 | 357 | errorSl: TStringList; |
397 | 358 | errorFileName: string; |
398 | - //Item: TRoundItem; | |
399 | 359 | delCount: Integer; |
400 | 360 | begin |
401 | 361 | sl := TStringList.Create; |
@@ -451,20 +411,16 @@ begin | ||
451 | 411 | sl.Free; |
452 | 412 | end; |
453 | 413 | end; |
414 | +//! Xbhñ\ñt@CÇÝÝ | |
454 | 415 | procedure TRoundList.LoadRoundThreadFile; |
455 | 416 | var |
456 | 417 | i: Integer; |
457 | -// j: Integer; | |
458 | 418 | sl: TStringList; |
459 | 419 | FileName, bFileName: string; |
460 | 420 | errorSl: TStringList; |
461 | 421 | errorFileName: string; |
462 | -// Item: TRoundItem; | |
463 | 422 | delCount: Integer; |
464 | -// boardList : TStringList; | |
465 | 423 | begin |
466 | -// boardList := TStringList.Create; | |
467 | -// boardList.Duplicates := dupIgnore; | |
468 | 424 | errorSl := TStringList.Create; |
469 | 425 | errorSl.Duplicates := dupIgnore; |
470 | 426 | sl := TStringList.Create; |
@@ -506,21 +462,15 @@ begin | ||
506 | 462 | end; |
507 | 463 | end; |
508 | 464 | end; |
509 | -// j := boardList.Count - 1; | |
510 | -// while j >= 0 do begin | |
511 | -// GikoSys.ReadSubjectFile( BBSsFindBoardFromURL( boardList[j] ) ); | |
512 | -// boardList.Delete(j); | |
513 | -// Dec(j); | |
514 | -// end; | |
515 | 465 | if errorSl.Count > 0 then |
516 | 466 | errorSl.SaveToFile(errorFileName); |
517 | 467 | end; |
518 | 468 | finally |
519 | 469 | errorSl.Free; |
520 | 470 | sl.Free; |
521 | -// boardList.Free; | |
522 | 471 | end; |
523 | 472 | end; |
473 | +//! ñ\ñt@CÛ¶ | |
524 | 474 | procedure TRoundList.SaveRoundFile; |
525 | 475 | var |
526 | 476 | i: integer; |