
自作関数目次
自作関数の目次です 文字列関数 ・NP_CutFirst :指定した文字列で文字列分割 ・IsExists :IndexOf(s)-1 的なヤツ ・GetTagList :セクションタグの列挙 ・EliminateTags :タグによるセクションの除去
サンデーアマグラマーNorimakiの開発日誌。アマグラマーがアフィリエイトをかじったら...
自作関数の目次です 文字列関数 ・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...