Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/GikoSystem.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 537 |
Exit; |
Exit; |
| 538 |
Board.Clear; |
Board.Clear; |
| 539 |
UnRead := 0; |
UnRead := 0; |
| 540 |
|
is2ch := false; |
| 541 |
usePlugIn := Board.IsBoardPlugInAvailable; |
usePlugIn := Board.IsBoardPlugInAvailable; |
| 542 |
if not usePlugIn then begin |
if not usePlugIn then begin |
| 543 |
GikoSys.ParseURI(Board.URL, protocol, host, path, document, port, bookmark ); |
GikoSys.ParseURI(Board.URL, protocol, host, path, document, port, bookmark ); |
| 1897 |
function TGikoSys.DivideStrLine(Line: string): TResRec; |
function TGikoSys.DivideStrLine(Line: string): TResRec; |
| 1898 |
var |
var |
| 1899 |
Delim: string; |
Delim: string; |
|
bufbody : String; |
|
| 1900 |
begin |
begin |
| 1901 |
if AnsiPos('<>', Line) = 0 then begin |
if AnsiPos('<>', Line) = 0 then begin |
| 1902 |
//Delim := ','; |
//Delim := ','; |
| 3948 |
end; |
end; |
| 3949 |
function TGikoSys.GetSameIDResCount(AIDNum : Integer; ThreadItem: TThreadItem):Integer; |
function TGikoSys.GetSameIDResCount(AIDNum : Integer; ThreadItem: TThreadItem):Integer; |
| 3950 |
var |
var |
|
i: integer; |
|
| 3951 |
body: TStringList; |
body: TStringList; |
| 3952 |
begin |
begin |
| 3953 |
Result := 0; |
Result := 0; |
|
|
Legend:
| Removed from v.1.179 |
|
| changed lines |
| |
Added in v.1.180 |
|
|
| |