aa dan az ye kadar aradaki karakterleri nasıl alabilirim?

[mt_mustafa]

Slmn Alykm.
DT offline çok aradım ama bulamadım, kusura bakmayın, buraya yazıyorum.

bir döngü yazmam gerekiyor.


Örn:
aa dan başlayıp az ye kadar aradaki ingilizce alfabesindeki bütün anlamlı anlamsız-kelimeleri almam gerekiyor.

aa, ab, ac, ad, ae, .... , az
sonrada
aaa, aab, aac, aad, aae, .... , aay, azz
aba, abb, abc, abd, abe, .... , aby, abz

yukardaki örnekler gibi birşey elde etmek istiyorum

bu şekilde karakter üretecek bir döngü yapmam lazım.
nasıl yapabilirim acaba ?

[ikutluay]

Kod: Tümünü seç

var 
 don1:string;
begin
  don1:='a';
for i:=1 to 26 //engilish :) alfabesi
do 
  writeln(don1+char(64+i);
end;

 

sen don1 değerini sıra ile isteklerini verip donguyu tekrarlarsın. 64 sana buyuk harfleri getiri. kucuk istersen 32 daha ekle.

tabii don1 değerlerini diziye atıp dizi sırası ile kodu kısaltmanda mumkundur

[mt_mustafa]

tşk ederim hocam, saolun.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
 don1:string;
 i : Integer;
begin

  don1:='a';
  memo1.Clear;
  for i:=1 to 26 //engilish :) alfabesi
  do
  begin
    Memo1.Lines.Add(don1+char(96+i));
//    32 Extra karakterleri Çıkartıyor
//    64 Büyük harfleri Çıkartıyor
//    96 küçük harfleri Çıkartıyor
  end;
end;

şöylede temize çekmiş olalım kodu