a ثم يتغير بواسطة timer حتى يصل الى zzzzz

[محمد عبد العزيز]

حاول ان تفكر
مثال لحرف واحد
(دون استخدام Timer لوضيح الفكرة)

PHP كود :

const
ciph: array [0..51] of Char = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
var
  i,L:integer;
begin
  L:=length(ciph)-1;
  for i:= 0 to L Do Begin
    Label1.Caption := ciph[i];
    Application.ProcessMessages;
    sleep(10);
  end;
end; 


حرفين

PHP كود :

const
ciph: array [0..51] of Char = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
var
  j,i,L:integer;
begin
  L:=length(ciph)-1;
  for j:= 0 to L Do
  for i:= 0 to L Do Begin
    Label1.Caption := ciph[j]+ciph[i];
    Application.ProcessMessages;
    sleep(10);
  end;
end; 


ثلاث حروف

PHP كود :

const
ciph: array [0..51] of Char = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
var
  k,j,i,L:integer;
begin
  L:=length(ciph)-1;
  for k:= 0 to L Do
  for j:= 0 to L Do
  for i:= 0 to L Do Begin
    Label1.Caption := ciph[k]+ciph[j]+ciph[i];
    Application.ProcessMessages;
    sleep(10);
  end;
end; 


اربعة حروف

PHP كود :

const
ciph: array [0..51] of Char = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
var
  m,k,j,i,L:integer;
begin
  L:=length(ciph)-1;
  for m:= 0 to L Do
  for k:= 0 to L Do
  for j:= 0 to L Do
  for i:= 0 to L Do Begin
    Label1.Caption := ciph[m]+ciph[k]+ciph[j]+ciph[i];
    Application.ProcessMessages;
    sleep(10);
  end;
end; 


خمسة حروف

PHP كود :

const
ciph: array [0..51] of Char = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
var
  n,m,k,j,i,L:integer;
begin
  L:=length(ciph)-1;
  for n:= 0 to L Do
  for m:= 0 to L Do
  for k:= 0 to L Do
  for j:= 0 to L Do
  for i:= 0 to L Do Begin
    Label1.Caption := ciph[n]+ciph[m]+ciph[k]+ciph[j]+ciph[i];
    Application.ProcessMessages;
    sleep(10);
  end;
end; 


هل اتضحت الفكرة ؟ حاول تنظيمها بشكل يتوافق مع نون حرف
والسلام عليكم