Umsetzungsproblem Filterklasse

[Basilikum]

Delphi-Quellcode:

function TFilterClass.Match(aMessage: TIdMessage): boolean;
begin
  Result := true; // initialisieren

  // Einzelne Such-Felder überprüfen
  if ([sSubject] in FSearchIn) then begin // Betreff
    Result := Result and { Überprüfe... };
  end;
  if ([sFrom] in FSearchIn) then begin // Absender
    Result := Result and { Überprüfe... };
  end;
  if ([sTo] in FSearchIn) then begin // Empfänger
    Result := Result and { Überprüfe... };
  end;
  if ([sBody] in FSearchIn) then begin // Nachrichteninhalt
    Result := Result and { Überprüfe... };
  end;
end;

oder

Delphi-Quellcode:

function TFilterClass.Match(aMessage: TIdMessage): boolean;
begin
  Result := false;

  // Einzelne Such-Felder überprüfen
  if ([sSubject] in FSearchIn) then begin // Betreff
    if not { Überprüfe... } then Exit;
  end;
  if ([sFrom] in FSearchIn) then begin // Absender
    if not { Überprüfe... } then Exit;
  end;
  if ([sTo] in FSearchIn) then begin // Empfänger
    if not { Überprüfe... } then Exit;
  end;
  if ([sBody] in FSearchIn) then begin // Nachrichteninhalt
    if not { Überprüfe... } then Exit;
  end;

  Result := true;
end;