delphi - Kodmek

14 Nisan 2020by MeKProgramlama

Android’de Özel Yazı Font Kullanma – Delphi

Delphi firemonkey üzerinde android bir proje tasarlarken kendi özel fontumuzu kullanmak için yapmamız gerekenler

1. Örneğin eklemek istediğmiz yazı fontu GillSansUltraBold.ttf ise, bunu proje dosyamıza kopyalayıp Deployment’dan projemize ekleyelim. Yolunu assets\internal\ verelim.
2. Project —> Add to Project menüsünden FMX.FontGlyphs.Android.pas (C:\Program Files (x86)\Embarcadero\Studio\18.0\source\fmx) dosyasını projemize ekleyelim. Bu dosyayı proje dosyamıza kaydedelim.
FMX.FontGlyphs.Android‘de iken,
3. Uses’a System.IOUtils ekleyelim.
4. TAndroidFontGlyphManager.LoadResource; procedure satırını bulalım.
5. FontFile: string; değişkenini ekleyelim.
6. Typeface := TJTypeface.JavaClass.create(FamilyName, TypefaceFlag);  satırını bulup aşağıdaki satırlar ile değiştirelim.
FontFile := TPath.GetDocumentsPath + PathDelim + CurrentSettings.Family + ‘.ttf’;
if FileExists(FontFile) then
   Typeface := TJTypeface.JavaClass.createFromFile(StringToJString(FontFile))
   else
     Typeface := TJTypeface.JavaClass.Create(FamilyName, TypefaceFlag);
7. Fontunda değişiklik yapmak istediğiniz nesnenin,
  Properties–>TextSettings–>Font–>Family kısmına Deployment’dan eklemiş olduğunuz font dosyasının adını yazalım. Örneğin; GillSansUltraBold eklemiştik, bunu aynen Family’e yazıyoruz.
Derleme işlemi yaptığımızda mobilde (android) font değişmiş olacak.

Yukardaki işlemler sayesinde android projenize istediğiniz fontu ekleyebilirsiniz.

13 Ocak 2020by MeKProgramlama

Delphi Dizi Fonksiyonları

Tüm programlama dillerinde olduğu gibi en sık kullanılan tiplerden biri hiç şüphesiz dizi nesneleridir dizi nesneleri ile birden fazla veriyi tek bir değişken üzerinde gruplayarak depolayıp ihtiyaç duyulduğunda döngüler kurarak veriler üzerinden işlemler yapmaya yarar. Şimdi Delphi dilinde Dizi fonksiyonlarının kullanımına bakalım

10 Elemanlı Dizi Değişkeni Tanımlama

var dizi : Array[0..9] of integer;

Sabit Uzunluklu Dizi Değişkenlerinin İlk Değerlerini Atama

const
dizi:Array[0..2] of integer=(10,20,30);
//integer sabit array tanımlaması yapıldı ve değerleri atandı.

İki boyutlu dizi tanımlama

var
ikib_dizi:Array[0..2] of Array[0..1] of Integer;
 
//Sonuç olarak bu şekilde bir dizi ortaya çıkmıştır.
ikib_dizi[0,0] := 'test00';
ikib_dizi[0,1] := 'test01';
ikib_dizi[1,0] := 'test02';
ikib_dizi[1,1] := 'test03';
ikib_dizi[2,0] := 'test04';
ikib_dizi[2,1] := 'test05';

Dinamik Delphi Array Tanımlama

var
  dinamikdizi:Array of integer;
 
//Program içerisinde dizi değişkeninin boyutunu belirleme.
 
SetLength(dinamikdizi,10);

Görüldüğü gibi dizileri kullanmak için bir çok yol bulunmaktadır. Bunların bazılarını sizler için derledik umarım faydalı olabilmişizdir.