Yorumları: 11
Konuları: 5
Kayıt Tarihi: 18-02-2017
Rep Puanı: 12
Başlangıç
var
SL:TStringList;
begin
DemirBasno:= txtKitaptur.Properties.Items[txtKitaptur.ItemIndex].Value; //KitapTur
SL:=TStringList.Create; //Yazarın soyismi
try
SL.Delimiter:=' ';
SL.DelimitedText:=txtYazari.Text;
DemirBasno:= DemirBasNo+'/'+LeftStr(SL.Strings[SL.Count-1] ,3);
finally
SL.Free;
end;
Temiz olsun gözden kaçırmışın düzelttiğiniz için teşekkürler.
Yorumları: 304
Konuları: 20
Kayıt Tarihi: 26-09-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 3.967
Uzman
09-03-2017, Saat: 15:19
(Son Düzenleme: 09-03-2017, Saat: 15:20, Düzenleyen: barutali.)
Merhaba,
Farklı bir çözüm olması için aşağıda ki kodcuğu şuraya bırakıyorum belki lazım olur..
LastDelimiter ilk parametrede verilen karakterin, ikinci parametrede verilen metinin içinde ki son indeksini bulur ve çevirir.
var
sonuc : String;
begin
sonuc := 'ali veli konya';
sonuc := Copy(sonuc, LastDelimiter(' ', sonuc)+1, 3);
end;
Amatör Küme Bilgisayar Programcısı