Birler Basamağıı Almak?

[Raskolnikov]

Merhaba arkadaşlar;

Edit içerisinde değişken basamakta bir sayır var (örn:5236985) ben bu sayının birler basamağını nasıl alabilirm?Edit içerisinde ki sayı sabit değl 3 hanelide olabiliir 9 hanelide 75 hanelide bunu nasıl yaparım?

[thelvaci]

Edit'in Text property'si String tipinde mi ? Cevap: Evet
String türündeki değerlere bir dizi gibi erişilebilir mi ? Cevap: Evet
Bir string'in uzunluğunu bulan bir metodu Delphi tasarımcıları akıl etmişler midir ? Cevap: Evet

[emin_as]

İnteger sayılar için çalışır.

Kod: Tümünü seç

var
   birler,yuzler, binler : integer;
begin
   birler:=(sayi mod 10) div 1; // birler basamagindaki sayi
   yuzler:=(sayi  mod 100) div 10; // yüzler basamagindaki sayi
   binler:=(sayi mod 1000) div 100; // binler basamagındaki sayı
end;

[G.Arkas]

Kod: Tümünü seç

var
st:string
i:integer;
begin
st:=edit1.text;
i:=length(st);
label1.caption:=st[i];

gibi bişiyler işte.

[qamyoncu]

Kod: Tümünü seç

Copy(edit1.text,length(edit1.text),1);

Ne kadar zengin bir forum, bir soruya 3 çözüm