Res: TResRec;
No: string
): string;
+var
+ spamminess : Extended;
+ wordCount : TWordCount;
begin
+ wordCount := TWordCount.Create;
try
+ spamminess := Floor( FBayesian.Parse(
+ Res.FName + '<>' + Res.FMailTo + '<>' + Res.FBody, wordCount ) * 100 );
+
Skin := CustomStringReplace( Skin, '<NUMBER/>',
'<a href="menu:' + No + '" name="' + No + '">' + No + '</a>');
Skin := CustomStringReplace( Skin, '<PLAINNUMBER/>', No);
Skin := CustomStringReplace( Skin, '<MAIL/>', Res.FMailTo);
Skin := CustomStringReplace( Skin, '<DATE/>', Res.FDateTime);
Skin := CustomStringReplace( Skin, '<MESSAGE/>', Res.FBody);
+ Skin := CustomStringReplace( Skin, '<SPAMMINESS/>', FloatToStr( spamminess ) );
//----- \82©\82¿\82ã\81`\82µ\82á\8cÝ\8a·\97p\81B\83R\83\81\83\93\83g\83A\83E\83g\82µ\82Ä\82à\82æ\82µ
Skin := CustomStringReplace( Skin, '&NUMBER',
Skin := CustomStringReplace( Skin, '&MAIL', Res.FMailTo);
Skin := CustomStringReplace( Skin, '&DATE', Res.FDateTime);
Skin := CustomStringReplace( Skin, '&MESSAGE', Res.FBody);
+ Skin := CustomStringReplace( Skin, '&SPAMMINESS', FloatToStr( spamminess ) );
//----- \82±\82±\82Ü\82Å
Result := Skin;
finally
+ wordCount.Free;
end;
end;
SkinNewRes: string;
SkinRes: string;
+ strTmp : string;
+
function LoadSkin( fileName: string ): string;
begin
Result := LoadFromSkin( fileName, ThreadItem, ThreadItem.Size );
try
if NewReceiveNo <= (i + 1) then
// \90V\92\85\83\8c\83X
- SaveList.Add( ReplaceRes( SkinNewRes ) )
+ strTmp := ReplaceRes( SkinNewRes )
else
// \92Ê\8fí\82Ì\83\8c\83X
- SaveList.Add( ReplaceRes( SkinRes ) );
+ strTmp := ReplaceRes( SkinRes );
+
+ SaveList.Add( strTmp );
except
end;
end;