X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=AbonUnit.pas;h=7ed49585b7655987e7486bd5fa77d7adb8b3552f;hb=refs%2Fheads%2FBb62;hp=484b75db9fbdd11ba224526cf9a0d12c9d6621d4;hpb=5f8eeec76dc751ed79dbd212456817e90470cf9c;p=gikonavigoeson%2Fgikonavi.git

diff --git a/AbonUnit.pas b/AbonUnit.pas
index 484b75d..7ed4958 100644
--- a/AbonUnit.pas
+++ b/AbonUnit.pas
@@ -115,6 +115,7 @@ type
 	//--
 	function TreatSyria(AString: string): string;
     //--
+    function AddToken(AString: string; Invisible: Boolean): Boolean;
   end;
 var
 	Abon1 :TAbon;
@@ -383,14 +384,20 @@ begin
 				buftoken := Copy(argline,1,pos-1);
 				Delete(argline,1,pos);
 				if Length(buftoken) > 0 then begin
-					bufstl.Append(buftoken);
+                    // >> ‚ÅŽn‚Ü‚éƒg[ƒNƒ“‚̓Rƒƒ“ƒgˆµ‚¢‚Å–³Ž‹‚·‚é
+                    if AnsiPos('>>', buftoken) <> 1 then begin
+    					bufstl.Append(buftoken);
+                    end;
 				end else if ( bufstl.Count = 0 ) then begin
 					bufstl.Append('');
 				end;
 				pos := AnsiPos(#9,argline);
 			end;
 			if Length(argline) > 0 then begin
-				bufstl.Append(argline);
+                // >> ‚ÅŽn‚Ü‚éƒg[ƒNƒ“‚̓Rƒƒ“ƒgˆµ‚¢‚Å–³Ž‹‚·‚é
+                if AnsiPos('>>', argline) <> 1 then begin
+    				bufstl.Append(argline);
+                end;
 			end;
 			ret := bufstl.Count;
 			SetLength(Ftokens[index],ret);
@@ -448,6 +455,9 @@ begin
 		trgLen := Length(target);
 
 		for lines := 0 to High(Ftokens) do begin
+            if Length(Ftokens[lines]) = 0 then begin
+                Continue;
+            end;
 			hit := true;
 			bufline := target;
 			pts := PChar(bufline);
@@ -905,6 +915,32 @@ begin
 	Result := Result + AString;
 end;
 
+// NGƒ[ƒhƒtƒ@ƒCƒ‹‚ɒljÁ ’ljÁ‚³‚ꂽê‡ATrue‚ª‚©‚¦‚é
+function TAbon.AddToken(AString: string; Invisible: Boolean): Boolean;
+var
+	bufStringList : TStringList;
+    ngword: String;
+begin
+    Result := False;
+    if FileExists(GetNGwordpath) then begin
+        bufStringList := TStringList.Create;
+        try
+            bufStringList.LoadFromFile(GetNGwordpath);
+            if (Invisible) then begin
+                ngword := #9 + AString;
+            end else begin
+                ngword := AString;
+            end;
+            if (bufStringList.IndexOf(ngword) = -1) then begin
+                bufStringList.Add(ngword);
+                bufStringList.SaveToFile(GetNGwordpath);
+                Result := True;
+            end;
+        finally
+            bufStringList.Free;
+        end;
+    end;
+end;
 
 
 end.