Virgülle yazılmış kelimeleri ayıklama

[Sawyer]

Merhabalar,

degisken := 'kelime1,kelime2,kelime3,kelime4'

gibi bir stringi atıyorum degisken[2} dediğim zaman kelime2 yazmasını istiyorum. For ve copy ile yapılabilir ama çok hantal olacağını düşünüyorum, basit bir fonksiyon gibi birşey varsa yardımcı olursanız sevinirim.

Teşekkür ederim.

[vkamadan]

Merhabalar,
Benim bu gibi durumlarda başvurduğum pratik bir çözüm var, Listelerden yararlanmak!

Kod: Tümünü seç

function Parcala(pParcalanacakString: String;
  pAyirac: Char): TStringList;
begin
   Result := TStringList.Create;
   Result.Delimiter := pAyirac ;
   Result.DelimitedText := pParcalanacakString;
end;

Kullanım örneği ;

Kod: Tümünü seç

procedure Kullan;
var
 i: Integer;
 Liste : TStringlist;
begin

 try
  Liste := Parcala('volkan,semih,ali,veli' ,',');

  for i  := 0 to Liste.Count - 1 do
      begin
         ShowMessage( Liste[i] );
      end;

 finally
  liste.free;
 end;


end;

Kolay gelsin.

[Sawyer]

İşime yaradı, teşekkür ederim.