threadItem := TThreadItem( inInstance );
// \88ø\90\94\82ð\95ª\89ð
res := GikoSys.DivideStrLine( string( inDatRes ) );
- res.FBody := GikoSys.ConvRes( res.FBody, threadItem.ParentBoard.BBSID, ChangeFileExt( threadItem.FileName, '' ), 'bbs', 'key', 'st', 'to', 'nofirst', 'true' );
- res.FBody := GikoSys.AddAnchorTag( res.FBody );
- no := IntToStr( inResNo );
-
- try
- if GikoSys.Setting.UseSkin then begin
- // \83X\83L\83\93
- if inIsNew then
- Result := CreateResultString( GikoSys.SkinedRes(
- GikoSys.LoadFromSkin(
- GikoSys.Setting.GetSkinNewResFileName, threadItem, threadItem.SizeByte
- ), res, no
- ) )
- else
- Result := CreateResultString( GikoSys.SkinedRes(
- GikoSys.LoadFromSkin(
- GikoSys.Setting.GetSkinResFileName, threadItem, threadItem.SizeByte
- ), res, no
- ) );
- end else if GikoSys.Setting.UseCSS then begin
- // CSS
- if res.FName = '' then
- res.FName := ' ';
- if res.FMailTo = '' then
- Result := CreateResultString( '<a name="' + no + '"></a>'
- + '<div class="header"><span class="no"><a href="menu:' + No + '">' + no + '</a></span> '
- + '<span class="name_label">\96¼\91O\81F</span> '
- + '<span class="name"><b>' + res.FName + '</b></span> '
- + '<span class="date_label">\93\8a\8de\93ú\81F</span> '
- + '<span class="date">' + res.FDateTime+ '</span></div>'
- + '<div class="mes">' + res.FBody + ' </div>' )
- else if GikoSys.Setting.ShowMail then
- Result := CreateResultString( '<a name="' + no + '"></a>'
- + '<div class="header"><span class="no"><a href="menu:' + no + '">' + no + '</a></span>'
- + '<span class="name_label"> \96¼\91O\81F </span>'
- + '<a class="name_mail" href="mailto:' + res.FMailTo + '">'
- + '<b>' + res.FName + '</b></a><span class="mail"> [' + res.FMailTo + ']</span>'
- + '<span class="date_label"> \93\8a\8de\93ú\81F</span>'
- + '<span class="date"> ' + res.FDateTime+ '</span></div>'
- + '<div class="mes">' + res.FBody + ' </div>' )
- else
- Result := CreateResultString( '<a name="' + no + '"></a>'
- + '<div class="header"><span class="no"><a href="menu:' + no + '">' + no + '</a></span>'
- + '<span class="name_label"> \96¼\91O\81F </span>'
- + '<a class="name_mail" href="mailto:' + res.FMailTo + '">'
- + '<b>' + res.FName + '</b></a>'
- + '<span class="date_label"> \93\8a\8de\93ú\81F</span>'
- + '<span class="date"> ' + res.FDateTime+ '</span></div>'
- + '<div class="mes">' + res.FBody + ' </div>' );
- end else begin
- // \83f\83t\83H\83\8b\83g
- if res.FMailTo = '' then
- Result := CreateResultString( '<a name="' + no + '"></a><dt><a href="menu:' + no + '">' + no + '</a> \96¼\91O\81F<font color="forestgreen"><b> ' + res.FName + ' </b></font> \93\8a\8de\93ú\81F ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' )
- else if GikoSys.Setting.ShowMail then
- Result := CreateResultString( '<a name="' + no + '"></a><dt><a href="menu:' + no + '">' + no + '</a> \96¼\91O\81F<a href="mailto:' + res.FMailTo + '"><b> ' + res.FName + ' </B></a> [' + res.FMailTo + '] \93\8a\8de\93ú\81F ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' )
- else
- Result := CreateResultString( '<a name="' + no + '"></a><dt><a href="menu:' + no + '">' + no + '</a> \96¼\91O\81F<a href="mailto:' + res.FMailTo + '"><b> ' + res.FName + ' </B></a> \93\8a\8de\93ú\81F ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' );
- end;
- except
- Result := nil;
- end;
+ if AnsiCompareStr( string( inDatRes ) , '' ) <> 0 then begin
+ res.FBody := GikoSys.ConvRes( res.FBody, threadItem.ParentBoard.BBSID, ChangeFileExt( threadItem.FileName, '' ), 'bbs', 'key', 'st', 'to', 'nofirst', 'true' );
+ res.FBody := GikoSys.AddAnchorTag( res.FBody );
+ no := IntToStr( inResNo );
+
+ try
+ if GikoSys.Setting.UseSkin then begin
+ // \83X\83L\83\93
+ if inIsNew then
+ Result := CreateResultString( GikoSys.SkinedRes(
+ GikoSys.LoadFromSkin(
+ GikoSys.Setting.GetSkinNewResFileName, threadItem, threadItem.SizeByte
+ ), res, no
+ ) )
+ else
+ Result := CreateResultString( GikoSys.SkinedRes(
+ GikoSys.LoadFromSkin(
+ GikoSys.Setting.GetSkinResFileName, threadItem, threadItem.SizeByte
+ ), res, no
+ ) );
+ end else if GikoSys.Setting.UseCSS then begin
+ // CSS
+ if res.FName = '' then
+ res.FName := ' ';
+ if res.FMailTo = '' then
+ Result := CreateResultString( '<a name="' + no + '"></a>'
+ + '<div class="header"><span class="no"><a href="menu:' + No + '">' + no + '</a></span> '
+ + '<span class="name_label">\96¼\91O\81F</span> '
+ + '<span class="name"><b>' + res.FName + '</b></span> '
+ + '<span class="date_label">\93\8a\8de\93ú\81F</span> '
+ + '<span class="date">' + res.FDateTime+ '</span></div>'
+ + '<div class="mes">' + res.FBody + ' </div>' )
+ else if GikoSys.Setting.ShowMail then
+ Result := CreateResultString( '<a name="' + no + '"></a>'
+ + '<div class="header"><span class="no"><a href="menu:' + no + '">' + no + '</a></span>'
+ + '<span class="name_label"> \96¼\91O\81F </span>'
+ + '<a class="name_mail" href="mailto:' + res.FMailTo + '">'
+ + '<b>' + res.FName + '</b></a><span class="mail"> [' + res.FMailTo + ']</span>'
+ + '<span class="date_label"> \93\8a\8de\93ú\81F</span>'
+ + '<span class="date"> ' + res.FDateTime+ '</span></div>'
+ + '<div class="mes">' + res.FBody + ' </div>' )
+ else
+ Result := CreateResultString( '<a name="' + no + '"></a>'
+ + '<div class="header"><span class="no"><a href="menu:' + no + '">' + no + '</a></span>'
+ + '<span class="name_label"> \96¼\91O\81F </span>'
+ + '<a class="name_mail" href="mailto:' + res.FMailTo + '">'
+ + '<b>' + res.FName + '</b></a>'
+ + '<span class="date_label"> \93\8a\8de\93ú\81F</span>'
+ + '<span class="date"> ' + res.FDateTime+ '</span></div>'
+ + '<div class="mes">' + res.FBody + ' </div>' );
+ end else begin
+ // \83f\83t\83H\83\8b\83g
+ if res.FMailTo = '' then
+ Result := CreateResultString( '<a name="' + no + '"></a><dt><a href="menu:' + no + '">' + no + '</a> \96¼\91O\81F<font color="forestgreen"><b> ' + res.FName + ' </b></font> \93\8a\8de\93ú\81F ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' )
+ else if GikoSys.Setting.ShowMail then
+ Result := CreateResultString( '<a name="' + no + '"></a><dt><a href="menu:' + no + '">' + no + '</a> \96¼\91O\81F<a href="mailto:' + res.FMailTo + '"><b> ' + res.FName + ' </B></a> [' + res.FMailTo + '] \93\8a\8de\93ú\81F ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' )
+ else
+ Result := CreateResultString( '<a name="' + no + '"></a><dt><a href="menu:' + no + '">' + no + '</a> \96¼\91O\81F<a href="mailto:' + res.FMailTo + '"><b> ' + res.FName + ' </B></a> \93\8a\8de\93ú\81F ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' );
+ end;
+ except
+ Result := nil;
+ end;
+ end else begin
+ Result := nil;
+ end;
end;