Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Delphi'de Girilen Metnin Tersini Yazdırma

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,113
  • MFC Puanı
    10
  • MFC Seviyesi

Merhaba arkadaşlar,

Bu dersimizde girilen metnin tersini yazdırma işlemini yapacağız. Bu işlemi yaparken iki fonksiyondan yardım almamız gerekiyor. Bu fonksiyonlar:

- copy
- length
fonksiyonları.

Formumuza bir edit, bir buton ve bir de label ekliyoruz.


Formumuzu oluşturduktan sonra şimdi kodlama kısmına geçelim. Butonumuzun Click olayına aşağıdaki kodları yazıyoruz.

Kod:
Kod:
var tersmetin:string;
    i:integer;
    //Değişkenlerimiz tanımladık.

begin
for i:=1 to length(edit1.text) do
//Edit1 e Girilen metnin uzunluğu kadar döngümüzü çalıştırdık.
  tersmetin:=copy(edit1.text,i,1)+tersmetin;
  //copy fonksiyonuyla edit1'in i. karakterinden başlayarak 1 karakter kopyalattık
  label1.caption:=tersmetin  ;
end;
 
Üst Alt