procedure Delete(index: integer);
procedure Clear; override;
function Find(key: string): TCategory;
- function FindBBSID(BBSID: string): TBoard;
- function FindBoardFromTitle(Title: string): TBoard;
- function FindBoardFromURL(inURL: string): TBoard;
- function FindThreadFromURL( inURL : string ) : TThreadItem;
- function FindThreadItem(BBSID: string; FileName: string): TThreadItem;
- function FindCategoryFromTitle( inTitle : string ) : TCategory;
+ function FindBBSID(const BBSID: string): TBoard;
+ function FindBoardFromTitle(const Title: string): TBoard;
+ function FindBoardFromURL(const inURL: string): TBoard;
+ function FindThreadFromURL(const inURL : string ) : TThreadItem;
+ function FindThreadItem(const BBSID, FileName: string): TThreadItem;
+ function FindCategoryFromTitle(const inTitle : string ) : TCategory;
property FilePath : string read FFilePath write FFilePath;
property Items[index: integer]: TCategory read GetCategory write SetCategory;
property Title: string read FTitle write FTitle;
property NodeExpand: Boolean read FExpand write FExpand;
-
+
property KubetsuChk: Boolean read FKubetsuChk write FKubetsuChk;
property SelectText: string read FSelectText write SetSelectText;
property ShortSelectText: string read FShortSelectText write FShortSelectText;
function Add(item: TBoard): integer;
procedure Delete(index: integer);
procedure Clear; override;
- function FindName(key: string): TBoard;
- function FindBBSID(BBSID: string): TBoard;
- function FindBoardFromTitle(Title: string): TBoard;
- function FindBoardFromURL(inURL: string): TBoard;
- function FindThreadFromURL( inURL : string ) : TThreadItem;
+ function FindName(const key: string): TBoard;
+ function FindBBSID(const BBSID: string): TBoard;
+ function FindBoardFromTitle(const Title: string): TBoard;
+ function FindBoardFromURL(const inURL: string): TBoard;
+ function FindThreadFromURL(const inURL : string ) : TThreadItem;
function IsMidoku: Boolean;
property NodeExpand: Boolean read FExpand write FExpand;
procedure Delete(index: integer);
procedure DeleteList(index: integer);
procedure Clear; override;
- function FindThreadFromFileName(ItemFileName: string): TThreadItem;
- function FindThreadFromURL( inURL : string ) : TThreadItem;
- function GetIndexFromFileName(ItemFileName: string): Integer;
- function GetIndexFromURL(URL: string): Integer;
+ function FindThreadFromFileName(const ItemFileName: string): TThreadItem;
+ function FindThreadFromURL(const inURL : string ) : TThreadItem;
+ function GetIndexFromFileName(const ItemFileName: string): Integer;
+ function GetIndexFromURL(const URL: string): Integer;
procedure LoadSettings;
procedure SaveSettings;
function GetReadCgiURL: string;
procedure SetLastModified(d: TDateTime);
procedure SetRound(b: Boolean);
- procedure SetRoundName(s: string);
+ procedure SetRoundName(const s: string);
procedure SetKokomade(i: Integer);
procedure SetUnRead(b: Boolean);
procedure SetScrollTop(i: Integer);
procedure Init;
- function GetCreateDate: TDateTime;
+ function GetCreateDate: TDateTime;
public
constructor Create( inPlugIn : TBoardPlugIn; inURL : string );
destructor Destroy; override;
function GetDatURL: string;
function GetDatgzURL: string;
// function GetOldDatgzURL: string;
- function GetOfflawCgiURL(SessionID: string): string;
+ function GetOfflawCgiURL(const SessionID: string): string;
function GetSendURL: string;
procedure DeleteLogFile;
function GetThreadFileName: string;
property DownloadHost: string read FDownloadHost write FDownloadHost;
property AgeSage: TGikoAgeSage read FAgeSage write FAgeSage;
// property SPID: string read FSPID write FSPID;
- property CreateDate: TDateTime read GetCreateDate;
+ property CreateDate: TDateTime read GetCreateDate;
property URL : string read FURL write FURL;
property BoardPlugIn : TBoardPlugIn read FBoardPlugIn;
property FilePath : string read FFilePath write FFilePath;
function BBSsFindBoardFromBBSID( inBBSID : string ) : TBoard;
function BBSsFindBoardFromURL( inURL : string ) : TBoard;
function BBSsFindBoardFromTitle( inTitle : string ) : TBoard;
- function BBSsFindThreadFromURL( inURL : string ) : TThreadItem;
+ function BBSsFindThreadFromURL(const inURL : string ) : TThreadItem;
function ConvertDateTimeString( inDateTimeString : string) : TDateTime;
var
end;
function BBSsFindThreadFromURL(
- inURL : string
+ const inURL : string
) : TThreadItem;
var
board : TBoard;
Result := nil;
end;
-function TBBS.FindBBSID(BBSID: string): TBoard;
+function TBBS.FindBBSID(const BBSID: string): TBoard;
var
i : Integer;
begin
//*************************************************************************
// \83^\83C\83g\83\8b\82Ì\88ê\92v\82·\82é\94Â\82ð\92T\82·
//*************************************************************************)
-function TBBS.FindBoardFromTitle(Title: string): TBoard;
+function TBBS.FindBoardFromTitle(const Title: string): TBoard;
var
i: Integer;
begin
//*************************************************************************
// URL \82ð\8eó\82¯\95t\82¯\82é\94Â\82ð\92T\82·
//*************************************************************************)
-function TBBS.FindBoardFromURL(inURL: string): TBoard;
+function TBBS.FindBoardFromURL(const inURL: string): TBoard;
var
i : Integer;
begin
//*************************************************************************
// URL \82ð\8eó\82¯\95t\82¯\82é\83X\83\8c\83b\83h\82ð\92T\82·
//*************************************************************************)
-function TBBS.FindThreadFromURL(inURL: string): TThreadItem;
+function TBBS.FindThreadFromURL(const inURL: string): TThreadItem;
var
board : TBoard;
boardURL : string;
end;
-function TBBS.FindThreadItem(BBSID: string; FileName: string): TThreadItem;
+function TBBS.FindThreadItem(const BBSID, FileName: string): TThreadItem;
var
Board: TBoard;
begin
Result := Board.FindThreadFromFileName(FileName);
end;
-function TBBS.FindCategoryFromTitle( inTitle : string ) : TCategory;
+function TBBS.FindCategoryFromTitle(const inTitle : string ) : TCategory;
var
i : Integer;
begin
begin
for i := Count - 1 downto 0 do
Delete(i);
- Capacity := Count;
+ Capacity := Count;
end;
-function TCategory.FindName(key: string): TBoard;
+function TCategory.FindName(const key: string): TBoard;
begin
Result := nil;
end;
-function TCategory.FindBBSID(BBSID: string): TBoard;
+function TCategory.FindBBSID(const BBSID: string): TBoard;
var
i : integer;
begin
//*************************************************************************
// \83^\83C\83g\83\8b\82Ì\88ê\92v\82·\82é\94Â\82ð\92T\82·
//*************************************************************************)
-function TCategory.FindBoardFromTitle(Title: string): TBoard;
+function TCategory.FindBoardFromTitle(const Title: string): TBoard;
var
i : integer;
begin
//*************************************************************************
// URL \82ð\8eó\82¯\95t\82¯\82é\94Â\82ð\92T\82·
//*************************************************************************)
-function TCategory.FindBoardFromURL(inURL: string): TBoard;
+function TCategory.FindBoardFromURL(const inURL: string): TBoard;
var
i : Integer;
begin
//*************************************************************************
// URL \82ð\8eó\82¯\95t\82¯\82é\83X\83\8c\83b\83h\82ð\92T\82·
//*************************************************************************)
-function TCategory.FindThreadFromURL(inURL: string): TThreadItem;
+function TCategory.FindThreadFromURL(const inURL: string): TThreadItem;
var
board : TBoard;
boardURL : string;
Capacity := Count;
end;
-function TBoard.FindThreadFromFileName(ItemFileName: string): TThreadItem;
+function TBoard.FindThreadFromFileName(const ItemFileName: string): TThreadItem;
var
i: integer;
begin
end;
end;
-function TBoard.GetIndexFromFileName(ItemFileName: string): Integer;
+function TBoard.GetIndexFromFileName(const ItemFileName: string): Integer;
var
i: integer;
begin
end;
end;
-function TBoard.GetIndexFromURL(URL: string): Integer;
+function TBoard.GetIndexFromURL(const URL: string): Integer;
begin
Result := IndexOf( URL );
end;
-function TBoard.FindThreadFromURL( inURL : string ) : TThreadItem;
+function TBoard.FindThreadFromURL(const inURL : string ) : TThreadItem;
var
i : Integer;
begin
end;
end;}
-function TThreadItem.GetOfflawCgiURL(SessionID: string): string;
+function TThreadItem.GetOfflawCgiURL(const SessionID: string): string;
//var
// Protocol, Host, Path, Document, Port, Bookmark: string;
begin
ParentBoard.FModified := True;
end;
-procedure TThreadItem.SetRoundName(s: string);
+procedure TThreadItem.SetRoundName(const s: string);
begin
if FRoundName = s then Exit;
FRoundName := s;
procedure MenuFont(Font: TFont);
- function RemoveToken(var s:string;delimiter:string):string;
+ function RemoveToken(var s:string; const delimiter:string):string;
function GetTokenIndex(s: string; delimiter: string; index: Integer): string;
-
function DeleteLink(const s: string): string;
function GetShortName(const LongName: string; ALength: integer): string;
ZERO_DATE: Integer = 25569;
BETA_VERSION_NAME_E = 'beta';
BETA_VERSION_NAME_J = 'ÊÞÀ';
- BETA_VERSION = 47;
+ BETA_VERSION = 48;
BETA_VERSION_BUILD = ''; //debug\94Å\82È\82Ç
APP_NAME = 'gikoNavi';
begin
if Board.IsThreadDatRead then
Exit;
- Board.Clear;
+ //Board.Clear;
UnRead := 0;
// TmpUpdate := False;
GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False, False);
// \8fd\95¡\82ð\96h\82®
+ Board.BeginUpdate;
Board.Sorted := True;
-
+
sl := TStringList.Create;
try
if FileExists(FileName) then begin
ThreadItem.EndUpdate;
Board.Add(ThreadItem);
end;
+ Board.EndUpdate;
finally
sl.Free;
FileList.Free;
end;
function TGikoSys.ParseIndexLine(Line: string): TIndexRec;
-var
- s: string;
- i: Integer;
+//var
+// s: string;
+// i: Integer;
begin
- for i := 0 to 14 do begin
+ {for i := 0 to 14 do begin
s := GetTokenIndex(Line, #1, i);
case i of
0: Result.FNo := StrToIntDef('$' + s, 0);
14: Result.FAgeSage := TGikoAgeSage(StrToIntDef('$' + s, 0));
end;
end;
+ }
+ Result.FNo := StrToIntDef('$' + RemoveToken(Line, #1), 0);
+ Result.FFileName := RemoveToken(Line, #1);
+ Result.FTitle := RemoveToken(Line, #1);
+ Result.FCount := StrToIntDef('$' + RemoveToken(Line, #1), 0);
+ Result.FSize := StrToIntDef('$' + RemoveToken(Line, #1), 0);
+ Result.FRoundDate := IntToDateTime(StrToIntDef('$' + RemoveToken(Line, #1), ZERO_DATE));
+ Result.FLastModified := IntToDateTime(StrToIntDef('$' + RemoveToken(Line, #1), ZERO_DATE));
+ Result.FKokomade := StrToIntDef('$' + RemoveToken(Line, #1), -1);
+ Result.FNewReceive := StrToIntDef('$' + RemoveToken(Line, #1), 0);
+ RemoveToken(Line, #1);//9: ; //\96¢\8eg\97p
+ Result.FUnRead := IntToBool(StrToIntDef('$' + RemoveToken(Line, #1), 0));
+ Result.FScrollTop := StrToIntDef('$' + RemoveToken(Line, #1), 0);
+ Result.FAllResCount := StrToIntDef('$' + RemoveToken(Line, #1), 0);
+ Result.FNewResCount := StrToIntDef('$' + RemoveToken(Line, #1), 0);
+ Result.FAgeSage := TGikoAgeSage(StrToIntDef('$' + RemoveToken(Line, #1), 0));
+
end;
//\8ew\92è\83t\83H\83\8b\83_\93à\82Ì\8ew\92è\83t\83@\83C\83\8b\88ê\97\97\82ð\8eæ\93¾\82·\82é
Delim := ','
else
Delim := '<>';
-
+ {
Result.FFileName := GetTokenIndex(Line, Delim, 0);
Result.FTitle := GetTokenIndex(Line, Delim, 1);
+ }
+ Result.FFileName := RemoveToken(Line, Delim);
+ Result.FTitle := RemoveToken(Line, Delim);
ws := Trim(Result.FTitle);
Delim := '<>';
Result.FType := glt2chNew;
end;
+ {
Result.FName := Trim(GetTokenIndex(Line, Delim, 0));
Result.FMailTo := Trim(GetTokenIndex(Line, Delim, 1));
Result.FDateTime := Trim(GetTokenIndex(Line, Delim, 2));
bufBody := Trim(GetTokenIndex(Line, Delim, 3));
+ }
+ Result.FName := Trim(RemoveToken(Line, Delim));
+ Result.FMailTo := Trim(RemoveToken(Line, Delim));
+ Result.FDateTime := Trim(RemoveToken(Line, Delim));
+ bufBody := Trim(RemoveToken(Line, Delim));
+
if bufbody = '' then begin
Insert(' ',bufbody, 1);
end;
*
*\82Ç\82±\82©\82Ì\83T\83C\83g\82©\82ç\82Ì\83p\83N\83\8a
*************************************************************************)
-function TGikoSys.RemoveToken(var s: string; delimiter: string): string;
+function TGikoSys.RemoveToken(var s: string;const delimiter: string): string;
var
p: Integer;
begin
OSDN Git Service
