Web Mahsülleri OfisiOfis yazılımcının kara gün dostudur!

Bölgesel dil ayarlarından kaynaklanan sorunları önleyebilmek için program çalışmaya başlarken küçük bir kontrol yapabilirsiniz. Örnek kodlar aşağıdaki gibidir.

var
Reg: TRegistry;

Reg:= TRegistry.Create;
Reg.RootKey:= HKEY_CURRENT_USER;
Reg.OpenKey(’\Control Panel\International’, False);  // regeditte istenilen konuma odaklanma

// Register kayıtlarını okuma işlemi
Read the rest of this entry »

Bölgesel dil ayarları seçeneğimiz bazen istemediğimiz şekilde değişebilir ya da biz farklı bir türde kullanmak zorunda kalabiliriz. Bu durumlarda float tipindeki verilerimizi sql veya benzeri veri tabanlarıyla ilişkilendirirken

‘.’ ve ‘,’ karekterleri arasındaki çevrimlerde sorun yaşayabiliriz. Veya string türündeki bir değişkenimizde istemediğimiz bir karekter olabilir (özellikle Türkçe - İngilizce uyumu için) . Bu gibi durumlarda karşılaşılacak sorunları önlemek için StringReplace metodunu kullanabiliriz. Ayrıca bu metod ile sadece bir karekter değil birden fazla karekteride aynı anda değiştirme imkanımız bulunmaktadır. Bu metodun kullanım şekli ;

StringReplace(metin,’değiştirmek istediğimiz ifade’,'yerine yazılacak ifade’,[rfReplaceAll, rfIgnoreCase]);

örnek kullanım şekli:

var
abc     :string;
mesaj :string;

abc:=’12,,34′;

mesaj:=StringReplace(abc,’,',’.',[rfReplaceAll, rfIgnoreCase]);
ShowMessage(mesaj); // görüntülenecek mesaj : 12..34

mesaj:=StringReplace(abc,’12′,’ab’,[rfReplaceAll, rfIgnoreCase]);

ShowMessage(mesaj); // görüntülenecek mesaj : ab,,34

Uygulama geliştirirken bazı anlarda bir text alanın istenilen bölümünü almak için parçalama işlemine başvurmamız gerekebilir. Delphi de bu işlemi copy metodu ile gerçekleştirebiliriz.

Copy metodunun çalışma şekli oldukça basit;

Copy(string ifade,parçalamaya kaçıncı karekterden başlanacak,kaç karekter alınacak)

örnek kullanım olarak:

var
abc     :string;
mesaj :string;

abc:=’1234′;
mesaj:=Copy(abc,1,1);
ShowMessage(mesaj);  // görüntülenecek mesaj : 1
mesaj:=Copy(abc,2,1);
ShowMessage(mesaj);  // görüntülenecek mesaj : 2
mesaj:=Copy(abc,3,2);
ShowMessage(mesaj); // görüntülenecek mesaj : 34