２ちゃんねる用ブラウザ「OpenJane」Part77

U2chThread.pas

function TThreadItem.GetURI: string;
　function GetHostName(var host: string): string;
　var i: integer;
　begin
　　for i := 1 to length(host) do
　　if Copy(host,i ,1) = '.' then
　　　break;
　　result := Copy(host,1 ,i - 1);
　end;

（中略）

　　　　　// すべての鯖で .dat.gz -> .dat に変更
　　　　　SplitThreadURI(self.URI, host, bbs);
　　　　　result := 'http://makimo.to/cgi-bin/html2dat/html2dat.cgi?' + GetHostName(host) + '_' +
　　　　　　bbs + '/' + Copy(datName, 1, 4) + '/' + datname + '.html'
　　　　　//result := GetAddr4History('.dat.gz');
　　　　　{$IFDEF APPEND_SID}

これって極悪？