arkadaşım strtoint(edit1. text) kodu bilgisayarın edit1. in içindeki sayısal değeri okumasını sağlar örneğin ; buton içine şunları yaz var a:integer; begin a:=strtoint(edit1. text): \\editin içindekini a'ya eşitle ve oku form1. caption:=inttostr ;\\a'yı form1 in başlığına yaz bu strtoint , inttostr olayı sadece sayısal değişkenler için geçerlidir

Teşekkürler arkadaşlar. Şunuda sorayım inşaallah. Buttona değer gönderip istettiğimiz zaman, yani örneğin su yazısını girip bengi su cevabını aldığımız zaman yeni bi pencerecik açılıyor ve ok çıkıyo Bu oku nasıl tamam diye türkçeleştiririz.

Tamam oldu kardeş. Yaptığım çok basit bir hata idi editte. Gülüyorum şuanda. Kusura bakma senide uğraştırdım.

Kardeş konuyla ilgili bir şey daha sorayım inşallah. if yazi olayı ile ilgili yine. Su bengisu örneği ile anlatmak istediğimi açıklığa kavuşturmuştuk. Şimdi yapmak istediğim örnek su yazdık cevabıda bengisu olarak aldık. Ama bir kaç döngü birden girmek istiyorum. Şu şekilde. var yazi:string; begin yazi:=string(edit1. text); if yazi='su' then showmessage if yazi='kktc' then showmessage end; end. Bu şekilde program çalışmıyor. Yani yine aynı program içinde kktc yazıp kıbrıs cevabınıda almak istiyorum.

bırader ; vırgullerı koyuyosun dımı bıde yazi:=string(edit1. text) yerine de yazi:=edit1. text yazsanda olması gerekır if yazi='su' then showmessage ; if yazi='kktc' then showmessage ; bole

yazi:=string(edit1. text); burdakı string yazısına gerek yok yazi:=edit1. text yap

kardes vermiş oldugun kodda sorun var öncelikle böyle olması lazım var sayi:integer; begin sayi:=StrToInt(edit1. text); if sayi = 10 then showmessage('10(un karesi 100)dür.'); end; end.

Evet ; ü tabiki koyuyoruz. Burda çıkmamış. Kardeş bu dediklerini zaten yapıyorumda. olmuyor. Sorun orda ya zaten. Bak en iyisi örneği ben upluad edeyim burayada. İnceleyerek daha iyi anlarsın sanırım inşallah.

hmmm anladım sımdı if yazi='su' then showmessage

bırdaer ahanda bunu yazdım ıstedıgın oldu verılen hatayı soleyebılrmısın procedure TForm1. Button1Click ; var yazi:string ; begin yazi:=edit1. Text; if yazi='su' then showmessage ; if yazi='kktc' then showmessage ; end; end.

sonuna da else if koyunda eşleşen birşey bulamazsa showmessage ; gibi bir mesaj

string yapmadan olmuyorda tam sormak istediğim şu kardeş. Aynı program içinde aynı buttonla suay yazdığımda bengisu cevabını aldığım gibi kktc yazdığımdada kıbrıs cevabını almak istiyorum. if yazi='su' then showmessage if yazi='kktc' then showmessage Şu şekilde alt alta yazıyorum ama olmuyor.

Kodla örnek göstererek sanırım tam anlatamadım kardeşte. Kodu bir yana bırakıp şöyle anlatayım o zaman. Örneğin bir sözlük yapacağımızı var sayalım. Delphide bir edit ekleyip buttonlada ona göre ilişkilendirmemiz muaakkak zatende. Sözlük şu şekilde mesela işlev olarak. Su yazdım cevabınıda bengisu olarak alacağım. Yani if sayi = 10 then yazıp altınada showmessage('10'un karesi 100'dür.'); belirlediğimiz zaman. Kişi 10 yazdığı zaman cevap olarak 10un karesi 100dür diye bir cevap alacak. Bende diyorumki yine aynı şekilde örneğin su yazarak bengi su cevabını almak istiyorum. Yani yazi:string; yapacağım ve if sayi yerine ne kullanmam lazım. Selam ve dua ile -

İki form kullanırsam çok zaman gider kardeş. Detaylar çok olur yani.

Evet sormak istediğim buydu. Teşekkürler kardeş.

Öncelikle tüm Wardom ailesine selam olsun diyelim inşallah. Uzun zamandır wardomun pasif ziyaretcilerindendim malesef. İlk üye olmak bu güne kısmetmiş diyelim. İlk mesajımda programcı arkadaşlarımıza bir kaç şey sorarak başlamak istiyorum inşaallah. Yardım almak istediğim konuyu bir örnekle açıklıyayım isterseniz. Delphide Edit ve button ekledik var sayalım ve basit bir hesap makinesi yapıyoruz. Edite sayıyı gireceğiz buttonda sonucu göstermek için kullanacağımız nesne görevini görecek. Yani örneğin 10 sayısının karesini bulmak için durum şöyle oluyor. var sayi:integer; begin sayi:=StrToInt(edit1. text); if sayi = 10 then showmessage('10'un karesi 100'dür.'); end; Delphiden az çok anlayan arkadaşlar bahsettiğimi rahatlıkla anladılar sanıyorum. Şimdi benim burda asıl öğrenmek istediğim biraz farklı aslında. Yani sayi:integer; değilde yazi:string; yapıp editede sayı yerine bir kelime girmek istiyorum. Bunu nasıl hangi kodla yaparım?

Evet koddaki basit hatayı fark ettim kardeşim. Düzeltip altta tekrar veriyorum. Sorduğumu anladınız sanırım bu aradada. var sayi:integer; begin sayi:=StrToInt(edit1. text); if sayi = 10 then showmessage('10-un karesi 100-dür.'); end; end.

birader ne dedıını anlamadım ama anladıgım kısmı bu yazi:=edit1. text bunu dersen editteki sey yazinin icindedir artık ama bunu bılıosundur en ıısı sen bıraz daha

onu bılmıorum ama showmessage olayını eger sen 2. bı form kullanarak yaparsan ıstedıgın dılde yaparsın onu ama bu ısını baya