text parçalama

[y.kulac]

s.a.

string parçalama ve kopyalma ile ilgili dökümanlara baktım. ama yapmak istediğimi yapamadım.

Kod: Tümünü seç

label1.caption:= '198,55 '; //ytl.

bu yazan miktarı tl ve krş olarak ayırıp ayrı ayrı editlere aktarmak istiyorum.
yani;

Kod: Tümünü seç

edit1.text:='198'
edit2.text:='55'

şeklinde ayırma yapmam lazım.

iyi çalışmalalar.

[SeRoKi]

inş. işini görür kardeş :

Kod: Tümünü seç

edit1.text:=copy(Label1.Caption,0,pos(',',Label1.Caption)-1);

edit2.text:=copy(Label1.Caption,pos(',',Label1.Caption)-1,Length(Label1.Caption));

[aslangeri]

s.a.
@SeRoKi nin cevabı normalde işini görmesi lazım
ancak kullanıcı tercihleri ve bölgesel ayarlardan dolayı tüm bilgisayarlarda ondalık ayıracı olarak ',' kullanılmıyor. bunun için
decimalseperator (umarım doğru yazmışımdır) global değişkenini kullanmanı(zı) tavsiye ederim.
iyi çalışmalar.

[SeRoKi]

teşekkürler @aslangerihocam,

kullanıcı tercihleri ve bölgesel ayarlardan dolayı tüm bilgisayarlarda ondalık ayıracı olarak ',' kullanılmıyor.

aklımın ucundan bile geçmemişti

[y.kulac]

arkadaşlar teşekkür ederim allah razı olsun. programı kendi ihtiyacım için yazacağımdan ' , ' ayıracı şimdilik benim işim görüyor.ayrıca kodda ufacık bir değişiklikle ihtiyacımı karşıladım.

Kod: Tümünü seç

edit1.text:=copy(Label1.Caption,0,pos(',',Label1.Caption)-1);

edit2.text:=copy(Label1.Caption,pos(',',Label1.Caption)-(-1),Length(Label1.Caption)); 

iyi çalışmalar.