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ı: 225
Konuları: 41
Kayıt Tarihi: 10-11-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 392 Acemi
Uses kısmına Strutils ekeyerek ardından AnsiRightStr(s,4) denermisin.
Yorumları: 488
Konuları: 82
Kayıt Tarihi: 28-12-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 2.056 Programcı
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ı: 4.224
Konuları: 379
Kayıt Tarihi: 07-07-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 16.975 Ü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)
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ı: 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ı: 1.668
Konuları: 20
Kayıt Tarihi: 05-08-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 19.064 Ü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ı: 4.224
Konuları: 379
Kayıt Tarihi: 07-07-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 16.975 Üstad
04-03-2019, Saat: 11:56
(Son Düzenleme: 04-03-2019, Saat: 11:57, Düzenleyen: TescilsizUzman.)
(04-03-2019, Saat: 11:46)mrmarman Adlı Kullanıcıdan Alıntı: 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?
Yorumları: 225
Konuları: 41
Kayıt Tarihi: 10-11-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 392 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ı: 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ı: 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!
|