Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure TFormMain.FormCreate(Sender: TObject);
- begin
- FCensorWords.LoadFromFile('censor.txt', TEncoding.UTF8);
- VK.Login;
- VkGroupEvents.Start;
- end;
- procedure TFormMain.VKAuth(Sender: TObject; var Token: string);
- begin
- {$INCLUDE token.inc}
- end;
- function TFormMain.CheckForCensor(Value: string): Boolean;
- begin
- for var i := 0 to FCensorWords.Count - 1 do
- if Value.Contains(FCensorWords[i]) then Exit(True);
- end;
- procedure TFormMain.VkGroupEventsMessageNew(Sender: TObject; GroupId: Integer; Message: TVkMessage);
- begin
- if (not Message.Text.IsEmpty) and CheckForCensor(Message.Text) then
- VK.Messages.Send(Message.PeerId, 'Давай без мата, ок?');
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement