1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Delphi'de Girilen Metnin Tersini Yazdırma


  1. Redefine

    Redefine Old School olduser rank8

    Kayıt:
    21 Kasım 2007
    Mesajlar:
    3.152
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    36
    [​IMG]

    :arrow: 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.


    Kod:
    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.

    [​IMG]

    Saygılarımla;
    RedeFine


    *
     
  2. DaRKeDeN

    DaRKeDeN Öğreniyorum rank8

    Kayıt:
    16 Temmuz 2007
    Mesajlar:
    149
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    gzl paylaşim :thumbsup: delphi 7 hakkında bilgim yok VB de Strings.StrReverse("Metin") buda benden bir bilgi olsun .... :oldie: 8)