دخول

AX302 · 13-04-2018, 05:43 PM

السلام عليكم

كود :
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;

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة