Cümleden kelime ayırma işlemi...

[Biltes]

Arkadaşlar öncelikle kolay gelsin;
Yapmak istediğim olay bir cümleyi parçalamak istiyorum. Örnek vermek gerekirse AĞUSTOS-2009, HAZİRAN-2009 gibi cümleyi
AĞUSTOS
-
2009 gibi editlere ayrı ayrı yazmak. Bu tarz bir cümleyi nasıl parçalayabiliriz. yardımlarınız için şimdiden çok tşk ederim. İyi çalışmalar dilerim...

[sabanakman]

Bu işlem için

Kod: Tümünü seç

function CumleParcala(S:String;const Ayrac:String;const Liste:TStrings):Integer;
 procedure KelimeBulundu(const Kelime:String;const SiraNo:Integer);
 begin
   Liste.Add(Format('%d. kelime -> %s',[SiraNo,Kelime]));
   //Bulunan kelime burada elde edilir.
 end;
var i,LenAyrac,KelimeSiraNo:Integer;
begin
  Liste.Clear;
  KelimeSiraNo:=0;
  LenAyrac:=Length(Ayrac)-1;
  if LenAyrac>=0 then while S<>'' do begin
    i:=Pos(Ayrac,S);
    Inc(KelimeSiraNo);
    if i>0 then begin
      KelimeBulundu(Copy(S,1,i-1),KelimeSiraNo);
      Delete(S,1,i+LenAyrac);
    end else begin
      KelimeBulundu(S,KelimeSiraNo);
      S:='';
    end;
  end;
  Result:=KelimeSiraNo;
end;

gibi bir kod kullanılabilir. Burada önemli olan KelimeBulundu alt prosedürünün içinde elde edilen kelimelerin gerektiği şekilde kullanılmasıdır. Örnek kullanım ise "CumleParcala('HAZİRAN-2009','-',ListBox1.Items);" şeklinde olabilir. İyi çalışmalar.

[uparlayan]

Aşağıdaki sitede konu ile ilgili daha detaylı bilgi verilmiş, işine yarayacağını umuyorum

http://www.kavramca.com/index.php?k=9&t=Parse

kolay gelsin