掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ＵＲＬに自動でリンク (ID：6952)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じではどうでしょう。 再帰処理はあまりデバッグしていないので、深い場合は問題あるかもしれません。 function henkan(const s: String): String; var p1, p2: PCHAR; i1, i2: integer; begin i1 := AnsiPos('http:', s); if i1 = 0 then begin Result := s; Exit; end; p1 := PCHAR(s); p2 := p1+i1; while p2^ <> #0 do begin case p2^ of 'a'..'z','A'..'Z','0'..'9','/','.',':','?','&','=','#','\','-','_': Inc(p2); else Break; end; end; i2 := p2 - p1 + 1; Result := Copy(s, 1, i1-1) + '<A HREF="'+Copy(s,i1, i2 - i1) + '">' + Copy(s,i1, i2 - i1) + '</A>' + henkan(Copy(s, i2, Length(s))); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.