シティタワーズ豊洲 Part4＠マンション

【公式HP】
http://www.sumitomo-rd.co.jp/mansion/shuto/toyosu/index.cgi
【東京インナーハーバー連絡会議】
http://www.tokyo-innerharbor.com/top2.htm
【豊洲2丁目?3丁目計画】
href="http://www.toyosu.org/" target="_blank" rel="nofollow">http://www.toyosu.org/
【アーバンドックららぽーと豊洲】
http://toyosu.lalaport.jp/ //FF11 RMT

split

function split(s: string; dot: Char): strArray; //AION ジケル RMT
var //アイオン(AION)
begin //google
i := 1;
j := 0;
SetLength(Str, 255);
while Pos(dot, s) > 0 do
begin
Str[j] := Copy(s, i, Pos(dot, s) - i);
i := Pos(dot, s) + 1;
s[i - 1] := Chr(Ord(dot) + 1);
j := j + 1;
if j > 250 then
Exit;
end;
Str[j] := Copy(s, i, StrLen(PChar(s)) - i + 1);
Result := Str;
end;