delphi4arab منتديات دلفي للعرب

السلام عليكم
اريد طريقة لحساب الاحتمالات الممكنة
كمثال لدي باسوور رقمي يتكون من 7 حروف وهي رقمية 0-9 ما هو الفنكشن المناسب

والسلام عليكم

السلام عليكم

كود :
var
  A, B, C, D, E, F, G: integer;
  Result, Str: string;
begin
  Str := Edit1.Text;
  for A := 1 to Length(Str) do
  begin
    for B := 1 to Length(Str) do
    begin
      for C := 1 to Length(Str) do
      begin
        for D := 1 to Length(Str) do
        begin
          for E := 1 to Length(Str) do
          begin
            for F := 1 to Length(Str) do
            begin
              for G := 1 to Length(Str) do
              begin
                Result := Str[A] + Str[B] + Str[C] + Str[D] + Str[E] + Str[F] + Str[G];
                Memo1.Lines.Add(Result);
              end;
            end;
          end;
        end;
      end;
    end;
  end;
end;

طريقة ممتازة يعطيك العافية

mohamed49

AX302

mohamed49