テンミニッツサイトストラテジー

自作関数目次

自作関数の目次です文字列関数・NP_CutFirst　　：指定した文字列で文字列分割・IsExists　　　　：IndexOf(s)-1 的なヤツ・GetTagList　　：セクションタグの列挙・EliminateTags　：タグによるセクションの除去

本文が表示されるかテストどうやら新規投稿では本文は表示されるようで。いや、そうじゃない。 <pre>タグが悪さをしているようだ。違う、そうじゃない。 < 文字が悪さをしているかも。いや、結局プラグインが悪かった様だ。

まずはソースから。 function IsExistsEx(SubStr,Str:string;aPos:integer=-1):boolean; var s:string; begin Result:=False; while SubStr<>'' do be...

セクションタグの列挙の続きです。まずはソースから。 function EliminateTags(Src,TagList:string):string; var s,t,CloseTag:string; begin Result:=''; while src'' d...

今回はセクションタグの列挙についてです。以下のようなテキストがあったとします。 ContentsA ContentsB この場合に、TagA TagB TagCを抜き出す。といった関数です。ソースです。 function Get...

まずソースから。 function IsExists(SubStr,Str:string):boolean; begin Result:=(Pos(_CRLF+SubStr+_CRLF,_CRLF+Str+_CRLF)0); end; 改行文字で区切られた文字列リストの中...

レコードデータをJSON形式で読み書きできたらあとはリスト化して管理することになります。リスト化するという事で通常はTListを使うところですが、今回はTDictionaryを使ってみようかと思います。　ジェネリックス関数を利用することになるので Uses節に Sy...

アプリケーション間の連携をとるという事であれば、 WM_COPYDATAメッセージの利用といった伝統的な手法がありますが、あれは異なるデバイス間では使用できないデメリットがあります。そこで今回はTethering系コンポーネントを利用してアンドロイドとPCを連携させ、スマホをリモコ...

まずはソースから。 function NP_CutFirst(var Str:string;SubStr:string):string; var aPos:integer; begin Result:=''; //------------------------------...

この記事は、レコードデータをJSON形式で読み書きするの記事の続きです。　今回は「フォームの位置・サイズをJSON形式で読み書きする」というテーマで書いていきたいと思います。　前回と同様に、こちらのサイトを参考にさせてもらいました。・TJsonSerializer...