Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

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

revision 1.138 by h677, Thu May 13 16:36:39 2004 UTC revision 1.139 by h677, Sun May 23 05:37:51 2004 UTC
# Line 740  procedure TGikoSys.WriteThreadDat(Board: Line 740  procedure TGikoSys.WriteThreadDat(Board:
740  //      Values: array[Boolean] of string = ('0', '1');  //      Values: array[Boolean] of string = ('0', '1');
741  var  var
742          i: integer;          i: integer;
743            baseup: Integer;
744          FileName: string;          FileName: string;
745          sl: TStringList;          sl: TStringList;
746          s: string;          s: string;
747          TmpFileList: TStringList;          TmpFileList: TStringList;
748            TmpThreadItem: TThreadItem;
749  begin  begin
750          if not Board.IsThreadDatRead then          if not Board.IsThreadDatRead then
751                  Exit;                  Exit;
# Line 755  begin Line 757  begin
757          TmpFileList.Sorted := true;          TmpFileList.Sorted := true;
758          try          try
759                  GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, false);                  GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, false);
760                    baseup := 0;
761                    for i := 0 to Board.Count - 1 do begin
762                            if Board.Items[i].No = 0 then Inc(baseup);
763                    end;
764                    for i := 0 to Board.Count - 1 do begin
765                            Board.Items[i].No := Board.Items[i].No + baseup
766                    end;
767                    for i := 0 to Board.Count - 1 do begin
768                            if i <>  Board.Items[i].No - 1 then begin
769                                    TmpThreadItem := Board.Items[Board.Items[i].No - 1];
770                                    Board.Items[Board.Items[i].No - 1] := Board.Items[i];
771                                    Board.Items[i] := TmpThreadItem;
772                            end;
773                    end;
774                  sl.BeginUpdate;                  sl.BeginUpdate;
775                  sl.Add(FOLDER_INDEX_VERSION);                  sl.Add(FOLDER_INDEX_VERSION);
776                  for i := 0 to Board.Count - 1 do begin                  for i := 0 to Board.Count - 1 do begin

Legend:
Removed from v.1.138  
changed lines
  Added in v.1.139

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