➡️ Delphi'de Girilen Metnin Tersini Yazdırma
Merhaba arkadaşlar;
Uzun bir aradan sonra yeni bir ders ile karşınızdayım.Dersimizin adı ''Delphi'de Girilen Metnin Tersini Yazdırma''.Haydi başlıyalım.
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;
begin
for i:=1 to length(edit1.text) do
tersmetin:=copy(edit1.text,i,1)+tersmetin;
label1.caption:=tersmetin ;Artık uygulamamız hazır; şimdi sonucu görebiliriz.
Saygılarımla;
RedeFine