EditBox
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 113
- Kayıt: 20 Eyl 2010 07:42
EditBox
Merhaba arkadaslar...! Mesela editbox icerisinde 18253456 rakamlari yazilmisdri,ben label.caption-unu editbox icerisindeki soldan ve ya saqdan 2 rakama beraber ede bilirim,yani label.capton=18 ve ya label.capton=56 ya beraber olsun.... Onceden tesekkurler...
-
- Üye
- Mesajlar: 16
- Kayıt: 09 Tem 2010 10:36
Re: EditBox
Copy komutunu incele
Birinci parametre ile girilen metnin içeriğinden,
ikinci parametrede belirtilen karakterden sonra,
üçüncü parametreyle belirtilen adet kadar karakteri söküp alabilen bir fonksiyondur.
Fonksiyondan geriye dönen değer yine bir AnsiString veri olacağı için
sonuç herhangi bir tip dönüştürme işlemine gerek kalmadan direk olarak yazdırılabilir.
Procedure TForm1.Button1Click(Sender; Object);
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘Prestige Education Center’;
Sonuc := Copy(Metin , 10 , 9); // 10. Karakterden sonraki 9 karakter
Caption := Sonuc; // Education yazar
end;
burayada bakabilirsin http://www.delphibasics.co.uk/RTL.asp?Name=Copy
Birinci parametre ile girilen metnin içeriğinden,
ikinci parametrede belirtilen karakterden sonra,
üçüncü parametreyle belirtilen adet kadar karakteri söküp alabilen bir fonksiyondur.
Fonksiyondan geriye dönen değer yine bir AnsiString veri olacağı için
sonuç herhangi bir tip dönüştürme işlemine gerek kalmadan direk olarak yazdırılabilir.
Procedure TForm1.Button1Click(Sender; Object);
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘Prestige Education Center’;
Sonuc := Copy(Metin , 10 , 9); // 10. Karakterden sonraki 9 karakter
Caption := Sonuc; // Education yazar
end;
burayada bakabilirsin http://www.delphibasics.co.uk/RTL.asp?Name=Copy
-
- Üye
- Mesajlar: 113
- Kayıt: 20 Eyl 2010 07:42
Re: EditBox
Allah sizden min razi olsun kardes...