Delphi String Fonksiyonlar - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Yeni Konu aç

Cevapla

Alt

07 Temmuz 2010, 20:59

#1

Çevrimdışı

Kullanıcıların profil bilgileri misafirlere kapatılmıştır.

IF Ticaret Sayısı: (0)

IF Ticaret Yüzdesi:(%)

Delphi String Fonksiyonlar

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

var
    Metin : AnsiString;
begin
    Metin := FormatFloat(‘#,’ , StrToFloat(Edit3.Text));
    Caption := Metin;
end;

Alıntıdır.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________

Büyümeden yaşlandım ben.Hayat; ilk gördüğüm insanların,ilk gördüğüm gibi olmadıklarını öğretti.

Kahraman Tazeoğlu

Alıntı ile Cevapla

IRCForumlari.NET Reklamlar

Cevapla

delphi, fonksiyonlar, fonksiyonları, string

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Yetkileriniz
Konu Acma Yetkiniz Yok Cevap Yazma Yetkiniz Yok Eklenti Yükleme Yetkiniz Yok Mesajınızı Değiştirme Yetkiniz Yok BB code is Açık Smileler Açık [IMG] Kodları Açık HTML-Kodu Kapalı Trackbacks are Kapalı Pingbacks are Açık Refbacks are Açık Forum Rules

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Delphi String Fonksiyonlar.	Sevda	Delphi	1	03 Aralık 2011 17:07
C# Fonksiyonlar	Sunay	C#	0	24 Nisan 2010 01:54

Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.

İletişim Arşiv Gizlilik Sözleşmesi Yukarı git

trsikayet.com ferizli haber kaynarca haber yavru köpek sohbet instagram takipçi sohbet teması yetişkin sohbet

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO

Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org 副業 https://www.newstrendline.com/