String Fonksiyonlar
AnsiCompareStr(Aranacak_Metin,İçinde_Aranacak);
Birinci parametre ile girilecek olan metni, ikinci parametrede aramak için kullanılan bir fonksiyondur. Şayet ilk parametre ikinci parametrenin içerisinde bulunuyorsa pozitif, bulunmuyorsa negatif, iki metin aynı ise sıfır değeri dönecektir.
Kod:
var
Metin, Sonuc : AnsiString;
Sayi : Integer;
begin
Metin := ‘Center’;
Sonuc := ‘Prestige Education Center’;
Sayi := AnsiCompareStr(Metin , Sonuc); // İçinde varmı
If Sayi=0 Then Caption := ‘Aynı’ else
If Sayi>0 Then Caption := ‘İçinde yok’ else
If Sayi<0 Then Caption := ‘İçinde var’; // Burası işler
end;
Fonksiyonun kullanımında küçük büyük harf kullanımına dikkat etmelisiniz. Aksi takdirde farklı sonuçlar oluşturabilirsiniz.
AnsiCompareText(Aranacak_Metin,İçinde_Aranacak);
AnsiCompareStr fonksiyonu ile aynı işi yapar. Yalnız bu fonksiyonun kullanımı küçük-büyük harf duyarlılığına hassas değildir. Yani ali ile ALI nin aynı oldukları kabul edilecektir. (Fonksiyondan geriye sıfır değeri dönecektir)
Kod:
var
Metin, Sonuc : AnsiString;
Sayi : Integer;
begin
Metin := ‘Prestige’;
Sonuc := ‘PRESTIGE’;
Sayi := AnsiCompareText(Metin , Sonuc); // İçinde varmı
If Sayi=0 Then Caption := ‘Aynı’ else // Burası işler
If Sayi>0 Then Caption := ‘İçinde yok’ else
If Sayi<0 Then Caption := ‘İçinde var’;
end;
AnsiDequotedStr(Metin , Karakter);
İkinci Parametre ile belirtilen karakteri, birinci parametre ile belirtilen metnin ilk harfinde arar. Şayet bulursa ilk ve son karakteri atarak kalan değeri döndürür.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘Prestige’;
Sonuc := AnsiDequotedStr(Metin , ‘P’);
Caption := Sonuc; // restig yazar
end;
Fonksiyonda kullanılan parametre değerlerinin küçük büyük harf duyarlılığının bulunduğunu hatırlatıp, diğer fonksiyonları incelemeye devam edeceğim.
AnsiLeftStr(Metin , Adet);
Bu fonksiyonu kullanabilmemiz için uses satırına StrUtils kütüphanesini eklememiz gerekir. Bu fonksiyonda birinci parametreyle belirtilen metnin sol tarafından, ikinci parametreyle belirtilen adet kadar karakter sökülüp alınabilir. Fonksiyondan geriye dönecek olan değer AnsiString tipli bir veri içereceği için her hangi bir kontrolde direk yazdırılabilir.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘Prestige’;
Sonuc := AnsiLeftStr(Metin , 4);
Caption := Sonuc; // Pres yazar
end;
AnsiLowerCase(Metin);
Parametre değeri ile girilen metnin küçük harfe çevirmek için kullanılan bir fonksiyondur. Şayet parametre içerisinde küçük harflerden oluşan karakterlere rastlarsa onlara dokunmaz.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘NIHAT DEMIRLI’;
Sonuc := AnsiLowerCase(Metin); // Küçük harfe çevir
Caption := Sonuc; // nihat demirli yazar
end;
AnsiMidStr(Metin , Başlangıç , KaçAdet);
Birinci parametre ile belirtilen metinden, ikinci parametredeki karakterden sonra, üçüncü parametre ile belirtilen sayı kadar karakteri söküp alır. Fonksiyondan geriye dönen değer AnsiString tipte bir veri olacağı için kolayca yazdırabilirsiniz. Uses’ e StrUtils eklemeyi unutmayınız.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘Prestige Education Center’;
Sonuc := AnsiMidStr(Metin , 2 , 3); // 2. Karakterden sonraki üç karakteri al
Caption := Sonuc; // res yazar
end;
AnsiPos(Aranacak_Metin , İçinde_Aranan_Metin);
İkinci parametre içerisinde birinci parametreyle girilen değeri arar. Şayet bulursa ilk karakterin kaçıncı karakterde bulunduğunu, bulmazsa da sıfır değerini döndürür.
Kod:
var
Metin, Aranan : AnsiString;
Sonuc : Integer;
begin
Metin := ‘Prestige Education Center’;
Aranan := ‘Center’;
Sonuc := AnsiPos(Aranan , Metin);
If Sonuc<>0 Then Caption := IntToStr(Sonuc); // 20 yazar
end;
Şimdi bu fonksiyona güzel bir örnek verelim. Örneğimizde Edit kutusuna girilecek olan dosya adında (uzantısıyla beraber) ”.” karakteri aratılmakta, ardından dosya adı Edit2 ye, uzantısı da Edit3 e yazdırılmaktadır.
Kod:
var
Dosya, Ad, Uzantı : AnsiString;
Sonuc : Integer;
begin
Dosya := Edit1.Text;
Sonuc := AnsiPos(‘.’ , Dosya); // “.” Kaçıncı karakter.
Ad := AnsiLeftStr(Dosya , Sonuc-1); // Noktadan öncesi
Uzantı := AnsiMidStr(Dosya , Sonuc+1 , Length(Dosya)+Sonuc); // Noktadan sonrasını al
Edit2.Text := Ad; // Dosya adını yaz
Edit3.Text := Uzanti; // Dosyanın uzantısını yaz
end;
AnsiReplaceStr(Metin , Değişecek_Metin , Yeni_Metin);
Birinci parametre ile girilen metin içerisindeki, ikinci parametre ile belirtilen bölümün yerine, üçüncü parametre ile belirtilen metni aktarabilen bir fonksiyondur.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘Ne Var’;
Sonuc := AnsiReplaceStr(Metin , ‘Var’ , ‘Haber’);
Caption := Sonuc; // Ne Haber yazar
end;
AnsiReplaceText(Metin , Değişecek_Metin , Yeni_Metin);
AnsiReplaceStr ile aynı işi yapar. Aralarında tek fark bu fonksiyonun harf duyarlılığının olmamalısır. Yeni aranan değerin var veya Var olması fonksiyon için fark etmeyecek, metni değiştirecektir.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘Ne Var’;
Sonuc := AnsiReplaceText(Metin , ‘var’ , ‘Haber’);
Caption := Sonuc; // Ne Haber yazar
end;
AnsiReverseString(Metin);
Parametre ile girilen metin değerini ters çevirere, yeni bir metin oluşturan fonksiyondur.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘Nihat’;
Sonuc := AnsiReserveString(Metin);
Caption := Sonuc; // tahiN yazar
end;
Fonksiyondan geriye dönen değer AnsiString tipte bir içeriğe sahip olduğu için başlıkta dönüştürme yaptırmadan yazdırabilmektir.
AnsiRightStr(Metin , Sağdan_Kaç_Karakter);
Birinci parametre ile girilen metnin sağ tarafından (sonundan), ikinci parametre ile belirtilen sayı kadar karakteri söküp alabilen bir fonksiyondur. Uses’ e StrUtils eklemeyi unutmayalım.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘Prestige’;
Sonuc := AnsiRightStr(Metin , 4); // Sağdan 4 karakteri al
Caption := Sonuc; // tige yazar
end;
AnsiUpperCase(Metin);
Parametre ile girilen metni büyük harfle yazdırabilmek için kullanılan bir fonksiyondur.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘nihat demirli’;
Sonuc := AnsiUpperCase(Metin); // Büyük harfe çevir
Caption := Sonuc; // NIHAT DEMIRLI yazar
end;
CompareStr(Metin1 , Metin2);
Birinci ve ikinci parametre ile girilen metinlerin eşit olup olmadıklarını kontrol edebilen bir fonksiyondur. İkinci metnin içerisinde birinci metni arar, şayet bulursa negatif, bulmazsa pozitif, ikisi aynı ise sıfır değerini döndürür.
Kod:
var
Metin, Sonuc : AnsiString;
Sayi : Integer;
begin
Metin := ‘Prestige’;
Sonuc := ‘Prestige Education Center’;
Sayi := CompareStr(Metin , Sonuc); // İçinde varmı
If Sayi=0 Then Caption := ‘Aynı’ else
If Sayi<0 Then Caption := ‘İçinde var’ else // Burası işler
If Sayi>0 Then Caption := ‘İçinde Yok’;
end;
Fonksiyon büyük küçük harfe hassas bir şekilde çalışmaktadır. Yani ilk parametrenin (metnin) değerini prestige (hepsi küçük) olarak değiştirirseniz, içinde yok kısmı işleyecektir.
CompareText(Metin1 , Metin2);
CompareStr fonksiyonu ile aynı işi yapar. Aralarında ki tek fark bu fonksiyonun harf duyarlılığının olmamasıdır.
Fonksiyondan geriye döndürdüğü değer pozitif sayı, negatif sayı veya sıfırdır. Bu değeri basit bir dallanmaya tabii tutarak, ikinci metnin içerisinde birinci metnin (harf duyarlılığı olmadan) var olup olmadığını kolayca öğrenebilirsiniz. CompareStr fonksiyonu ile çalışma mantığı benzeştiği için burada örneklendirme yapmamayı uygun buldum. (Siz isterseniz aynı örneği çözebilirsiniz)
Contact(Metin1, Metin2, ……….);
Parametre ile belirtilen değişken değerlerini yan yana yazdırmak için kullanılan bir fonksiyondur.
Kod:
var
Metin1, Metin2, Sonuc : AnsiString;
begin
Metin1 := ‘Nihat’;
Metin2 := ‘Demirli’;
Sonuc := Contact(Metin1 , Metin2); // Yan yana yaz
Caption := Sonuc; // NihatDemirli yazar
end;
Şayet arada boşluk bırakılması istenirse, o zaman kodu aşağıdaki şekilde değiştirmelisiniz.
Kod:
var
Metin1, Metin2, Sonuc : AnsiString;
begin
Metin1 := ‘Nihat’;
Metin2 := ‘Demirli’;
Sonuc := Contact(Metin1 , ‘ ’ , Metin2); // Yan yana yaz
Caption := Sonuc; // NihatDemirli yazar
end;
Copy(Metin1 , İndex, Adet);
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.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘Prestige Education Center’;
Sonuc := Copy(Metin , 10 , 9); // 10. Karakterden sonraki 9 karakter
Caption := Sonuc; // Education yazar
end;
Delete(Metin1 , İndex, Adet);
Birinci parametre ile girilen metnin değerinden, ikinci parametre ile girilen karakterden sonra, üçüncü parametreyle belirtilen sayı kadar karakteri söküp atan bir prosedürdür. Dikkat edeceğiniz husus, yapılan değişikliğin metin isimli parametrenin değerine yansıyacağıdır.
Kod:
var
Metin : AnsiString;
begin
Metin := ‘Sibel Yanar’;
Sonuc := Delete(Metin, 1, 5); // 1. Karakterden sonra 5 karakteri at
Caption := Sonuc; // Yanar yazar
end;
DupeString(Metin , Adet);
Birinci parametre ile girilen metni, ikinci parametre ile girilen adet kadar yan yana yazmak için kullanılan bir fonksiyondur.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘Yüksel İnan’;
Sonuc := DupeString(Metin, 2); // 2 Kere yan yana yaz
Caption := Sonuc; // Yüksel İnan Yüksel İnan yazar
end;
Insert(Eklenecek_Metin , Metin_Başlangıç_Karakteri);
Birinci parametre ile girilen metni, ikinci parametre ile girilen metre, üçüncü parametre de belirtilen karakterden sonra eklemek için kullanılan bir prosedürdür. Burada dikkat edilmesi gereken husus, yapılan değişikliğin ikinci parametre değerine yansıyacağıdır.
Kod:
var
Metin1, Metin2 : AnsiString;
begin
Metin1 := ‘Prestige Center’;
Metin2 := ‘Education’;
Insert(Metin2 , Metin1 , 10); // 10. Karakterden sonra metin2 yi ekle sonucu metin 1 e gönder
Caption := Metin1; // Prestige EducationCenter yazar
end;
LeftBStr(Metin , Adet);
Birinci parametre ile belirtilen metinden, ikinci parametre ile belirtilen adet kadar karakteri söküp alabilen bir fonksiyondur.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘Prestige’;
Sonuc := LeftBStr(Metin , 3); // İlk 3 karakteri al
Caption := Sonuc; // Pre yazar
end;
Daha öncede aynı işlemi yapan fonksiyonu göstermiştim. Başında Ansi olan fonksiyon ve prosedürlerin kullanabileceği karakter daha fazladır. Ama tercih tamamen size kalmıştır. İstediğiniz fonksiyonu veya prosedürü kullanabilirsiniz.
Length(Metin);
Parametre ile belirtilen metnin kaç karakterden oluştuğunu hesaplayabilmek için kullanılan bir fonksiyondur.
Kod:
var
Metin : AnsiString;
Uzunluk : Integer;
begin
Metin := ‘Nihat Demirli’;
Uzunluk := Length(Metin);
Caption := IntToStr(Uzunluk); // 13 yazar
end;
Fonksiyondan geriye dönen değer tam sayı tipli olacağı için, form başlığına tip dönüştürme fonksiyonu sayesinde yazdırılabilmektedir.
LowerCase(Metin);
AnsiLowerCase (daha önce izah edildi) fonksiyonunun yaptığı işi yapar. (Ansi kütüphanesinin daha zengin olduğunu hatırlatalım) Parametre olarak girilen metni küçük harfe dönüştürmek için kullanılır.
MidStr(Metin, Başlangıç, Adet);
Birinci parametre ile belirtilen metinden, ikinci parametre ile girilen başlangıç başlangıç karakterinden başlayarak, üçüncü parametre ile girilen adet kadar karakteri parçalayıp almak için kullanılan bir fonksiyondur.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘Gazi Üniversitesi’;
Sonuc := MidStr(Metin, 2, 6); // 2. Karakterden sonraki 6 karakter
Caption := Sonuc; // azi Ün yazar boşlukta bir karakterdir.
end;
Pos(Metin1, Metin2);
Birinci parametre ile girilen değer ile ikinci parametre ile girilen değeri karşılaştırmak için kullanılan bir fonksiyondur. Şayet iki parametre farklı değerler içeriyorsa (içinde bulunmuyor ise) 0 olacaktır.
Kod:
var
Metin : AnsiString;
Sonuc : Integer;
begin
Metin := ‘Merhaba’;
Sonuc := Pos(‘Merhabalar’,Metin); // Girilen ile aynımı
Caption := IntToStr(Sonuc); // 0 yazar
end;
RightStr(Metin, Sağdan_Kaç_Karakter);
Birinci parametre ile belirtilen metnin sonundan, ikinci parametre ile belirtilen adet kadar karakteri söküp almak için kullanılan fonksiyondur. (AnsiRightStr fonksiyonunun yaptığı işi yapar)
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘Ayşe Yanar’;
Sonuc := RightStr(Metin , 5); // Sağdan 5 karakteri al
Caption := IntToStr(Sonuc); // Yanar yazar
end;
SetLength(Metin, Soldan_Kaç_Karakter);
Birinci parametre ile belirtilen metinden, ikinci parametre ile belirtilen adet kadar karakteri söküp alabilen bir prosedürdür.
Kod:
var
Metin : AnsiString;
begin
Metin := ‘Sibel’;
SetLength(Metin , 4); // İlk 4 karakteri al
Caption := Metin; // Sibe yazar
end;
SetString(Metin, Katar, Soldan_Kaç_Karakter);
Birinci parametre ile belirtilen metne, ikinci parametre ile belirtilen katarın, üçüncü parametre ile belirtilen adet kadar karakterini (soldan) aktarabilen bir prosedürdür.
Kod:
var
Metin : AnsiString;
Yaz : PChar; // Katar değişkeni
begin
Yaz := ‘Sibel’;
SetString(Metin , Yaz , 2); // İlk 2 karakteri aktar
Caption := Metin; // Sibe yazar
end;
Str(Sayı , Metin);
Birinci parametre ile girilen sayıyı (ondalıklı veya tam sayı), ikinci parametre ile girilen metne aktarmak için kullanılan bir prosedürdür. İlk parametre parasal tipte bir değişkende olabilir.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘Prestige’;
Str(555 , Metin); // Metne aktar
Caption := Metin; // 555 yazar
end;
StringOfChar(Karakter , Adet);
Birinci parametre ile belirtilen karakteri, ikinci parametre ile belirtilen adet kadar yan yana yazdırmak için kullanılan bir fonksiyondur.
Kod:
var
Metin : AnsiString;
begin
Metin := StringOfChar(‘*’ , 10);
Str(555 , Metin); // Metne aktar
Caption := Metin; // ********** yazar
end;
Görsel diller çıkmadan önce çok kullanılan (hakikaten işe yarardı) bir fonksiyondu. (Pascal, C vs.) Bilhassa başlık ve paragraf altlarını çizdirmek için kullanılırdı.
Biliyorum hepiniz Edit kutusuna girilen karakteri yan yana yazdırmayı deneyeceksiniz, ama olmayacak. Unutmayınız ki Char tipli değişkenlerde AnsiString tipli veriler aynı değildir. Bu tip durumlarda izleyeceğiniz yol aşağıda ki gibi olmalıdır.
Kod:
var
Metin : AnsiString;
Karakter : Array[0..1] Of Char;
begin
StrCopy(Karakter, PChar(Edit1.Text)); // Editteki karakteri Char tip değişkene al
Metin := StringOfChar(Karakter[0],10); // Yan yana yaz
Caption := Metin; // ********** yazar
end;
StringReplace(Metin, Değişecek_Bölüm, Yeni_Bölüm, Seçenek);
Birinci parametre ile verilen metnin içerisinde, ikinci parametre ile verilen kısmı, üçüncü parametre ile verilen içerikle değiştirmek için kullanılan bir fonksiyondur.
Kod:
var
Metin, Sonuc : AnsiString;
Secenek : TReplaceFlags; // Unutmayın
begin
Secenek := [RfIgnoreCase]; // Küçük büyük harf duyarlılığı yok
Metin := ‘Senin Çok Paran Var’;
Sonuc := StringReplace(Metin , ‘çok’ , ‘Az’ , Secenek); // Çok ile Az ı değiştir
Caption := Sonuc; // Senin Az Paran Var yazar
end;
Aynı kodu aşağıdaki şekilde yazarsanız bu durumda küçük büyük harf duyarlılığı gösterecek dolayısı ile sonuçta farklı olacaktır.
Kod:
var
Metin, Sonuc : AnsiString;
Secenek : TReplaceFlags; // Unutmayın
begin
Secenek := [RfReplaceAll]; // Küçük büyük harf duyarlılığı var
Metin := ‘Senin Çok Paran Var’;
Sonuc := StringReplace(Metin , ‘çok’ , ‘Az’ , Secenek); // Çok ile Az ı değiştir
Caption := Sonuc; // Senin Çok Paran Var yazar
end;
Burada kullanılan TReplaceFlags nesnesi küme tipte Delphi tarafından tanımlanmış bir nesnedir. Dilerseniz gösterimini aşağıdaki şekilde de kullanabilirsiniz.
Kod:
Sonuc := StringReplace(Metin, ‘çok’ , ‘Az’ , [RfReplaceAll]);
Her iki durumda da sonuç aynı olacaktır. [] işareti içerisinde kullanmayı sakın unutmayın.
StuffString(Metin, Başlangıç, Uzunluk, Yeni_Metin);
StringReplace fonksiyonuna benzer iş görmektedir. Aralarında ki fark, değiştirilecek olan kısmın burada karakter sayısı ile belirlenmesidir.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘Senin Çok Paran Var’;
Sonuc := StuffString(Metin , 7 , 3 , ‘Az’); // 7. Karakterden sonra ki üç karakterin yerine Az yaz
Caption := Sonuc; // Senin Az Paran Var yazar
end;
Trim(Metin);
Parametre ile girilen metnin sol ve sağındaki tüm boşlukları atmak için kullanılan bir fonksiyondur.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘ Prestige ‘;
Sonuc := Trim(Metin);
Caption := Sonuc; // Prestige yazar
end;
Bilhassa yanlışlık ile space tuşuna basılması durumunda oluşabilecek olan hataları engellemek amacıyla kullanılan bir fonksiyondur. Bu fonksiyondan dolayı kelimeler arasında bulunan boşluklar hiçbir değişikliğe uğramazlar.
TrimLeft(Metin);
Parametre ile girilen metnin sol tarafında bulunan boşlukları atmak için kullanılan bir fonksiyondur. Sağ kısımda bulunan boşluklara dokunmaz.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘ Prestige ‘;
Sonuc := TrimLeft(Metin); // Sol boşlukları at
Caption := Sonuc; // Prestige yazar
end;
TrimRight(Metin);
Parametre ile girilen metnin sağ tarafında bulunan boşlukları atmak için kullanılan bir fonksiyondur. Sol kısımda bulunan boşluklara dokunmaz.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘ Prestige ‘;
Sonuc := TrimRight(Metin); // Sağ boşlukları at
Caption := Sonuc; // Prestige yazar
end;
UpperCase(Metin);
Parametre ile girilen metindeki karakterlerin tamamını büyük harfe çevirmek için kullanılan fonksiyondur. Şayet metnin içerisinde büyük harfe rastlarsa onlara dokunmayacaktır. Daha önce örneklendirildiği için tekrar değinilmeyecektir.
WrapText(Metin, İşlem, Alta_İndirilecek_Karakterler, Max_Karakter);
Birinci parametrede belirleyeceğiniz metni, üçüncü parametrede belirleyeceğiniz karakterlerden herhangi bir tanesine rastlaması durumunda alt satıra indirmek için kullanılan bir fonksiyondur.
Kod:
var
Metin, Sonuc : AnsiString;
begin
Metin := ‘Prestige Education Center‘;
Sonuc := WrapText(Metin , #13#10, [‘.’ , ‘’ , #9 , ‘-’] , 10);
Caption := Sonuc;
end;
Komutta da görüldüğü üzere space rastladığında alt satıra kalan karakterleri devam etmektedir.
Chr(Sayi);
Parametre ile girilen ASCII (0-255 arası) değerinin karakter karşılığını bulmak için kullanılan bir fonksiyondur.
Kod:
var
Metin : AnsiString;
begin
Metin := Chr(65);
Caption := Metin; // A yazar
end;
Ord(Karakter);
Parametre ile girilen karakterin ASCII değerini hesaplayan bir fonksiyondur. Fonksiyondan tam sayı tipli bir değer döneceği için yazdırmak için IntToStr tip dönüştürme fonksiyonunu kullanmalısınız.
Kod:
begin
Caption := IntToStr(Ord(Key));
end;
Val(Metin , Değişken , Hata);
Birinci parametreyle girilen içeriğin soldan matematiksel anlamı olan kısmını ikinci parametreye aktarır. Prosedür sayesinde ikinci parametrenin değeri değişecektir.
Kod:
var
Deger, Hata : Integer;
begin
Val(Edit1.Text , Deger , Hata);
Caption := IntToStr(Deger); // A yazar
end;
StrToInt(Metin);
String içerikli değerleri tam sayıya çevirmek için kullanılan bir fonksiyondur. Sayısal içeriğe çevrilemeyen bir karaktere rastlarsa hata üretecektir.
Kod:
var
Metin : AnsiString;
Deger : Integer;
begin
Metin : ‘555’;
Deger := StrToInt(Metin);
Caption := IntToStr(Deger*2); // 1110 Yazar
end;
StrToIntDef(Metin);
StrToInt fonksiyonu ile aynı işi yapar. Aralarındaki tek fark şayet sayıya dönüştürülemeyecek bir değer gönderilirse, bu durumda fonksiyon hata üretmemekte, ikinci parametre ile belirtilen değeri işleme sokmaktadır. Farkı anlamanız için aşağıdaki iki örneği dikkatlice inceleyiniz.
Kod:
var
Metin : AnsiString;
Deger : Integer;
begin
Metin : ‘555A’;
Deger := StrToIntDef(Metin,0); // Tam sayıya çevir, çevrilemiyor ise değeri 0 yap
Caption := IntToStr(Deger*2); // 0 Yazar
end;
Üstteki kodlamada metin değişkeninin içeriğinde A karakteri (sayıya çevrilemez) bulunduğu için, değer isimli değişkenin içeriği ikinci parametre ile girilen 0 değerine eşit olacaktır. Bu aktarmayı StrToInt fonksiyonu ile yaparsanız programınız size hata mesajı vericektir.
Kod:
var
Metin : AnsiString;
Deger : Integer;
begin
Metin : ‘555’;
Deger := StrToIntDef(Metin,0); // Tam sayıya çevir, çevrilemiyor ise değeri 0 yap
Caption := IntToStr(Deger*2); // 1110 Yazar
end;
StrToFloat(Metin);
Parametre ile girilen metni ondalıklı sayıya çevirmek için kullanılan bir fonksiyondur. Ondalıklı sayıya çevrilemeyecek bir karaktere rastlarsa programınız hata mesajı verecektir.
Kod:
var
Metin : AnsiString;
Deger : Real;
begin
Metin : ‘555,111’;
Deger := StrToFloat(Metin); // Ondalıklı sayıya çevir
Caption := FloatToStr(Deger); // 555.111 Yazar
end;
StrToFloatDef(Metin);
Ondalıklı sayıya çevrilemeyen bir karaktere rastlanılması durumunda StrToFloat fonksiyonu hata mesajı veriyordu. Bu fonksiyonla hata mesajını engelleyip varsayılan değerin kullanılmasını sağlayabilirsiniz.
Kod:
var
Metin : AnsiString;
Deger : Real;
begin
Metin : ‘555A,111’;
Deger := StrToFloatDef(Metin,0); // Ondalıklı sayıya çevir
Caption := FloatToStr(Deger*2); // 0 Yazar
end;
Metin değişkeni içerisinde ondalıklı sayıya çevrilemeyecek karaktere rastladığı için değer isimli değişkenin içeriğini varsayılan (yani 0) kabul ederek işleme devam edecektir.
IntToStr(Sayı);
Parametre olarak girilen tam sayıyı stringe çavirmek için kullanılan fonksiyondur. Bilhassa kullanıcının görmesini istediğiniz içerilikleri stringe çevirmek zorunda kalacaksınız.
FloatToStr(Ondalıklı_Sayı);
Parametre olarak girilen ondalıklı sayıyı string içeriğe çevirmek için kullanılan fonksiyondur. Diğer fonksiyonlarda yeterince uygulama yapıldığı için tekrar örnek verilmeyecektir.
FloatToStrF(Ondalıklı_Sayı, Format, Uzunluk, Ondalıklı_Uzunluk);
Birinci parametre ile girilen ondalıklı sayıyı ikinci parametrede belirtilen formatlı hale dönüştürmek için kullanılan bir fonksiyondur.
Kod:
var
Metin : AnsiString;
Sayi : Extended;
begin
Sayi := StrToFloat(Edit1.Text);
Metin := FloatToStrF(Sayi, ffCurrency, Length(Edit1.Text), 2);
Edit1.Text := Metin;
end;
Fornksiyonda kullanılan birinci parametre, formatlanacak olan sayıyı, üçüncü parametre toplam karakteri sayısı, dördüncü parametrede ondalıklı kısımda gözükecek olan karakter sayısını belirlemek için kullanılmaktadır. İkinci parametre ise uygulanacak olan formatı belirleyecek olan bölümdür. Alabileceği seçenekler aşağıda verilmiştir.
ffCurrency Parasal format için kullanılır.
ffNumber Binlik ayıraç uygulanmış halde gösterilir.
ffFixed Ondalıklı formatta gösterilir.
ffExponent Sayı üstel olarak gösterilir.
ffGeneral Üstel veya normal gösterim.
Parasal formatın nasıl olacağı (TL-$) Windows unuzun bölgesel ayarlar kısmından otomatik olarak alınmaktadır. Eğer bölgesel ayarlar kısmından Türkiye seçilmiş ise, paranızın sonuna Delphi tarafından TL otomatik olarak konulacaktır. Şayet USA seçilmiş ise o zamanda $ karakteri paranızın sonunda otomatik olarak eklenecektir.
FormatFloat(Format_Tipi, Sayı);
İkinci parametre ile girilen ondalıklı sayıya, birinci parametre ile belirlenen formatı uygulayan fonksiyondur. Birinci parametre için belirleyebileceğiniz format tipleri aiağıda verilmiştir.
#,##0.00 1,234.00
#.## 1234
0.00 1234.00
Kod:
var
Metin : AnsiString;
begin
Metin := FormatFloat(‘#,’ , StrToFloat(Edit3.Text));
Caption := Metin;
end;
