[Redefine]

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

​

 

[DaRKeDeN]

gzl paylaşim delphi 7 hakkında bilgim yok VB de Strings.StrReverse("Metin") buda benden bir bilgi olsun ....