Rastgele Harf Üretme

[E-Tardis]

Kod: Tümünü Seç Tümünü Kopyala

var
 harf : char;
begin
   for harf := 'Z' DownTo 'A' do
   ShowMessage('Harfiniz = '+harf);