Yorumları: 122
Konuları: 36
Kayıt Tarihi: 19-12-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 232 Acemi
04-03-2019, Saat: 10:24
(Son Düzenleme: 04-03-2019, Saat: 15:42, Düzenleyen: Mericx.)
Merhabalar, string olarak tuttuğum bir alanda gelen kaydın son 4 hanesini nasıl alabilirim?
s: = 'Istanbul';
s:= RightStr(s,4);
Sehir.Text := s;
Şeklinde kullandığım zaman S bilgisini boş döndürüyor. Copy ile ilk karakterini alabiliyorum ama son karakterini alabilir miyim bulamadım başka hangi yöntemler var acaba yardımcı olabilir misiniz?
Copy(s, S.Length-4, s.Length) fesih beyin ikinci yöntemi çok yardımcı oldu ^^
Don't fear the try!
Yorumları: 154
Konuları: 28
Kayıt Tarihi: 10-11-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 248 Acemi
Uses kısmına Strutils ekeyerek ardından AnsiRightStr(s,4) denermisin.
Yorumları: 228
Konuları: 46
Kayıt Tarihi: 28-12-2016
Rep Puanı: 684 Acemi
04-03-2019, Saat: 11:00
(Son Düzenleme: 04-03-2019, Saat: 11:11, Düzenleyen: cinarbil.)
test edilmiştir.
gelen alan sonunda boşluk olabilir.
edit2.text := AnsiRightStr(trim(edit1.Text), 4)
şeklinde kullanablirsiniz
var
Form1: TForm1;
implementation
{$R *.dfm}
uses strutils ;
procedure TForm1.FormCreate(Sender: TObject);
begin
[ars=delphi]edit2.text := AnsiRightStr(edit1.Text, 4)
end;
end.
"…De ki: "Hiç bilenlerle bilmeyenler bir olur mu? Şüphesiz, temiz akıl sahipleri öğüt alıp-düşünürler" (Zümer Suresi, 9)
Yorumları: 3.540
Konuları: 348
Kayıt Tarihi: 07-07-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 13.717 Üstad
Merhaba,
RightStr fonksiyonu ile de yapabilmeniz gerekiyordu. Kullandığınız yöntem doğrudur.
Farklı iki yöntem daha sunayım fakat her iki yöntem de iki medodun çalıştığını unutmayın.
RightStr yönteminde tek metod çalışıyorken, Copy ve SubString yönteminde iki ayrı metod kullanılıyor.
I.Yöntem:
s.Substring(s.Length - 4)
II.Yöntem:
Copy(s, s.Length - 3, s.Length)
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
Yorumları: 122
Konuları: 36
Kayıt Tarihi: 19-12-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 232 Acemi
(04-03-2019, Saat: 10:55)CesuR Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Uses kısmına Strutils ekeyerek ardından AnsiRightStr(s,4) denermisin.
Merhaba, Uses kısma Strutils belirttim, ve AnsiRightStr ile de denedim, ama boş döndürdü yine de :/
Don't fear the try!
Yorumları: 566
Konuları: 9
Kayıt Tarihi: 05-08-2016
Rep Puanı: 8.808 Üstad
04-03-2019, Saat: 11:46
(Son Düzenleme: 04-03-2019, Saat: 11:48, Düzenleyen: mrmarman.)
Buton tıkladığınız Procedure içini tamamen buraya yazar mısınız?
variable tanımını nerede yaptınız, takip eden satırda yine s'yi başka bir şeye eşitleyip yine SEHIR Editine veya başka bir şeyi SEHIR Editine 'ye eşlemiş olabilir misiniz?
Ayrıca SEHIR Edit'nin onchange gibi eventinde sayı yoksa yazma vs gibisinden bir denemeniz olabilir mi
ya da ya da ya da diye uzayacak
Bırakın SEHIR Edit'i önce bir ShowMessage ile S' yi aracısız sonucu görün ondan sonra soruna odaklanın isterseniz
Saygılarımla
Muharrem ARMAN
Yorumları: 3.540
Konuları: 348
Kayıt Tarihi: 07-07-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 13.717 Üstad
04-03-2019, Saat: 11:56
(Son Düzenleme: 04-03-2019, Saat: 11:57, Düzenleyen: Fesih ARSLAN.)
(04-03-2019, Saat: 11:46)mrmarman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Buton tıkladığınız Procedure içini tamamen buraya yazar mısınız?
variable tanımını nerede yaptınız, takip eden satırda yine s'yi başka bir şeye eşitleyip yine SEHIR Editine veya başka bir şeyi SEHIR Editine 'ye eşlemiş olabilir misiniz?
Ayrıca SEHIR Edit'nin onchange gibi eventinde sayı yoksa yazma vs gibisinden bir denemeniz olabilir mi
ya da ya da ya da diye uzayacak
Bırakın SEHIR Edit'i önce bir ShowMessage ile S' yi aracısız sonucu görün ondan sonra soruna odaklanın isterseniz
Merhaba,
Konu ile alakası yok ama kısa bir ara olsun. 
Siz tüm olabilecek mantıksal hata veya mantıksal önerileri sununca aklıma IDE ne zaman bu seviyeye gelebilir diye düşündüm.
Yapay zekanın IDE'ye uyarlanmış halini görebilecek miyiz acaba?
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
Yorumları: 154
Konuları: 28
Kayıt Tarihi: 10-11-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 248 Acemi
04-03-2019, Saat: 12:55
(Son Düzenleme: 04-03-2019, Saat: 13:00, Düzenleyen: CesuR.)
Fesih bey çıkarsa google da yarar. Yükünü hafifletmiş olur. Hep ona soruyoruz hiç onu dinleyen yok )))
Mericx, arkadaşım şöyle yaparsan komutun çalıştığını senin başka biryerde hata yaptığını göreceksin. Acaba sen sonucu alıp edite yazdırdıktan sonra Sehir.text dediğin editi , Sehir.text=' ' diyerek acaba sıfırlıyor olabilir misin. Onu kontrol et.
var
s:string;
begin
s:='deneme';
showmessage(ansirightstr(s,2));
end;
Yorumları: 122
Konuları: 36
Kayıt Tarihi: 19-12-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 232 Acemi
04-03-2019, Saat: 15:39
(Son Düzenleme: 04-03-2019, Saat: 15:40, Düzenleyen: Mericx.)
(04-03-2019, Saat: 12:55)CesuR Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Fesih bey çıkarsa google da yarar. Yükünü hafifletmiş olur. Hep ona soruyoruz hiç onu dinleyen yok )))
Mericx, arkadaşım şöyle yaparsan komutun çalıştığını senin başka biryerde hata yaptığını göreceksin. Acaba sen sonucu alıp edite yazdırdıktan sonra Sehir.text dediğin editi , Sehir.text=' ' diyerek acaba sıfırlıyor olabilir misin. Onu kontrol et.
var
s:string;
begin
s:='deneme';
showmessage(ansirightstr(s,2));
end;
Aslında hayır ='' diyerek boş yapmadım içini ama neden boş döndüğünü anlamadım. Fesih beyin önerdiği Yöntem iki ile düzgün çalıştı ama şuan. Sebebini anlayamadım cidden ama bakıyorum şuan kodlara tekrar...
(04-03-2019, Saat: 11:01)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Merhaba,
RightStr fonksiyonu ile de yapabilmeniz gerekiyordu. Kullandığınız yöntem doğrudur.
Farklı iki yöntem daha sunayım fakat her iki yöntem de iki medodun çalıştığını unutmayın.
RightStr yönteminde tek metod çalışıyorken, Copy ve SubString yönteminde iki ayrı metod kullanılıyor.
I.Yöntem:
s.Substring(s.Length - 4)
II.Yöntem:
Copy(s, s.Length - 3, s.Length)
Yardımınız için çok teşekkür ederim 2.yöntem ile gayet güzel çalıştı
Yazdığım kodda düzgün gözüküyor ama içini sıfırlamadığım halde boş değer geliyordu.Bir yerde hata mı yaptım onu inceliyorum şuan.
Don't fear the try!
|