Delphide Memo

[yusuf5656]

Öncelikle merhaba.Sormak istediğim bişey var uğraşdım ama yapamadım.Memo1e sayılar giriyoruz arka arkaya,bu sayıları girdiğimiz sırada 35,45 sayılarını arka arkaya girene kadar sayı girmemizi istemeye devam etsin .Yani örneğin 3,5,6,12,35,67 girdik sayı girme işlemi devam etsin ama 3,5,6,12,35,45 girdik sayı girme işlemi sona ersin.Yardımcı olursanız çok mutlu olurum.Şimdidedn teşekkür ediyorum.

[SimaWB]

Sayılar aynen sizin yazdığınız gibi aralarına virgül yazılarak mı girilecek, yoksa her sayıdan sonra enter'a basılıp, her sayı yeni satıra mı girilecek?
Bir de sizin yazdığınız kodları görsek, nerede takıldığınızı bilsek, daha kolay yardımcı oluruz...

[yusuf5656]

sayılar entera basılıp girilicek alt alta sıralanıcak yani 35 ve 45 girildiği anda sayı isteme sona ericek for la yapılıo galiba bulamadım ama malasef

[SimaWB]

Memo'nun OnKeyPress olayında Enter'a basılıp basılmadığını kontrol edebilirsin.:

Kod: Tümünü seç

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if Ord(Key) = VK_RETURN then

Daha sonra Memo1.Lines ile girilmiş satırlara ulaşabilirsin. Memo1.Lines.Count sana kaç satır giriş yapıldığını gösterir.
Yani sen girilmiş olan son satırı okumak için Memo1.Lines[Memo1.Lines.Count-1] 'i kullanabilirsin.
Bunlar çok temel konular olduğu için biraz araştırarak sorduğun soruya çok kalay yanıt bulabilirsin...

[yusuf5656]

Teşekkür ederim yardımcı olduğunuz için.Saolasın.

[yusuf5656]

Memo1 de alt alta isimler yazıo diyelim ahmet,asım,abdullah,abidin butona bastığımızda a harfleri içinden çıkarsın.Sanırım for ile bütün harflere bakıyoruz ama yapamadım ben.Yardımcı olursanız sevinirim.

[SimaWB]

ReplaceStr ve StringReplace fonksiyonunu araştırınız