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’




One comment

  • onur yuksel

    merhaba

    ben bir metni bosluk tusunu baz alarak bolmek istiyorum

    ornegin mavi yesil kirmizi siyah

    dizi[0]:=mavi
    dizi[1]:=yesil

    seklinde ama metni bolemiyorum yardimci olurmusunuz delphi ile olunca yoruyor

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir