AnsiMatchStr Fonksiyonu (String Yakalama Usulleri) - String dizi içinde varmı***
Bir stringin bir string dizide olup olmadığını kontrol etmek için kullanılan
fonksiyondur. AnsiMatchStr fonksiyonu büyük küçük harf ayrımına duyarlıdır.
Kullanımı :
AnsiMatchStr(const AText: string; const AValues: array of string):Boolean;
Örnek :
Uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
Const
arr: array['1'..'5'] of string = ('ocak', 'Şubat', 'mart', 'nisan', 'mayıs');
begin
begin
if AnsiMatchStr('Şubat', arr) = true then
showmessage('1')
else
showmessage('2')
end;
end;
Delphi - .....................................
AnsiMatchText Fonksiyonu (String Yakalama Usulleri) - String dizi içinde varmı***
Bir stringin bir string dizide olup olmadığını kontrol etmek için kullanılan
fonksiyondur. AnsiMatchText fonksiyonu büyük küçük harf ayrımına duyarlı değildir.
Kullanımı :
AnsiMatchText(const AText: string; const AValues: array of string):Boolean;
Örnek :
Uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
Const
arr: array['1'..'5'] of string = ('ocak', 'Şubat', 'mart', 'nisan', 'mayıs');
begin
begin
if AnsiMatchText('şubat', arr) = true then
showmessage('1')
else
showmessage('2')
end;
end;
Delphi - .....................................
AnsiMidStr Fonksiyonu (String Yakalama Usulleri) - Bir stringten string alma***
Bir stringin istenen karekterinden istenen karekterine kadar string almak için
kullanılır.AnsiMidStr üç parametreden oluşur. İlk parametre string ikinci
parametre stringin hangi karekterinden başalanacağı , üçüncü parametre ise hangi
karektere kadar gideceğidir. AnsiMidStr(string,başlangıç,bitiş)string;
Eğer başlangıç değeri stringten büyükse sonuç boş olarak döner.
Kullanımı:
AnsiMidStr(const AText: AnsiString; const AStart, ACount: Integer): AnsiString;
Örnek :
Uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2: string;
begin
s1 := 'İlk 7 karekter alalım.';
s2 :=AnsiMidStr(S1,1,7);
begin
Showmessage(S2);
end;
end;
Delphi - .....................................
AnsiPos Fonksiyonu (String Yakalama Usulleri) -String içinde stringin nerde olduğunu bulma
Bir stringi başka bir string içinde aramak için kullanılır. Sonuç integer olarak
döner. Eğer aranan string aranılacak stringin içinde varsa, aranan stringin
aranılacak string içerisinde kaçıncı sırada olduğu döner. AnsiPos büyük küçük
harf duyarlılığına sahiptir.
Kullanımı: AnsiPos(const Substr, S: string): Integer;
AnsiPOs(Aranan,Aranılan);
Örnek :
Uses SysUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2: string;
i1: Integer;
begin
s1 := 'Bu yaz hava çok güzel geçecek.';
s2 := 'hava';
i1 := AnsiPos(s2, s1);
begin
Showmessage(inttostr(i1));
end;
end;
Sonuç : 8
Delphi - .....................................
AnsiQuotedStr Fonksiyonu (String Yakalama Usulleri) - Stringin başına ve sonuna karekter ekleme
Bir Stringin başına ve sonuna belirlenen bir karekteri eklemek için kullanılır.
Kullanımı : AnsiQuotedStr(const S: string; Quote: Char): string;
AnsiQuotedStr(String,Eklenecek Karekter);
Örnek :
Uses SysUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2: string;
begin
s1 := 'Bu yaz hava çok güzel geçecek.';
s2 := AnsiQuotedStr(s1,'-');
begin
Showmessage(s2);
end;
end;
Sonuç : -Bu yaz hava çok güzel geçecek.-
Delphi - .....................................
AnsiReplaceStr Fonksiyonu (String Yakalama Usulleri) - String içinde string değiştirme
Bir stringin içindeki stringi başka string ile değiştirmek için kullanılır.
AnsiReplaceStr küçük büyük harf duyarlılığına sahiptir. Eğer değişcek string
ana stringin içinde olmazsa sonuç ana string olarak dönecektir.
Kullanımı : AnsiReplaceStr(const AText, AFromText, AToText: string): string;
AnsiReplaceStr(String,Değişecek,Konacak)
Örnek :
Uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2: string;
begin
s1 := 'Bu yaz hava çok güzel geçecek.';
s2 := AnsiReplaceStr(s1,'yaz','bahar');
begin
Showmessage(s2);
end;
end;
Sonuç: Bu bahar hava çok güzel geçecek.
Delphi - .....................................
AnsiReplaceText Fonksiyonu (String Yakalama Usulleri) - String Değiştirme
Bir stringin içindeki stringi başka string ile değiştirmek için kullanılır.
AnsiReplaceStr küçük büyük harf ayrımı yapmaz. Eğer değişcek string ana
stringin içinde olmazsa sonuç ana string olarak dönecektir.
Kullanımı : AnsiReplaceText(const AText, AFromText, AToText: string): string;
AnsiReplaceText(String,Değişecek,Konacak)
Örnek :
Uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2: string;
begin
s1 := 'Bu yaz hava çok güzel geçecek.';
s2 := AnsiReplaceText(s1,'YAZ','bahar');
begin
Showmessage(s2);
end;
end;
Sonuç: Bu bahar hava çok güzel geçecek.
Delphi - .....................................
AnsiResemblesText Fonksiyonu (String Yakalama Usulleri) - Stringler benzermi ***
İki stringin benzerliğini karşılaştırır.Eğer stringler biribirine karekter olarak
benzerlik gösteririse sonuç true değilse sonuç false olarak döner.
AnsiResemblesText fonksiyonu büyük küçük harf ayrımı yapmaz.
Kullanımı : AnsiResemblesText(const AText, AOther: string): Boolean;
AnsiResemblesText(ilk String, ikinci String)
Örnek :
Uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2: string;
begin
s1 := 'aavacaB';
s2 := 'avacaab';
if AnsiResemblesText(s1, s2) = true then
Showmessage('Benzerlik var')
else
Showmessage('Benzerlik yok')
end;
Sonuç :Benzerlik var
Delphi - .....................................
AnsiReverseString Fonksiyonu (String Yakalama Usulleri) - Stringi Tersten Yazama
Bir stringi tersten yazmak için kullanılan fonksiyondur.
Kullanımı : AnsiReverseString(const AText: AnsiString): AnsiString;
Örnek :
Uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1: string;
begin
s1 := 'ZAMAN';
Showmessage(AnsiReverseString(s1));
end;
Sonuç : Namaz;
Delphi - .....................................
AnsiRightStr Fonksiyonu (String Yakalama Usulleri) - Stringin sağından istendiği sayıda karekter
Bir stringin sağından istendiği ölçüde karekter almak için kullanılır.
Kullanımı :
AnsiRightStr(const AText: AnsiString; const ACount: Integer): AnsiString;
AnsiRightStr(String,Alınacak Karekter Sayısı)
Örnek :
Uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1: string;
begin
s1 := 'Bu İşi Zamanında Yapmamız Gerekirdi.';
Showmessage(AnsiRightStr(s1,10));
end;
Sonuç: Gerekirdi.
Delphi - .....................................
AnsiSameStr Fonksiyonu (String Yakalama Usulleri) - iki stringi alfabetik düzende karşılaştırma***
İki stringin alfabetik düzende aynı sırada olup olmadığını karşılaştırmak için
kullanılır. Stringler alfabetik sırada aynı düzlemde ise sonuç true degilse false
olarak döner. AnsiSameStr büyük küçük harf ayrımı yapmaktadır.
Kullanımı : AnsiSameStr(const S1, S2: string): Boolean;
AnsiSameStr(S1, S2)
Örnek:
Uses SysUtils;
procedure TForm1.Button2Click(Sender: TObject);
var
s1, s2: string;
begin
s1 := 'Bu İşi Zamanında Yapmamız Gerekirdi.';
s2 := 'İşi Zamanında Yapmamız Gerekirdi.';
if ansisamestr(s1, s2) = true then
Showmessage('Alfebetik düzende aynı sırada')
else
Showmessage('Alfebetik düzende aynı sırada değil');
end;
Sonuç : Alfebetik düzende aynı sırada değil
Delphi - .....................................
AnsiSameText Fonksiyonu (String Yakalama Usulleri) -iki stringin karekterlerini sırasına göre karş.
İki stringin değerlerini sıra sayısına göre karşılaştırır. Stringlerin sıra
sayısındaki değerleri aynı ise sonuç true degilse false olarak döner.
AnsiSameText fonksiyonu büyük küçük harf ayrımı yapmaz ve windowsun geçerli dil
tanımlarından göz önüne alır.
Kullanımı : AnsiSameText(const S1, S2: string): Boolean;
AnsiSameText(S1, S2)
Örnek:
Uses SysUtils;
procedure TForm1.Button2Click(Sender: TObject);
var
s1, s2: string;
begin
s1 := 'Bu İşi Zamanında Yapmamız Gerekirdi.';
s2 := 'bu İşi Zamanında Yapmamız Gerekirdi.';
if AnsiSameText(s1, s2) = true then
Showmessage('Stringlerin kareketerleri aynı sırada')
else
Showmessage('Stringlerin kareketerleri aynı sırada değil');
end;
Sonuç : Stringlerin kareketerleri aynı sırada
Delphi - .....................................
AnsiStartsStr Fonksiyonu (String Yakalama Usulleri) - Bir string başka bir stringin başında varmı*
İki stringin değerlerini sıra sayısına göre karşılaştırır. Stringlerin sıra
sayısındaki değerleri aynı ise sonuç true degilse false olarak döner.
AnsiSameText fonksiyonu büyük küçük harf ayrımı yapar ve windowsun geçerli dil
tanımlarınıda göz önüne alır.
Kullanımı : AnsiStartsStr(const ASubText, AText: string): Boolean;
Örnek:
Uses StrUtils;
procedure TForm1.Button2Click(Sender: TObject);
var
s1, s2: string;
begin
s1 := 'Bilmem';
s2 := 'Bilmem En başında var mı?';
if AnsiStartsStr(s1,s2) = True then
begin
Showmessage('Evet Var');
end;
end;
Sonuç : Evet Var
Delphi - .....................................
AnsiStartsText Fonksiyonu (String Yakalama Usulleri) - Bir string başka bir stringin başında varmı
Bir stringi başka bir stringin başında arar, eger birinci string ikinci stringte
varsa sonuç true, yoksa sonuç false olarak döner. AnsiStartsText küçük büyük harf
ayrımı yapmamaktadır.
Kullanımı : AnsiStartsText(const ASubText, AText: string): Boolean;
Örnek:
Uses StrUtils;
procedure TForm1.Button2Click(Sender: TObject);
var
s1, s2: string;
begin
s1 := 'Bilmem';
s2 := 'bilmem En sonunda VAR mı?';
if AnsiStartsText(s1,s2) = True then
begin
Showmessage('Evet Var');
end;
end;
Sonuç : Evet Var
Delphi - .....................................
AnsiUpperCase Fonksiyonu (String Yakalama Usulleri) - Bir metinde küçük harfleri büyük harf yapar
Bir string içindeki tüm küçük harfli karekterleri büyük harfe dönüştürür.
Normalde Ansi ile başlayan tüm fonksiyonlar windowsa tanıtılmış dillere destek
verir, yani AnsiUpperCase fonksiyonun türkçe karekter sorunu olmaması gerekirken
yani türkçe karekterleri (Ğ,Ü,Ş,İ,Ö,Ç) büyük harfe dönüştürme işlemi yapması
gerekirken bu fonksiyon sadece i harfini büyük harfe dünüştürememektedir. Yani
küçük i harfini büyük I yapmaktadır.
Aşağıdaki örneği inceleyiniz.
Kullanımı : AnsiUpperCase(const S: string): string;
Örnek :
Uses SysUtils;
procedure TForm1.Button2Click(Sender: TObject);
var
s1,s2: string;
begin
s1 := 'BiR STRING iÇİNDEKİ TÜM KÜÇÜK Harfleri Büyük Harf Yapar. Ama Türkçe '+
'karekterlerden sadece küçük i dönüştürülemez. Örneğin küçük i';
s2 :=AnsiupperCase(S1);
begin
Showmessage(S2);
end;
end;
end;
Delphi - .....................................
CompareStr ve CompareText Fonksiyonu (String Yakalama Usulleri) - İki stringi karşılaştırma***
İki stringi karşılaştırmak için kullanılır. Sonuç integer olarak döner.
Eğer SONUÇ<0 S1 < S2
SONUÇ=0 S1 = S2
SONUÇ>0 S1 > S2 anlamına gelir. CompareStr büyük-küçük harflere
duyarlıdır. Ancak CompareText fonksiyonu küçük büyük harf ayrımı yapmaz.
CompareStr,CompareText ile AnsiCompareStr,AnsiCompareText birbirine benzerlik
göstermektedir. Ancak AnsiCompareStr ve AnsiCompareText Windows işletim sistemi
karekterlerini destekler iken CompareStr ve CompareText desteklememektedir.
Örneğin AnsiCompareStr ve AnsiCompareText Türkçe karekterlere duyarlı iken
CompareStr ve CompareText duyarlı değildir. Aşağıdaki örneği CompareStr,CompareText
ile AnsiCompareStr,AnsiCompareText için uygulayıp sonuçlarını değerlendirerek
aradaki farkı daha iyi anlayabiliriz.
Kullanımı : CompareStr(const S1, S2: string): Integer;
Örnek : CompareStr fonksiyonu ile Memo içinde A-Z ye Z-A ya sıralama.
FORMUN UZERINE BIR MEMO IKI BUTON YERLEŞTIRIN. ÖRNEKTEKİ KODLARI BUTTONLARIN
ONCLIK OLAYINA YAZIN. Memonun satırların çeşitli harflerle başlayan il isimlerini
girin. (ADANA,AĞRI,AMASYA,ANKARA,İZMİR,IGDIR,ELAZIG,MALATYA,ANTALYA,ZONGULDAK,
TRABZON VS... ) AYNI ÖRNEĞİ AnsiCompareStr,AnsiCompareText ile test etmeyi
unutmayın.
uses SysUtils;
procedure TForm1.Button1Click(Sender: TObject); {a dan z ye sırala}
var
j, I: Integer;
begin
for j := 0 to Memo1.Lines.Count - 1 do
begin
for i := 0 to Memo1.Lines.Count - 1 do
begin
if CompareStr(memo1.Lines.Strings[i], memo1.Lines.Strings[i + 1]) > 0
then
begin
if i + 1 <> memo1.Lines.Count then
begin
memo1.Lines.Exchange(i, i + 1);
end;
end;
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject); {Z den A ya sırla}
var
j, I: Integer;
begin
for j := 0 to Memo1.Lines.Count - 1 do
begin
for i := 0 to Memo1.Lines.Count - 1 do
begin
if CompareStr(memo1.Lines.Strings[i], memo1.Lines.Strings[i + 1]) < 0
then
begin
memo1.Lines.Exchange(i, i + 1);
end;
end;
end;
end;
Delphi - .....................................
Concat Fonksiyonu (String Yakalama Usulleri) - String Birleştirme
birden fazla metni birleştirmek için kullanılan fonksiyondur. S1,S2..Sn kadar
stringleri birleştirebilir. Stringler arasına + ifadesi koyamaklada aynı işlemi
yapabiliriz.
Kullanımı: Concat(s1 [, s2,..., sn]: string): string;
Örnek :
procedure TForm1.Button3Click(Sender: TObject);
var
s1, s2,s3 : string;
begin
s1 := 'MERSİN';
s2 := 'MANİSA';
s3 := 'MARDİN';
showmessage(Concat(s1, ' ', s2, ' ', s3));
end;
Sunuç : MERSİN MANİSA MARDİN
Delphi - .....................................
Copy Fonksiyonu (String Yakalama Usulleri) -Dinamik dizi kopyalama veya stringten string alma***
Bir stringten string söküp alamak için kullanıldığı gibi dinamik bir dizinin
elamanlarını başka bir dinamik diziye taşımak için kullanılan fonksiyondur.
Kullanımı : Copy(S; Index, Count: Integer): string;
Copy(S; Index, Count: Integer): array;
Örnek1: bayramtag@msn.com mail adresindeki domain ismini copy fonksiyonu
yardımı ile bulma.
Uses System;
procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2: string;
begin
s1 := 'bayramtag@msn.com';
s2 := copy(s1,pos('@',s1)+1,Length(s1)-pos('@',s1)+1);
showmessage(S2);
end;
Sonuç: msn.com
Örnek2: İşletim Sistemindeki geçerli bölgesel tanımlamalardaki ay isimlerini
dinamik bir diziye taşıma işlemi.
procedure TForm1.Button1Click(Sender: TObject);
var
LocalFormat: TFormatSettings;
aylar, AYLAR2: array of string;
i: Integer;
begin
GetLocaleFormatSettings(0, LocalFormat);
SetLength(Aylar, high(LocalFormat.shortMonthNames) + 1);
for i := 0 to high(LocalFormat.LongMonthNames) do
begin
aylar[i] := (LocalFormat.LongMonthNames[i + 1]);
end;
SetLength(AYLAR2, High(Aylar) + 1);
Aylar2 := Copy(aylar, 0, 12); {dinamik diziye dinamik dizi elamanı kopyalama}
for i := 0 to High(Aylar2) do
begin
ShowMessage(Aylar2[i]);
end;
end;
Delphi - .....................................
Delete Prosedürü (String Yakalama Usulleri) - Bir Stringinten istenilen ölçüde karekter silme
Bir stringin istenilen karketerinden itibaren istenilen sayı kadar silmek için
kullanılır.
Kullanımı : Delete(var S: string; Index, Count:Integer);
Örnek:
Uses System;
procedure TForm1.Button1Click(Sender: TObject);
var
s1: string;
begin
s1 := 'Delete prosedürü ile karekter silme.';
Delete(s1, 1, 6);
showmessage(s1);
end;
Sonuç : prosedürü ile karekter silme.
Delphi - .....................................
DupeString Fonksiyonu (String Yakalama Usulleri) - String çoğalatma
Bir stringi istenilen sayıda yan yana yazdırmak için kullanılan fonksiyondur.
Kullanımı :DupeString(const AText: string; ACount: Integer): string;
Örnek :
Uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1: string;
begin
s1 := 'İstenilen ölçüde aynı stringi yana yana yazdırma.'+#13;
showmessage(DupeString(s1, 3));
end;
Sonuç : İstenilen ölçüde aynı stringi yana yana yazdırma.
İstenilen ölçüde aynı stringi yana yana yazdırma.
İstenilen ölçüde aynı stringi yana yana yazdırma.
Not : S1 stringinin sonunda #13 olduğunu gözden kaçırmayın.
Delphi - .....................................
Insert Prosedürü (String Yakalama Usulleri) -Araya ekleme
Bir stringi içine belirtilen karakterden itibaren string eklemek için kullanılan
fonksiyondur.
Kullanımı: Insert(Source: string; var S: string; Index: Integer);
Örnek:
Uses System;
procedure TForm1.Button1Click(Sender: TObject);
var
s1: string;
begin
s1 := 'Bu Hava Çok Güzel Geçecek';
Insert('Yaz ',s1,4);
showmessage(s1);
end;
Sonuç: Bu Yaz Hava Çok Güzel Geçecek
Delphi - .....................................
IsDelimiter Fonksiyonu (String Yakalama Usulleri) - Belirtilen indexde ayraç varmı***
Bir stringin içindeki ayracın index numarası verilerek olup olmadığı kontrol
edilir. Eger belirtilen ayraç belirtilen index numarasında varsa sonuç True
yoksa False olarak döner. Eger verilen index numarası stringin uzunluğundan
büyükse, sıfıra eşit veya sıfırdan küçük ise sonuç False olarak döner.
Kullanımı: IsDelimiter(const Delimiters, S: string; Index: Integer): Boolean;
Örnek:
Uses SysUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1: string;
begin
s1 := 'adı;soyadı;yası';
if IsDelimiter(';', s1, 4) = true then
showmessage('Ayraç Var')
else
showmessage('Ayraç Yok');
end;
Delphi - .....................................
LastDelimiter function Fonksiyonu (String Yakalama Usulleri) - En son ayraçın indexi ne***
String içinde bir veya birden fazla ayraç var ise en son ayraçın string içindeki
index numarasını belirlemek için kullanılır.
Kullanımı : LastDelimiter(const Delimiters, S: string): Integer;
Örnek: Bir stringin ayraçlarına göre ayraç aralarındaki bilgileri bir diziye
aktaralım.
Uses SysUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
StrArr: array of string;
IntArr: array of Integer;
s1, s2: string;
i, j: Integer;
begin
s1 := 'adı;soyadı;yası;meslegi;doğumyeri;medenihali;';
s2 := S1;
j := 0;
for i := 0 to Length(S2) do {Ayracın yerlerini belirlemeye başla}
begin
if LastDelimiter(';', s2) > 0 then
begin
SetLength(IntArr, j + 1);
{ayraç sayısı kadar intarr dizi elamanına yer ayırma}
IntArr[j] := LastDelimiter(';', s2); {ayracın indexini alma}
Delete(s2, LastDelimiter(';', s2), 1); {s2 den ayracı silme}
j := j + 1; {ayraç varsa dinamik dizinin elaman sayısı için yer artırma}
end;
end;
j := 1;
SetLength(StrArr, High(IntArr) + 1);{ayraç sayısı kadar strarr dizisine yer ayrıma}
for i := High(IntArr) downto 0 do
begin
StrArr[i] := Copy(S1, j, IntArr[i] - j); {bilgileri strarr dizisine aktarma}
ShowMessage(StrArr[i]);
j := IntArr[i] + 1;
end;
end;
Delphi - .....................................
LeftBStr Fonksiyonu (String Yakalama Usulleri) - AnsiString bir metinden karekter koparma
Multibaytlık AnsiString bir metinin solunundan karketer almak için kullanılan
fonksiyondur.
Kullanımı :
LeftBStr(const AText: AnsiString; const AByteCount: Integer): AnsiString;
Örnek :
Uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2: Ansistring;
begin
S1 := 'AnsiString Bir Metinin Başından Karketer Almak İçin Kullanılır.';
S2 := LeftBStr(s1, 10);
ShowMessage(S2);
end;
Sonuç : AnsiString
Delphi - .....................................
LeftStr Fonksiyonu (String Yakalama Usulleri)
AnsiString veya WideString tipli metinlerin başında metin almak için kullanılır.
Eğer metindeki karketerler multibaytlık ise delphi LeftStr yi kullanmazı,şayet
her bayt alınacaksa LeftBStr yi kullanmanızı tavsiye eder.
Kullanımı :
LeftStr(const AText: AnsiString; const ACount: Integer): AnsiString; overload;
LeftStr(const AText: WideString; const ACount: Integer): WideString; overload;
Örnek : StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2: Ansistring;
begin
S1 := 'AnsiString Bir Metinin Başından Karketer Almak İçin Kullanılır.';
S2 := LeftStr(s1, 10);
ShowMessage(S2);
end;
Sonuç: AnsiString
Delphi - .....................................
Length Fonksiyonu (String Yakalama Usulleri)
Bir stringin karekter sayısını veya bir dizinin elaman sayısını bulmak için
kullanılan fonksiyon.
Kullanımı : Length(S): Integer;
s bir dizi olabileceği gibi bir stringte olabilir.
Örnek:
Uses System;
procedure TForm1.Button1Click(Sender: TObject);
const
a: array[1..7] of string = ('Pazartesi', 'Salı', 'Çarşamba', 'Perşembe',
'Cuma', 'Cumartesi', 'Pazar');
var
s1: string;
i: Integer;
begin
s1 := 'Bir Stringin karekter sayısını bulmak için kullanılır.';
i := Length(a);
ShowMessage('a dizisinin boyu : ' + inttostr(i));
i := Length(s1);
ShowMessage('S1''in karekter sayısı : ' + inttostr(i)); {}
end;
Delphi - .....................................
LowerCase Fonksiyonu (String Yakalama Usulleri)
Bir ASCII stringteki büyük karekterleri küçük harfe dönüştürür. Fakat Türkçe
karekterler AnsiString olduğundan dolayı Türkçe karekterleri küçük harfe
dönüştürmez. Bu nedenle Türkçe karekterleri küçük harfe dönüştürmek için
AnsiLowerCase kullanılmalıdır.
Kullanımı : LowerCase(const S: string): string;
Örnek:
Uses SysUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1: string;
begin
s1 := 'S1 STRINGİNDEKİ BÜYÜK KAREKTERLERİ KÜÇÜK HARF YAPAR. '+
'YANLIZ TÜRKÇE KAREKTERLER ANSISTRING OLDUĞUNDAN DOLAYI '+
'TÜRKÇE KAREKTERLERİ KÜÇÜK HARFE DÖNÜŞTÜRMEZ. BU ' +
'NEDENLE TÜRKÇE KAREKTELERİ KÜÇÜK HARFE DÖNÜŞTÜRMEK İÇİN '+
'ANISLOWERCASE KULLANILMALIDIR.';
ShowMessage(LowerCase(S1)); {LowerCase}
ShowMessage(AnsiLowerCase(S1)); {AnsiLowerCase}
end;
Delphi - .....................................
MidBStr Fonksiyonu (String Yakalama Usulleri)
Multibaytlık AnsiString bir metinden karekter katarı kopayalamak için kullanılan
fonksiyondur.
Kullanımı : MidBStr(const AText: AnsiString;
const AByteStart, AByteCount: Integer): AnsiString;
Örnek :
Uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2: Ansistring;
begin
S1 := 'MultiBaytlık AnsiString Metinden Karketer Kopyalamak İçin Kullanılır.';
S2 := MidBStr(s1, 14,10);
ShowMessage(S2);
end;
Sonuç : AnsiString
Delphi - .....................................
MidStr Fonksiyonu (String Yakalama Usulleri)
AnsiString veya WideString tipli metinlerden metin kopyalamak için kullanılır.
Eğer metindeki karketerler multibaytlık ise delphi MidStr yi kullanmazı, şayet
her bayt alınacaksa MidBStr yi kullanmanızı tavsiye eder.
Kullanımı : MidStr(const AText: AnsiString;
const AStart, ACount: Integer): AnsiString; overload;
MidStr(const AText: WideString;
const AStart, ACount: Integer): WideString; overload;
Örnek :
Uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2: Ansistring;
begin
S1 := 'MultiBaytlık AnsiString Metinden Karketer Kopyalamak İçin Kullanılır.';
S2 := MidStr(s1, 14,10);
ShowMessage(S2);
end;
Sonuç : AnsiString
Delphi - .....................................
NullStr Sabiti (String Yakalama Usulleri)
Bir Poniter bir değeri değil bir hafıza adresini barındırır. Bir pointerin
barındığı adreste bulunan değeri ^ karekterini kullanarak öğrene biliriz.
Bu kural üzerinde NullStr nin yaptığı işi şöyle tanımlaya biliriz.
NullStr bir pointerin barındırdığı adresteki değeri boşaltır.
Kullanımı : NullStr: PString = @EmptyStr;
Örnek :
Uses SysUtils;
var
P: PString;
S1: string;
begin
S1 := 'Pointer barındırdığı adresteki değeri boşlatmak için kullanılır. ';
P := @S1;
p := NullStr;
if P <> NullStr then
begin
ShowMessage(P^);
end
else
begin
ShowMessage('P Adresi Boş');
end;
Delphi - .....................................
Pos Fonksiyonu (String Yakalama Usulleri)
Bir metni başka bir metin içinde arar eğer aranan metin varsa ikinci metinin
içindeki index numarasını geri dönderir. Aranan metin yoksa sonuç olarak sıfır
dönderir.
Kullanımı : Pos(Substr: string; S: string): Integer;
Örnek:
Uses System;
procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2: string;
begin
S1 := 'Pos fonksiyonunu kullanımına bir örnek.';
s2 := 'bir';
Showmessage(inttostr(Pos(s2, s1)));
end;
Sonuç :
Delphi - .....................................
PosEx Fonksiyonu (String Yakalama Usulleri) - Pos Fonksiyonun Gelişmişi
Bir metin içinde başka metinler arar. Eğer ikinci metin birinci metinde birden
fazla varsa bu fonksiyon kullanılmalıdır. PosEx fonksiyonu Pos fonksiyonuna
benzemektedir. Pos fonksiyonu sadece bir metini bir defa araya bilirken PosEx
fonksiyonu birden fazla araya bilir. Nasılmı ? Kullanımını gözden geçirin.
Kullanımı : PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;
PosEx(Aranan,Aranılan,Hangi Karekterden İtibaren)
Eğer offset alanına birşey yazılmazsa PosEx fonksiyonu bunu 1 olarak kabul eder.
Aramayı birinci karekterden itibaren yapar. Eğer Offset değerine yani Hangi
Karekterden İtibaren parametresine yazacağınız Cardinal tipinde bir sayıdan
itibaren aramayı yapar.
Örnek : Bir metinin içinde başka bir metin arayalım ve ikinci metinin birinci
metindeki sıra numarlarını bir dinamik diziye yükleyip dinamik dizinin
elamanlarını showmessage proceduru ile ekranda gösterelim.
Uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
i1: Integer;
s1, s2: string;
arr: array of Integer;
begin
S1 := 'Biz daima Pos fonksiyonunu kullanmaya alıştığımızdan PosEx ' +
'fonksiyonun kullanımını hiç merak etmedik. O halde gelin PosEx ' +
'fonksiyonunu inceleyelim. Emin olun ki ilginç bir fonksiyon.';
s2 := 'fonksiyon';
i1 := 0;
while (PosEx(s2, s1, i1 + length(s2)) > 0) do
begin
i1 := PosEx(s2, s1, i1 + length(s2));
SetLength(arr, Length(arr) + 1);
Arr[High(arr)] := i1;
end;
for i1 := 0 to High(arr) do
begin
Showmessage('Arr [' + inttostr(i1) + '] := ' + Inttostr(Arr[i1]));
end;
end;
Sonuç : Arr [0]:= 15 , Arr[1]:= 60 , Arr[2]:= 123 , Arr[3]:= 173
Delphi - .....................................
QuotedStr Fonksiyonu (String Yakalama Usulleri)
Bir stringi iki tırnak işareti arasına almak için almak için kullanılır.
Kullanımı : QuotedStr(const S: string): string;
Örnek :
Uses SysUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2: string;
begin
S1 := 'QuotedStr fonksiyonunu kullanımına bir örnek.';
s2 := QuotedStr (s1);
Showmessage(s2);
end;
Sonuç: 'QuotedStr fonksiyonunu kullanımına bir örnek.'
Delphi - .....................................
ReverseString Fonksiyonu (String Yakalama Usulleri)
Bir metni tersten yazmak için kullanılır.
Kullanımı : ReverseString(const AText: string): string;
Örnek:
Uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2: string;
begin
S1 := 'ReverseString fonksiyonunu kullanımına bir örnek.';
s2 := ReverseString(s1);
Showmessage(s2);
end;
Sonuç : .kenrö rib anımınalluk ununoyisknof gnirtSesreveR
Delphi - .....................................
RightBStr Fonksiyonu (String Yakalama Usulleri)
Multibaytlık AnsiString bir metinin solunundan karketer almak için kullanılan
fonksiyondur.
Kullanımı :
RightBStr(const AText: AnsiString; const AByteCount: Integer): AnsiString;
Örnek :
Uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2: Ansistring;
begin
S1 := 'AnsiString Bir Metinin Başından Karketer Almak İçin Kullanılır.';
S2 := RightBStr(s1, 11);
ShowMessage(S2);
end;
Sonuç : Kullanılır.
Delphi - .....................................
RightStr Fonksiyonu (String Yakalama Usulleri)
AnsiString veya WideString tipli metinlerin başında metin almak için kullanılır.
Eğer metindeki karketerler multibaytlık ise delphi RightStr yi kullanmazı,şayet
her bayt alınacaksa RightBStr yi kullanmanızı tavsiye eder.
Kullanımı :
RightStr(const AText: AnsiString; const ACount: Integer): AnsiString; overload;
RightStr(const AText: WideString; const ACount: Integer): WideString; overload;
Örnek : StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2: Ansistring;
begin
S1 := 'AnsiString Bir Metinin Başından Karketer Almak İçin Kullanılır.';
S2 := RightStr(s1, 11);
ShowMessage(S2);
end;
Sonuç: Kullanılır.
Delphi - .....................................
SameText Fonksiyonu (String Yakalama Usulleri)
İki stringin değerlerini sıra sayısına göre karşılaştırır. Stringlerin sıra
sayısındaki değerleri aynı ise sonuç true degilse false olarak döner. SameText
fonksiyonu büyük küçük harf ayrımı yapmaz ve windowsun geçerli dil tanımlarından
etkilenmez.
Kullanımı : SameText(const S1, S2: string): Boolean;
SameText(S1, S2)
Örnek:
Uses SysUtils;
procedure TForm1.Button2Click(Sender: TObject);
var
s1, s2: string;
begin
s1 := 'Bu İşi Zamanında Yapmamız Gerekirdi.';
s2 := 'bu İşi Zamanında Yapmamız Gerekirdi.';
if SameText(s1, s2) = true then
Showmessage('Stringlerin kareketerleri aynı sırada')
else
Showmessage('Stringlerin kareketerleri aynı sırada değil');
end;
Sonuç : Stringlerin kareketerleri aynı sırada
Delphi - .....................................
SetLenght Fonksiyonu (String Yakalama Usulleri)
Bir stringin karekter sayısını veya bir dinamik dizinin elaman sayısını
belirlemek için kullanılan fonksiyondur.
Kullanımı : SetLength(var S; NewLength: Integer);
SetLength(String; YeniUzunluğu);
SetLength(DinamikDiziAdı,ElemanSayısı);
Örnek :
Uses System;
procedure TForm1.Button1Click(Sender: TObject);
var
s1: string;
DinDizi: array of string;
i: Integer;
begin
s1 := 'Stringin karekter sayısını ayarlamak veya dinamik bir dizinin ' +
'elaman saysısını belirlemek için kullanılan fonksiyondur.';
SetLength(s1, 24);
ShowMessage(s1);
SetLength(DinDizi, 2);
DinDizi[0] := '1';
DinDizi[1] := '2';
for i := 0 to High(DinDizi) do
begin
ShowMessage(DinDizi[i]);
end;
end;
Delphi - .....................................
SetString Fonksiyonu (String Yakalama Usulleri)
PChar Tipindeki bir stringin solundan karakter alıp string tibindeki bir
değişkene atamak için kullanılır.
Kullanımı : SetString(var s: string; buffer: PChar; len: Integer);
Örnek :
Uses System;
procedure TForm1.Button1Click(Sender: TObject);
var
s1: PChar;
s2: string;
begin
s1 := 'PChar tipindeki bir stringin solundan karakter koparma';
SetString(s2, s1, 10);
ShowMessage(s2);
end;
Sonuç : PChar tipi
Delphi - .....................................
SoundEx Fonksiyonu (String Yakalama Usulleri)
(Açıklama kısmı Marco Cantunun Delphi 7 Kitabından ve StrUtils Unitinden
Alınmıştır.)
Açıklama : İsimleri yazılışlarına göre değil, okunuşlarına göre karşılaştıran
bir algoritmadır. Bu algoritma her kelimenin okunuşu için bir sayı hesaplar. Bu
şekilde söz konusu sayıları hesaplayarak iki adın benzer şekilde okunup
okunmadıklarını belirlene bilinir. Bu sistem 1880 yılında ilk kez Amerika
Birleşik Devletleri Nüfus Dairesi tarafından uygulanmış ve 1918 yılında patenti
alınımıştır. Patent Numarası (US1261167 & US1435663). Ancak daha sonra kamunun
kullanımına açılmıştır. SoundEx Adları bir harf ve üç rakamdan oluşan dört
basamaklı bir koda dönüştüren bir indexleme sistemidir. İstendiği taktirde bu
kod uzunluğu artırılabilinir.
Bu algoritma http://www.nara.gov/genealogy/coding.html adresinde
ayrıntılı olarak açıklanmıştır.
Kullanımı : SoundEx(const AText: string; ALength: TSoundExLength = 4): string;
Örnek:
Uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
s1: PChar;
s2: string;
begin
s1 := 'Michel';
S2 := Soundex(s1);
ShowMessage(s2);
end;
Delphi - .....................................
SetCurrentDir Fonksiyonu (Dosya Yönetim Usülleri)
Bu fonksiyon dizin degistirmeye yarar. eğer dizin yoksa geriye false döner.
Örnek:
if Createdir ('c:windows') = False then
showmessage ('Dizin Bulunamadı');
Delphi - .....................................
RenameFile Fonksiyonu (Dosya Yönetim Usülleri)
eskiad parametresi ile verilen dosyanın ismini yeni ad parametresi ile verilen
isme cevirir. eski ad ile yeni adın kullanıldığı sürücü veya dizinler farkli
ise dosya taşınır. geri dönen değer false ise işlem başarilamamıştır.
(Aynı isimli dosya olabilir veya dosya öznitelikleri uygun değildir.)
Delphi - .....................................
RemoveDir Fonksiyonu (Dosya Yönetim Usülleri)
bu fonksiyon verilen dizini silmeye yarar. eğer dizin silinememişse geriye false
olarak döner. bu fonksiyonda dizinin boş olması gerekir.
Örnek :
if Removedir ('c:gecici dizin') = False then
Showmessage ('Dizin Silindi');
Delphi - .....................................
GetDir Prosedürü (Dosya Yönetim Usülleri)
sürücü no parametresi ile verilen sürücüdeki aktif dizini(0: aktif sürücü,1:A,2:B...)
dizin parametresi ile geri dönderiri.
Delphi - .....................................
GetCurrentDir Fonksiyonu (Dosya Yönetim Usülleri)
aktif dizini ögrenmek için bu dizin kullanılır. fonksiyonda aktif dizin geriye
string olarak döner
Örnek :
Showmessage ('Aktif Dizin' + GetCurrentDir);
Delphi - .....................................
ForceDirectories Fonksiyonu (Dosya Yönetim Usülleri)
bu fonksiyon tek seferde birden fazla alt dizin oluşturabilir.
bu dizin için uses satırına FILECTRL eklenmelidir.
Örneğin: c:oyunaraba dizini altina rally isimli bir dizin oluşturmak için
ForceDirectories ('c:oyunarabarally'); yazmamız yeterli.
Delphi - .....................................
FindNext Fonksiyonu (Dosya Yönetim Usülleri)
ismi verilen dosyayı verilen dizinlerde arar, bulursa dosyanın yolunu ve ismin
bulamazsa boş stringi geri gönderir. aranması gereken dizinler araya ';' işareti
konarak ikinci parametre ile belirlenir.
bu fonksiyon verilen dizinlerde dosyayı arar ve ilk bulduğu dosyayı bildirir.
ayrıca dosya isminde joker karakterler (?.*) kullanılırsa o şartlara uyan dosyayı
arar, bulduğunda tam ismini degil joker karakterlerle belirtilmiş halini verir.
eğer tek bir dosyayı değil de verilen dosya adına uyan bütün dosyalar öğrenilmek
isteniyorsa findfirst ve findnext fonksiyonları kullanılmaktadır.
findfirst fonksiyonu bir kere kullanılır ve ilk şartlara uyan ilk dosya kullanılır.
şartlara uyan ikinci dosyayı öğrenmek için findnext fonksiyonu kullanılarak yapılır.
Delphi - .....................................
FindFirst Fonksiyonu (Dosya Yönetim Usülleri)
ismi verilen dosyayı verilen dizinlerde arar, bulursa dosyanın yolunu ve ismin
bulamazsa boş stringi geri gönderir. aranması gereken dizinler araya ';' işareti
konarak ikinci parametre ile belirlenir.
bu fonksiyon verilen dizinlerde dosyayı arar ve ilk bulduğu dosyayı bildirir.
ayrıca dosya isminde joker karakterler (?.*) kullanılırsa o şartlara uyan dosyayı
arar, bulduğunda tam ismini degil joker karakterlerle belirtilmiş halini verir.
eğer tek bir dosyayı değil de verilen dosya adına uyan bütün dosyalar öğrenilmek
isteniyorsa findfirst ve findnext fonksiyonları kullanılmaktadır.
findfirst fonksiyonu bir kere kullanılır ve ilk şartlara uyan ilk dosya kullanılır.
Delphi - .....................................
FileSetAttr Fonksiyonu (Dosya Yönetim Usülleri)
verilen dosyanın özniteliklerini attribute parametresi ile belirlenen özelliklere
ayarlar. burada attribute parametresinin alacağı değerler yukarıdaki tablodaki
(FileGetAttrdeki tabloda var olan değerler) gibidir.
dosyaya birden fazla attribute özelliğini vermek için bu değerler toplanmalıdır.
örneğin hem readonly hemde system özelliğini vermek için attribute parametresi
faReadOnly +faSystem şeklinde kullanılır. fonksiyondan geriye dönen değer 0
değilse işlem başarılamamıştır
Delphi - .....................................
FindClose Prosedürü (Dosya Yönetim Usülleri)
ismi verilen dosyayı verilen dizinlerde arar, bulursa dosyanın yolunu ve ismin
bulamazsa boş stringi geri gönderir. aranması gereken dizinler araya ';' işareti
konarak ikinci parametre ile belirlenir.
bu fonksiyon verilen dizinlerde dosyayı arar ve ilk bulduğu dosyayı bildirir.
ayrıca dosya isminde joker karakterler (?.*) kullanılırsa o şartlara uyan dosyayı
arar, bulduğunda tam ismini degil joker karakterlerle belirtilmiş halini verir.
eğer tek bir dosyayı değil de verilen dosya adına uyan bütün dosyalar öğrenilmek
isteniyorsa findfirst ve findnext fonksiyonları kullanılmaktadır.
findfirst fonksiyonu bir kere kullanılır ve ilk şartlara uyan ilk dosya kullanılır.
şartlara uyan ikinci dosyayı öğrenmek için findnext fonksiyonu kullanılarak yapılır.
en sonunda ise findclose fonksiyonu kullanılarak findfirst tarafından ayrılan
belleğin boşaltılamsı sağlanmalıdır.
Delphi - .....................................
FileSearch Fonksiyonu (Dosya Yönetim Usülleri)
ismi verilen dosyayı verilen dizinlerde arar, bulursa dosyanın yolunu ve ismin
bulamazsa boş stringi geri gönderir. aranması gereken dizinler araya ';' işareti
konarak ikinci parametre ile belirlenir.
bu fonksiyon verilen dizinlerde dosyayı arar ve ilk bulduğu dosyayı bildirir.
ayrıca dosya isminde joker karakterler (?.*) kullanılırsa o şartlara uyan dosyayı
arar, bulduğunda tam ismini degil joker karakterlerle belirtilmiş halini verir.
eğer tek bir dosyayı değil de verilen dosya adına uyan bütün dosyalar öğrenilmek
isteniyorsa findfirst ve findnext fonksiyonları kullanılmaktadır.
Delphi - .....................................
FileGetAttr Fonksiyonu (Dosya Yönetim Usülleri)
verilen dosyanın öz nitelikleri hakkında bilgi verir.fonksiyondan geri dönen
değerler ve anlamları şöyledir.
DEĞER ANLAMI
FaReadOnly Yalnız okunabilir (Read Only)
FaHidden Gizli (Hidden)
FaSysFile Sistem (System)
FaVolumeID Dosya veya dizin değil disk etiketi (volume label)
FaDirectory Dizin (Directory)
FaArchive Arşiv
Delphi - .....................................
FileExists Fonksiyonu (Dosya Yönetim Usülleri)
İsmi Verilen dosya diskte varsa True Değeri dönderir.
herhangi bir dosyayı açmadan önce, hata oluşmaması için bu fonksiiyonla dosyanın
olup olmadığı kontrol edilmelidir.
Örnek:
İf Not FileExists ('config.cfg') then
showmessage ('Ayar Dosyası Bulunamadı');
Delphi - .....................................
FileDateToDateTime Fonksiyonu (Dosya Yönetim Usülleri)
kitabın dizinindeki ismi FileDateToDateTime fakat kitabın içinde geçen isim
DateTimeToFileDate Aynımı syf 814 göz at.
FileDateToDateTime: Delphi formatındaki tarihi dos formatına çevirir.
burada fonksiyonlara giren ve çevrildikten sonra dönen tarih bilgisi string tipte değil
Delphide kullanılan tiptedir. Erkanda gösterilmeden önce DateToStr Fonksiyonu
ile stringe çevrilemlidir.
Delphi - .....................................
FileCreate Fonksiyonu (Dosya Yönetim Usülleri)
bu fonksiyon dosya erişim haklarını unix tarzında belirtebileceginiz, aşırı
yüklenmiş yeni bir sürüme sahiptir.
Delphi - .....................................
FileAge Fonksiyonu (Dosya Yönetim Usülleri)
Dosyanın oluşturulma tarihini LongInt Tipindeki bir sayı ile bildirir. bu sayı
FileDateToTime fonksiyonu ile Dos formatından Delphi Formatına çevrildikten sonra
DateToStr Fonksiyonu ile Stringe çevrilip görüntülenebilir.
Eğer dosya yoksa geriye -1 Değeri Döner
Örnek:
Label1.Caption := DateToStr (FileDateToTime(FileAge(('c:Windowswin.com'))));
Delphi - .....................................
File name Sabiti (Dosya Yönetim Usülleri)
FileName Özelliği ile Çalınacak(media file) veya kaydedilecek dosyanın
adı belirlenir.
Delphi - .....................................
DiskSize Fonksiyonu (Dosya Yönetim Usülleri)
Numarası verilen diskin toplam kapasitesini verir. Diskno Parametresi DiskFree
Fonksiyonundaki gibidir. Yine geri dönen değer (-1) ise yanlış numara verilmiştir.
Örnek:
var i:integer;
Begin
memo1.clear;
for i:= 1 to 28 do
if DiskFree(i) <> -1 then
memo1.lines.add (chr(i+64)+': ';
memo1.text:= Memo1.text + Floattostr(DiskSize(i)/1048576,ffFixed,10,2) +
'MB Kapasite';
Memo1.text:= memo1.text + '>>>>';
Memo1.text:= Mome1.text + FloatToStrf (DiskFree(i)/1048576,ffFixed,10,2)+
'MB Boş'
end;
Delphi - .....................................
DiskFree Fonksiyonu (Dosya Yönetim Usülleri)
Numarası verilen disktek boş alanı verir.
DiskNo : Herhangi sürücüdeki boş yerin öğrenileceği bu parametreye
Verilen sayı ile belirlenir. Disket numarası 1 için a, 2 için b,
3 için c, ... ve 0 için şu anki aktif sürücüyü belirler
Geri Dönen değer diskteki boş alanı verir. Bu değer -1 ise numarası verilen
sürücü sistemde mevcut değildir.
Örnek :
var i:integer;
Begin
for i:= 1 to 28 do
if DiskFree(i) <> -1 then
memo1.lines.add (chr(i+64)+'; '+inttostr (DiskFree(i)div 1048576)+ ' MB boş';
end;
Delphi - .....................................
DirectoryExists Fonksiyonu (Dosya Yönetim Usülleri)
Bu Fonksiyonla Bir Dizinin olup Olmadiği öğrenilebilir. İsmi verilen dizin varsa
True Yoksa False Değeri Döner.
Bu Fonksiyonu kullanabilmek için uses satırına FileCTRL satırı eklenmelidir.
dizin parametresine ta yol verilirse o yola, verilmezse aktif dizin altındaki
yola bakılacaktır.
Örnek:
if not DirectoryExists ('c:Windows') then
Showmessage ('Windowms Dizini Bulunamadı');
Delphi - .....................................
DeleteFile Fonksiyonu (Dosya Yönetim Usülleri)
Verilen dosyayı diskten siler. eğer dosya yoksa veya silinemediyse geriye False
değeri döner
Örnek:
DeleteFile ('c:docGereksiz.doc');
Delphi - .....................................
CreateDir Fonksiyonu (Dosya Yönetim Usülleri)
Bu fonksiyon verilen dizini oluşturmaya yarar. eğer dizin oluşturulamamışsa geriye
False Döner.
Örnek:
if CreateDir ('c:Gecicidizin')= False then
showmessage ('Dizin oluşturulamadı');
else
Showmessage ('Dizin oluşturuldu');
Delphi - .....................................
CloseFile Prosedürü (Dosya Yönetim Usülleri)
Bu Fonksiyonla oluşturulan dosya kapatılır.
Delphi - .....................................
ChDir Prosedürü (Dosya Yönetim Usülleri)
bu fonksiyon aktif dizini değiştirmek için kullanılır.
Örnek: Chdir ('c:windows');
if Ioresult <> 0 then
Showmessage ('Windows dizinine geçilemedi');
Delphi - .....................................
AssignFile Prosedürü (Dosya Yönetim Usülleri)
delphide dosyalara ismiyle degil dosya tipinde tanımlanmış değişkenlerle ulaşılır.
dosya tipindeki bu değişkenle dosya arasındaki bağlantıyı ise assingfile fonksiyonu
yapar.
AssingFile; Dosya_Deg ile dosya tipinde tanımlanmış değişkenin dosyaadi ile verilen
dosyayı temsil etmesini sağlar. bu işlem o dosyanın kullanıma açılmasını sağlamaz.
Delphi - .....................................
ChangeFileExt Fonksiyonu (Dosya İsmi Komutları)
dosya parametresi ile verilen isimdeki dosya adındaki uzantıyı yeni uzantı ile
değiştirir. bu işlem disk üzerindeki dosya üzerinde herhangi bir değişime
sebep olmaz. sadece dosya değişkenindeki dosya uzantısı verilen uzantı ile
değiştirilerek sonuç geri gönderilir.
Örnek:
edit1.Caption:= ChangeFileExt('c:windowsww.com','.exe');
Gerçek değişim için ise RenameFile kullanılır.
Delphi - .....................................
