Tag Archives: to

Delphi Stringi (Metni) Diziye Bölme – Split to Array

delphi_split_to_array

Aşağıdaki kod bloğu ile string ifadeyi istediğiniz karakterlerden bölerek diziye atabilirsiniz. Aşağıdaki örnek “hasan:hasandedeoglu.com:bilisim teknoloji:lerine dair sohbetler” metnini 4 elemanlı bir diziye bölecek ve elemanları “hasan”, “hasandedeoglu.com”, “bilisim teknoloji”, “lerine dair sohbetler” olacaktır.

program Project1;

{$APPTYPE CONSOLE}

uses
Classes;

var
List: TStrings;
begin
List := TStringList.Create;
try
ExtractStrings([‘:’], [], PChar(‘hasan:hasadedeoglu.com:bilisim teknoloji:lerine dair sohbetler’), List);
WriteLn(List.Text);
ReadLn;
finally
List.Free;
end;
end.

Liste elemanları istenilen diziyi ifade edecektir:

List[0] = ‘hasan’
List[1] = ‘hasandedeoglu.com’
List[2] = ‘bilisim teknoloji’
List[3] = ‘lerine dair sohbetler’




Android Programlama Ders 08 Öncesi Serbest Çalışma 02

Merhaba,

Önceki makalelerin tamamını okuduysanız ve biraz da programlama tecrübeniz varsa şuan ki bilgilerinizle bu bahsedeceğim 2. uygulamayı da yapabileceğinizi umuyorum.

Projenizde bir layout olacak, bir EditText olacak ve bir Button olacak. Butona basıldığında EditText değeri numeric değilse sıfırlacak, numericse sürekli bir artacak. Yani butona her basıldığında Text değeri sürekli 1 artırılacak.

Bu uygulama için gerekli birkaç ip ucu:

1. EditText’deki değer integer mi değil mi kontrolü yapan metod:

public static boolean isInteger(String str) {
try {
Integer.parseInt(str);
return true;
} catch (NumberFormatException nfe) {
return false;
}
}

2. String’i Integere dönüştürme:

Integer.parseInt(string)

3. Integer’i Stringe dönüştürme:

String.valueOf(Int)

Önceki makalelerde verilen bilgilere göre bu uygulamayı yapmak için kendinize 20dk zaman tanıyın. Yapamadığınız kısımları internette araştırabilirsiniz, bilmemek ayıp değil öğrenmemek ayıptır çekinmeyin. 20dk içerisinde yapamazsanız eğer buradan kaynak kodları indirebilirsiniz.