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.
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;
Artık uygulamamız hazır; şimdi sonucu görebiliriz.
Nerden
İş/Hobiler
Lakap
Salı Ara. 08, 2009 4:30 pm