Delphi flood text Protection

[drama22]

Zitat von Sir Rufo:

What result do you expect from IsFlood and please show the line in code where you set this expected result.

i didnt figure the result part i need help with it i was thinking to do somthing like that with is flood

Delphi-Quellcode:

  function IsFlood:Boolean;
  var
  i, x : integer;
  begin
    Result := False;
    i := trunc(GetTickCount/2);
    x := trunc((i - LastFloodTime)/4);
    Result := False;
if x < //detect flood// then Result := True;
    LastFloodTime := i;

but dont know how to detect the flood i use also in main form private declarations

Delphi-Quellcode:

    FloodpSay : integer;
    FloodClose : Integer;

but i cant figure what to do to detect the fast typing and thats what iam doing with the timer

Delphi-Quellcode:

procedure Tmain.msgTmrTimer(Sender: TObject);
begin
  msgTmr.Enabled := False;
  FloodpSay := FloodpSay + 1;
  if FloodpSay > FloodClose then
    begin
      pnlFlood.Visible := False;
      FloodpSay := 0;
    end;
  if FloodpSay <> 0 then
    msgTmr.Enabled := True;
end;