Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/BoardGroup.pas

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

revision 1.31 by h677, Fri Jan 23 15:22:37 2004 UTC revision 1.32 by h677, Sat Feb 21 08:37:10 2004 UTC
# Line 356  type Line 356  type
356          function        BBSsFindBoardFromURL( inURL : string ) : TBoard;          function        BBSsFindBoardFromURL( inURL : string ) : TBoard;
357          function        BBSsFindBoardFromTitle( inTitle : string ) : TBoard;          function        BBSsFindBoardFromTitle( inTitle : string ) : TBoard;
358          function        BBSsFindThreadFromURL( inURL : string ) : TThreadItem;          function        BBSsFindThreadFromURL( inURL : string ) : TThreadItem;
359        function    ConvertDateTimeString( inDateTimeString : string) : string;
360        
361  var  var
362          BBSs            : array of TBBS;          BBSs            : array of TBBS;
363    
# Line 985  procedure TBoard.LoadSettings; Line 986  procedure TBoard.LoadSettings;
986  var  var
987          ini: TMemIniFile;          ini: TMemIniFile;
988          FileName: string;          FileName: string;
989        tmp: string;
990  begin  begin
991          if Length( FilePath ) > 0 then          if Length( FilePath ) > 0 then
992                  FileName := ExtractFilePath( FilePath ) + FOLDER_INI_FILENAME                  FileName := ExtractFilePath( FilePath ) + FOLDER_INI_FILENAME
# Line 997  begin Line 999  begin
999          ini := TMemIniFile.Create(FileName);          ini := TMemIniFile.Create(FileName);
1000          try          try
1001  //              Round := ini.ReadBool('Status', 'Round', False);  //              Round := ini.ReadBool('Status', 'Round', False);
1002                  FRoundDate := ini.ReadDateTime('Status', 'RoundDate', ZERO_DATE);                  tmp := ini.ReadString('Status', 'RoundDate', DateTimeToStr(ZERO_DATE));
1003                  FLastModified := ini.ReadDateTime('Status', 'LastModified', ZERO_DATE);          FRoundDate := StrToDateTime(ConvertDateTimeString(tmp));
1004                  FLastGetTime := ini.ReadDateTime('Status', 'LastGetTime', ZERO_DATE);          tmp := ini.ReadString('Status', 'LastModified', DateTimeToStr(ZERO_DATE));
1005            FLastModified := StrToDateTime(ConvertDateTimeString(tmp));
1006            tmp := ini.ReadString('Status', 'LastGetTime', DateTimeToStr(ZERO_DATE));
1007            FLastGetTime := StrToDateTime(ConvertDateTimeString(tmp));
1008    
1009            {
1010                    try
1011                            FRoundDate := ini.ReadDateTime('Status', 'RoundDate', ZERO_DATE);
1012            except
1013                tmp := ini.ReadString('Status', 'RoundDate', DateTimeToStr(ZERO_DATE));
1014                    FRoundDate := StrToDateTime(ConvertDateTimeString(tmp));
1015            end;
1016            try
1017                    FLastModified := ini.ReadDateTime('Status', 'LastModified', ZERO_DATE);
1018                    except
1019                tmp := ini.ReadString('Status', 'LastModified', DateTimeToStr(ZERO_DATE));
1020                    FLastModified := StrToDateTime(ConvertDateTimeString(tmp));
1021            end;
1022            try
1023                    FLastGetTime := ini.ReadDateTime('Status', 'LastGetTime', ZERO_DATE);
1024            except
1025                tmp := ini.ReadString('Status', 'LastGetTime', DateTimeToStr(ZERO_DATE));
1026                    FLastGetTime := StrToDateTime(ConvertDateTimeString(tmp));
1027            end;
1028            }
1029                  FUnRead := ini.ReadInteger('Status', 'UnRead', 0);                  FUnRead := ini.ReadInteger('Status', 'UnRead', 0);
1030                  FSPID := ini.ReadString('Cookie', 'SPID', '');                  FSPID := ini.ReadString('Cookie', 'SPID', '');
1031                  FPON := ini.ReadString('Cookie', 'PON', '');                  FPON := ini.ReadString('Cookie', 'PON', '');
# Line 1049  begin Line 1075  begin
1075                  ini.Free;                  ini.Free;
1076          end;          end;
1077  end;  end;
1078    //ときたま2003 02 08 0:32:13こんな形式の日付があるのでそれを
1079    //        2003/02/08 0:32:13に変換する
1080    function        ConvertDateTimeString( inDateTimeString : string) : string;
1081    var
1082            i : Integer;
1083    begin
1084        if ( AnsiPos('/', inDateTimeString ) = 0 ) and
1085            ( AnsiCompareStr( DateTimeToStr(ZERO_DATE), inDateTimeString) <> 0 ) then begin
1086                    for i := 0 to 1 do begin
1087                    Insert('/',inDateTimeString, AnsiPos(' ', inDateTimeString) + 1 );
1088                    Delete(inDateTimeString, AnsiPos(' ', inDateTimeString), 1);
1089            end;
1090        end;
1091        Result := inDateTimeString;
1092    end;
1093  // サブジェクトURL取得  // サブジェクトURL取得
1094  function TBoard.GetReadCgiURL: string;  function TBoard.GetReadCgiURL: string;
1095  begin  begin

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

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