From 7b795605ed9aed7bd2d4a49598fc192085163164 Mon Sep 17 00:00:00 2001 From: h677 Date: Sat, 21 Feb 2004 08:37:10 +0000 Subject: [PATCH] =?utf8?q?=E6=9D=BF=E3=81=AE=E5=8F=96=E5=BE=97=E6=97=A5?= =?utf8?q?=E6=99=82=E3=81=AE=E6=96=87=E5=AD=97=E5=88=97=E3=81=AB=E3=81=8A?= =?utf8?q?=E3=81=8B=E3=81=97=E3=81=AA=E5=BD=A2=E5=BC=8F=E3=81=8C=E3=81=A8?= =?utf8?q?=E3=81=8D=E3=81=9F=E3=81=BE=E3=81=82=E3=82=8B=E6=A8=A1=E6=A7=98?= =?utf8?q?=E3=81=AA=E3=81=AE=E3=81=A7=E3=80=81=20=E3=81=9D=E3=81=AE?= =?utf8?q?=E3=81=A8=E3=81=8D=E3=81=A7=E3=82=82=E3=81=8D=E3=81=A1=E3=82=93?= =?utf8?q?=E3=81=A8=E6=97=A5=E6=99=82=E3=82=92=E5=8F=96=E5=BE=97=E3=81=A7?= =?utf8?q?=E3=81=8D=E3=82=8B=E3=82=88=E3=81=86=E3=81=AB=E4=BF=AE=E6=AD=A3?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- BoardGroup.pas | 50 +++++++++++++++++++++++++++++++++++++++++++++----- 1 file changed, 45 insertions(+), 5 deletions(-) diff --git a/BoardGroup.pas b/BoardGroup.pas index f903fe9..1b098ca 100644 --- a/BoardGroup.pas +++ b/BoardGroup.pas @@ -356,7 +356,8 @@ type function BBSsFindBoardFromURL( inURL : string ) : TBoard; function BBSsFindBoardFromTitle( inTitle : string ) : TBoard; function BBSsFindThreadFromURL( inURL : string ) : TThreadItem; - + function ConvertDateTimeString( inDateTimeString : string) : string; + var BBSs : array of TBBS; @@ -985,6 +986,7 @@ procedure TBoard.LoadSettings; var ini: TMemIniFile; FileName: string; + tmp: string; begin if Length( FilePath ) > 0 then FileName := ExtractFilePath( FilePath ) + FOLDER_INI_FILENAME @@ -997,9 +999,33 @@ begin ini := TMemIniFile.Create(FileName); try // Round := ini.ReadBool('Status', 'Round', False); - FRoundDate := ini.ReadDateTime('Status', 'RoundDate', ZERO_DATE); - FLastModified := ini.ReadDateTime('Status', 'LastModified', ZERO_DATE); - FLastGetTime := ini.ReadDateTime('Status', 'LastGetTime', ZERO_DATE); + tmp := ini.ReadString('Status', 'RoundDate', DateTimeToStr(ZERO_DATE)); + FRoundDate := StrToDateTime(ConvertDateTimeString(tmp)); + tmp := ini.ReadString('Status', 'LastModified', DateTimeToStr(ZERO_DATE)); + FLastModified := StrToDateTime(ConvertDateTimeString(tmp)); + tmp := ini.ReadString('Status', 'LastGetTime', DateTimeToStr(ZERO_DATE)); + FLastGetTime := StrToDateTime(ConvertDateTimeString(tmp)); + + { + try + FRoundDate := ini.ReadDateTime('Status', 'RoundDate', ZERO_DATE); + except + tmp := ini.ReadString('Status', 'RoundDate', DateTimeToStr(ZERO_DATE)); + FRoundDate := StrToDateTime(ConvertDateTimeString(tmp)); + end; + try + FLastModified := ini.ReadDateTime('Status', 'LastModified', ZERO_DATE); + except + tmp := ini.ReadString('Status', 'LastModified', DateTimeToStr(ZERO_DATE)); + FLastModified := StrToDateTime(ConvertDateTimeString(tmp)); + end; + try + FLastGetTime := ini.ReadDateTime('Status', 'LastGetTime', ZERO_DATE); + except + tmp := ini.ReadString('Status', 'LastGetTime', DateTimeToStr(ZERO_DATE)); + FLastGetTime := StrToDateTime(ConvertDateTimeString(tmp)); + end; + } FUnRead := ini.ReadInteger('Status', 'UnRead', 0); FSPID := ini.ReadString('Cookie', 'SPID', ''); FPON := ini.ReadString('Cookie', 'PON', ''); @@ -1049,7 +1075,21 @@ begin ini.Free; end; end; - +//‚Æ‚«‚½‚Ü2003 02 08 0:32:13‚±‚ñ‚ÈŒ`Ž®‚Ì“ú•t‚ª‚ ‚é‚Ì‚Å‚»‚ê‚ð +// 2003/02/08 0:32:13‚É•ÏŠ·‚·‚é +function ConvertDateTimeString( inDateTimeString : string) : string; +var + i : Integer; +begin + if ( AnsiPos('/', inDateTimeString ) = 0 ) and + ( AnsiCompareStr( DateTimeToStr(ZERO_DATE), inDateTimeString) <> 0 ) then begin + for i := 0 to 1 do begin + Insert('/',inDateTimeString, AnsiPos(' ', inDateTimeString) + 1 ); + Delete(inDateTimeString, AnsiPos(' ', inDateTimeString), 1); + end; + end; + Result := inDateTimeString; +end; // ƒTƒuƒWƒFƒNƒgURLŽæ“¾ function TBoard.GetReadCgiURL: string; begin -- 2.11.0