掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ＵＲＬに自動でリンク (ID:6955)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
function henkan(s:WideString):string; var hoge,hoge2:string; i:integer; begin i:=ansipos('http://',s); while i>0 do begin hoge:=hoge+Thebsys.CSLeft(s,'http://'); s:=Thebsys.CSRight(s,'http://'); i:=1; Hoge2:='http://'; while (i<Length(S)) do begin if thebsys.ArrayFindStr(s[i],moji) then begin hoge2:=hoge2+s[i]; end; i:=i+1; end; s:=Thebsys.CSRight(s,Hoge2); hoge:=hoge+'<A Href='+hoge2+'>'+hoge2+'</A>'; hoge2:=''; i:=ansipos('http://',s); end; hoge:=hoge+s; result:=hoge; end; でできました。ありがとうございました
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.