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

[nacer335]

أخي الكريم شكرا جزيلا على هدا الرد
لقد وفقت إلى حد كبير في هدا العمل والفكرة
و أود أن أوضح لك بأني أعمل برنامج يبحث عن كلمة سر word excel access
فمحاولتك هده فيها ملاحظتين
الاولى : تظهر النتيجة في سطر واحد مثلا label او edit
الثانية : من a to zzzzzzzzzzzzzz ولا ينتهي عند z
ولقد ارفقت لك في المرفقات بمثال

PHP كود :

const
  conso: 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');
  DBNAME = 'Phonebook.MDB';
  DBPASSWORD = 'nn'; // Access DB Password Protected

procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit4.Text:= inttostr( strtoint(edit4.Text)+1);
 if strtoint(edit2.Text)<>52 then
 begin
edit3.Text  := '';
edit2.Text:= inttostr( strtoint(edit2.Text)+1);
edit3.Text :=edit3.Text + conso[(strtoint(edit1.Text))];
edit3.Text :=edit3.Text + conso[(strtoint(edit2.Text))];
end;
//////////
 if strtoint(edit2.Text)=52 then
 begin
edit3.Text  := '';
edit1.Text:= inttostr( strtoint(edit1.Text)+1);
edit2.Text:='-1';
edit2.Text:= inttostr( strtoint(edit2.Text)+1);
edit3.Text :=edit3.Text + conso[(strtoint(edit1.Text))];
edit3.Text :=edit3.Text + conso[(strtoint(edit2.Text))];
end;

end; 


الارقام طريقتها سهلة
اما الاحرف فلا اجد لها الحل
وشكرا لك والسلام عليكم