Sırasal Tip Rutinleri
Dec: Kendisinden önceki değeri verir. İkinci parametre belirtilmediğinde bir önceki değeri verir.
Inc: Kendisinden sonraki değeri verir. İkinci parametre belirtilmediğinde bir önceki değeri verir.
Kullanım şekli ;
var a: integer;
begin
a:=10;
Dec(a,2);
ShowMessage( inttostr(a) ); // 8 değerini yazacak
Inc(a,3);
ShowMessage( inttostr(a) ); // 11 değerini yazacak. Çünkü a'nın son değerine 3 ekler.
end;
Odd: Değerin tek sayı olup olmadığını kontrol eder ve sayı tek ise true değilse false döndürür.
Kullanım şekli ;
a:=6;
if odd(a) then
ShowMessage('a tektir')
else
ShowMessage('a çifttir');
Pred: Bir önceki değeri verir. Dec fonksiyonuna benzer fakat 2.parametresi yoktur.
Succ: Bir sonraki değeri verir. Inc fonksiyonuna benzer fakat 2.parametresi yoktur.
Kullanım şekli;
Pred(10); // 9 değerini döndürür
Succ(10); // 11 değerini döndürür
Ord: Verilen değerin ASCII karakterinin sayısal karşılığını verir.
Kullanım şekli;
Ord('A'); // A karakterinin ASCII karakter karşılığını verir. Yani 65 değerini döndürecektir.
Low: Verilen tipin en küçük değerini döndürür.
High: Verilen tipin en büyük değerini döndürür. Low ve High fonksiyonu dizilerde sınırlandırma yapmak için de kullanılabilir.
Kullanım şekli;
Low(Byte); // 0
High(Byte); // 255
Tip Dönüşüm Rutinleri
Chr: Verilen sayının ASCII karşılığını verir.
Kullanım şekli;
Chr(65); // A değerini verir
Ord: Verilen değerin ASCII karakterinin sayısal karşılığını verir.
Kullanım şekli;
Ord('B'); // B karakterini verir
Kullanım şekli;
var
i: integer;
begin
i:=round(1.5); // 2'ye yuvarlar
ShowMessage( inttostr(i) );
end;
Trunc: Verilen sayının küsuratını atar. Yani virgülden sonraki kısmını keser.
Kullanım şekli;
var
i: integer;
begin
i:=trunc(1.8); // 1 yazar
ShowMessage( inttostr(i) );
end;
Int: Verilen değerden gerçek sayıyı alır. Int türüne çevirir. Trunc fonksiyonuna benzer.
Kullanım şekli;
var
x: single;
begin
x:=int(1.3); // 1 yazar
ShowMessage( floattostr(i) );
end;
IntToStr: Integer değeri stringe çevirir. ( Sayısal ifadeyi metinsel ifadeye çevirir. )
Kullanım şekli;
var
i: integer;
k: string;
begin
i:=3;
k:= IntToStr(i); // 3 sayısını '3' karakteri olarak k ya atar. 3 artık metinsel ifadedir.
ShowMessage( k );
end;
IntToHex: Integer değeri hexadecimal değere çevirir. (Sayısal ifadeyi on altılı sayı sistemine çevirir.)
Kullanım şekli;
var
i: integer;
begin
i:=15;
ShowMessage( IntToHex(i,4) ); // 000F değerini döndürür.
ShowMessage( IntToHex(i,3) ); // 00F değerini döndürür.
ShowMessage( IntToHex(i,1) ); // F değerini döndürür.
end;
StrToInt: String değeri integer değere çevirir. ( Metinsel ifadeyi sayısal ifadeye çevirir. )
Kullanım şekli;
var
i: integer;
k: string;
begin
k:= Edit1.text; // metin kutusuna girilen sayıyı k değişkenine attık
i:= StrToInt(k); // bu sayıyı matematiksel işlemlerde kullanmak için integer'a çevirdik
end;
StrToIntDef: String değeri integer değere çevirir. Eğer çevirmeye çalıştığı değer içinde integer türünden farklı değer varsa varsayılan olarak belirtilen değeri döndürür.
Kullanım şekli;
var
i: integer;
k: string;
begin
k:= '43';
i:= StrToIntDef(k,0); // 43
k:= '43ewrwe';
i:= StrToIntDef(k,0); // k değişkeninde metinsel karakterler olduğu için 0 yazar
end;
FloatToStr: Float değeri stringe çevirir. ( Ondalıklı ifadeyi metinsel ifadeye çevirir. )
Kullanım şekli;
var
i: single;
k: string;
begin
i:=3,5;
k:= FloatToStr(i); // 3,5 sayısını '3,5' karakteri olarak k ya atar. 3,5 artık metinsel ifadedir.
ShowMessage( k );
end;
StrToFloat: String değeri floata çevirir. ( Metinsel ifadeyi ondalıklı sayıya çevirir. )
Kullanım şekli;
var
i: single;
k: string;
begin
k:='3,5';
i:= StrToFloat(i); // '3.5' metnini 3.5 sayısına çevirir
ShowMessage( k );
end;
*****************************************************************************
Hiç yorum yok:
Yorum Gönder