TPasswordCheck (Komponente mit Anbindung an ein TEdit)

[Satty67]

Nötige Anpassungen für Delphi 5:

Unit Types und nicht erbbare Propertys auskommentieren (oder löschen)

Delphi-Quellcode:

uses
  Messages, Classes, Controls, StdCtrls, Graphics{, Types};

    //property HelpContext;
    //property HelpType;
    //property HelpKeyword;

    //property OnMouseActivate;
    //property OnMouseEnter;
    //property OnMouseLeave;

.
Die Funktion TryStrToDate kennt Delphi 5 nocht nicht, der Ersatz sieht so aus:

Delphi-Quellcode:

function TPasswordCheck.RemoveDateSeparator(const AString : string): String;
var
  i : Integer;
  DateStr : String;
begin
  DateStr := AString;
  i := Length(DateStr);
  if (i > 0) and (AString[i] = DateSeparator) then
    Delete(DateStr, i, 1);

  try
     StrToDate(DateStr);
     Result := StringReplace(AString, DateSeparator, '', [rfReplaceAll])
  except
    Result := AString;
  end;
end;

.
Der Edit.Text (meistens Edit1) löst natürlich eine (erwartete) Exeption aus, die in der IDE nervt. Ich schau später mal, wie man das ändern kann...

Zitat von NamenLozer:

Kleinigkeit: Entropy

Done