• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#objective-cqtwindows誰得cocoapythonphprubygameguibathyscaphec翻訳omegat計画中(planning stage)frameworktwittertestdomvb.netdirectxbtronarduinopreviewerゲームエンジン

ギコナビ


Commit MetaInfo

Revision39bdc1fe075e8fb43e17db8003e5a5fdadb53086 (tree)
Time2005-06-23 00:10:53
Authorh677 <h677>
Commiterh677

Log Message

DeleteFontTagを共通関数化

Change Summary

Incremental Difference

--- a/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr
+++ b/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr
@@ -3,7 +3,7 @@ library ShitarabaJBBSPlugIn;
33 {
44 ShitarabaJBBSPlugIn
55 ‚µ‚½‚ç‚Ώˆ—ƒ†ƒjƒbƒg
6- $Id: ShitarabaJBBSPlugIn.dpr,v 1.38.2.10 2005/06/20 15:07:47 h677 Exp $
6+ $Id: ShitarabaJBBSPlugIn.dpr,v 1.38.2.11 2005/06/22 15:10:53 h677 Exp $
77 }
88
99 uses
@@ -52,7 +52,6 @@ type
5252 function BrowsableURL : string;
5353 function ReadURL : string;
5454 function WriteURL : string;
55- function DeleteFontTag( inHTML : string) : string;
5655 end;
5756
5857 // =========================================================================
@@ -84,7 +83,7 @@ const
8483 MAJOR_VERSION = 1;
8584 MINOR_VERSION = 1;
8685 RELEASE_VERSION = 'alpha';
87- REVISION_VERSION = 10;
86+ REVISION_VERSION = 11;
8887
8988 SYNCRONIZE_MENU_CAPTION = '‚µ‚½‚ç‚ÎJBBS”XV';
9089
@@ -988,35 +987,6 @@ begin
988987
989988 end;
990989 // *************************************************************************
991-// HTML’†‚Ì<font>ƒ^ƒO‚ðíœ‚·‚é
992-// *************************************************************************
993-function TShitarabaThreadItem.DeleteFontTag(
994- inHTML : string //ƒ^ƒO‚ðíœ‚·‚镶Žš—ñ
995-) : string; //ƒ^ƒOíœŒê‚Ì•¶Žš—ñ
996-var
997- pos : Integer;
998-begin
999- Result := '';
1000-
1001- //</font>‚ðíœ
1002- inHTML := CustomStringReplace( inHTML, '</font>', '', True);
1003-
1004- //<font ` ‚ðíœ‚·‚é
1005- pos := AnsiPos('<font', inHTML);
1006- while (pos > 0) do begin
1007- Result := Result + Copy(inHTML, 1, pos - 1);
1008- Delete(inHTML, 1, pos);
1009- //ƒ^ƒO‚ð•Â‚¶‚é'>'‚Ü‚Å‚ðíœ
1010- pos := AnsiPos('>', inHTML);
1011- Delete(inHTML, 1, pos);
1012- pos := AnsiPos('<font', inHTML);
1013- end;
1014-
1015- Result := Result + inHTML;
1016-
1017-
1018-end;
1019-// *************************************************************************
1020990 // ‘‚«ž‚Ý‚ðŽwŽ¦‚³‚ꂽ
1021991 // *************************************************************************
1022992 function TShitarabaThreadItem.Write(