---

■スレッドリストへ戻る■ 全部 1- 最新50

MonaUtils

10 ：書いてみた ：2001/03/08(木) 20:12

// なければURLの末尾に'/'を追加
function AddSlashToUrl(Url: String): String;
// あればURLの末尾の'/'を削除
function DeleteSlashFromUrl(Url: String): String;function AddSlashToUrl(Url: String): String;
begin
Result := Url
if (Length(Result) > 0) and (Result[Length(Result)] <> '/') then
Result := Result + '/';
end;procedure testAddSlashToUrl;
procedure mycheck(s, s2: String);
begin
Check(s, AddSlashToUrl(s2));
end;
begin
mycheck(
'http://www.yahoo.co.jp/',
'http://www.yahoo.co.jp' );
mycheck(
'http://www.yahoo.co.jp/',
'http://www.yahoo.co.jp/' );
end;function DeleteSlashFromUrl(Url: String): String;
begin
Result := Url
if (Length(Result) > 0) and (Result[Length(Result)] = '/') then
SetLength(Result, Length(Result)+1);
end;procedure testDelSlashToUrl;
procedure mycheck(s, s2: String);
begin
Check(s, DelSlashToUrl(s2));
end;
begin
mycheck(
'http://www.yahoo.co.jp',
'http://www.yahoo.co.jp/' );
mycheck(
'http://www.yahoo.co.jp',
'http://www.yahoo.co.jp' );
end;

25KB

---

新着レスの表示

---

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30