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:
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;