Search options (Page 139 of 400)

Form1.TableGrid1.dbFilter := '(Skotat.Mangd_Tall > 50) AND (Skotat.Plats = "' + Form1.Label1.Caption+'")';

function StrengthMeter(sPassword: string): string;
var
    LowerCase, UpperCase, Numbers, Symbols: boolean;
    iLength, i: integer;
begin
    LowerCase := False;
    UpperCase := False;
    Numbers   := False;
    Symbols   := False;

    iLength := Length(sPassword);

    for i := 1 to iLength do
        if (ord(sPassword[i]) >= 97) and (ord(sPassword[i]) <= 122) then LowerCase := True;

    for i := 1 to iLength do
        if (ord(sPassword[i]) >= 65) and (ord(sPassword[i]) <= 90) then UpperCase := True;

    for i := 1 to iLength do
        if (ord(sPassword[i]) >= 48) and (ord(sPassword[i]) <= 57) then Numbers := True;

    for i := 1 to iLength do
        if not((ord(sPassword[i]) >= 97) and (ord(sPassword[i]) <= 122)) and
           not((ord(sPassword[i]) >= 65) and (ord(sPassword[i]) <= 90)) and
           not((ord(sPassword[i]) >= 48) and (ord(sPassword[i]) <= 57)) then Symbols := True;


    if iLength <= 4 then result := 'Very weak';

    if (iLength >=5) and (iLength <=6) then
    begin
        if LowerCase and UpperCase and Numbers and Symbols then result := 'Medium'
        else if LowerCase and UpperCase and Numbers then result := 'Weak'
        else if LowerCase and UpperCase then result := 'Weak'
        else result := 'Very weak';
    end;

    if (iLength >=7) and (iLength <=8) then
    begin
        if LowerCase and UpperCase and Numbers and Symbols then result := 'Strong'
        else if LowerCase and UpperCase and Numbers then result := 'Medium'
        else if LowerCase and UpperCase then result := 'Weak'
        else result := 'Weak';
    end;

    if (iLength >=9) and (iLength <=10) then
    begin
        if LowerCase and UpperCase and Numbers and Symbols then result := 'Very Strong'
        else if LowerCase and UpperCase and Numbers then result := 'Strong'
        else if LowerCase and UpperCase then result := 'Medium'
        else result := 'Medium';
    end;

    if (iLength >=11) and (iLength <=13) then
    begin
        if LowerCase and UpperCase and Numbers and Symbols then result := 'Very Strong'
        else if LowerCase and UpperCase and Numbers then result := 'Very Strong'
        else if LowerCase and UpperCase then result := 'Strong'
        else result := 'Strong';
    end;

    if (iLength >=14) then result := 'Very Strong'

end;


procedure Form1_Edit1_OnChange (Sender: string);
begin
    Form1.Label1.Caption := StrengthMeter(Form1.Edit1.Text);
end;

 procedure Form1_GridEmployees_OnChange (Sender: string);
var
    i, c: integer;
begin
    Form1.GridEmployees.Columns[0].Padding := 10;
    Form1.GridEmployees.Columns[1].Padding := 10;
    Form1.GridEmployees.Columns[2].Padding := 10;
    Form1.GridEmployees.Columns[3].Padding := 10;

    Form1.GridEmployees.Options := Form1.GridEmployees.Options or goRowResizing;

    c := Form1.GridEmployees.Columns.Count - 1;
    for i := 0 to c do
    begin
        Form1.GridEmployees.Columns[i].VerticalAlignment := taAlignTop;
        Form1.GridEmployees.Columns[i].WrapKind := wkWordWrap;
    end;

    c := Form1.GridEmployees.RowCount - 1;
    for i := 0 to c do
    begin                             
        Form1.GridEmployees.Cells[0,i] := Form1.GridEmployees.Cells[0,i]+#10#13#10#13#10#13#10#13;
        Form1.GridEmployees.Cells[1,i] := Form1.GridEmployees.Cells[1,i]+#10#13#10#13#10#13#10#13;
        Form1.GridEmployees.Cells[2,i] := Form1.GridEmployees.Cells[2,i]+#10#13#10#13#10#13#10#13;
        Form1.GridEmployees.BestFitRow(i);
    end;
end;

procedure Form1_GridEmployees_OnChange (Sender: string);
var
    i, c: integer;
begin
    Form1.GridEmployees.Columns[0].Padding := 10;
    Form1.GridEmployees.Columns[1].Padding := 10;
    Form1.GridEmployees.Columns[2].Padding := 10;
    Form1.GridEmployees.Options := Form1.GridEmployees.Options or goRowResizing;

    c := Form1.GridEmployees.Columns.Count - 1;
    for i := 0 to c do
    begin
        Form1.GridEmployees.Columns[i].VerticalAlignment := taAlignTop;
        Form1.GridEmployees.Columns[i].WrapKind := wkWordWrap;
    end;

    c := Form1.GridEmployees.RowCount - 1;
    for i := 0 to c do
    begin
        Form1.GridEmployees.Cells[0,i] := #10#13+Form1.GridEmployees.Cells[0,i]+#10#13;
        Form1.GridEmployees.Cells[1,i] := #10#13+Form1.GridEmployees.Cells[1,i]+#10#13;
        Form1.GridEmployees.Cells[2,i] := #10#13+Form1.GridEmployees.Cells[2,i]+#10#13;
        Form1.GridEmployees.BestFitRow(i);
    end;
end;