Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/RoundData.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.18 by h677, Tue Apr 13 12:53:47 2004 UTC revision 1.19 by h677, Wed Nov 10 14:27:36 2004 UTC
# Line 329  procedure TRoundList.LoadRoundBoardFile; Line 329  procedure TRoundList.LoadRoundBoardFile;
329  var  var
330          i: Integer;          i: Integer;
331          sl: TStringList;          sl: TStringList;
332          FileName: string;          FileName, bFileName: string;
333      errorSl: TStringList;          errorSl: TStringList;
334      errorFileName: string;          errorFileName: string;
335          Item: TRoundItem;          Item: TRoundItem;
336      delCount: Integer;          delCount: Integer;
337  begin  begin
338          sl := TStringList.Create;          sl := TStringList.Create;
339      errorSl := TStringList.Create;          errorSl := TStringList.Create;
340          errorSl.Duplicates := dupIgnore;          errorSl.Duplicates := dupIgnore;
341          try          try
342                  //ボード巡回ファイル読み込み                  //ボード巡回ファイル読み込み
343                  FileName := GikoSys.GetConfigDir + ROUND_BOARD_FILENAME;                  FileName := GikoSys.GetConfigDir + ROUND_BOARD_FILENAME;
344          //エラー行保存ファイル読み込み                  bFileName := GikoSys.GetConfigDir + '~' + ROUND_BOARD_FILENAME;
345          errorFileName := GikoSys.GetConfigDir + ERROR_BOARD_FILENAME;                  //エラー行保存ファイル読み込み
346                    errorFileName := GikoSys.GetConfigDir + ERROR_BOARD_FILENAME;
347    
348                  if FileExists(FileName) then begin                  if FileExists(FileName) then begin
349                          sl.LoadFromFile(FileName);                          sl.LoadFromFile(FileName);
350              if FileExists(errorFileName) then begin                          if FileExists(bFileName) then
351                  try                                  DeleteFile(bFileName);
352                            //バックアップ用のファイルを作成する
353                            sl.SaveToFile(bFileName);
354                            if FileExists(errorFileName) then begin
355                                    try
356                          errorSl.LoadFromFile(errorFileName);                          errorSl.LoadFromFile(errorFileName);
357                  except                  except
358                  end;                  end;
# Line 395  var Line 401  var
401          i: Integer;          i: Integer;
402  //    j: Integer;  //    j: Integer;
403          sl: TStringList;          sl: TStringList;
404          FileName: string;          FileName, bFileName: string;
405      errorSl: TStringList;      errorSl: TStringList;
406      errorFileName: string;      errorFileName: string;
407          Item: TRoundItem;          Item: TRoundItem;
# Line 410  begin Line 416  begin
416          try          try
417                  //スレ巡回ファイル読み込み                  //スレ巡回ファイル読み込み
418                  FileName := GikoSys.GetConfigDir + ROUND_ITEM_FILENAME;                  FileName := GikoSys.GetConfigDir + ROUND_ITEM_FILENAME;
419          //エラー行保存ファイル読み込み                  bFileName := GikoSys.GetConfigDir + '~' + ROUND_ITEM_FILENAME;
420                    //エラー行保存ファイル読み込み
421          errorFileName := GikoSys.GetConfigDir + ERROR_ITEM_FILENAME;          errorFileName := GikoSys.GetConfigDir + ERROR_ITEM_FILENAME;
422                  if FileExists(FileName) then begin                  if FileExists(FileName) then begin
423                          sl.LoadFromFile(FileName);                          sl.LoadFromFile(FileName);
424              if FileExists(errorFileName) then begin                          if FileExists(bFileName) then
425                                    DeleteFile(bFileName);
426                            sl.SaveToFile(bFileName);
427                            if FileExists(errorFileName) then begin
428                  try                  try
429                          errorSl.LoadFromFile(errorFileName);                          errorSl.LoadFromFile(errorFileName);
430                  except                  except

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26