Cümleyi kelimelere ayırmak

[Abrak]

Başlıktanda anlaşılacağı gibi cümleyi kelimelere ayırmak için ufak bir kod yazdım fakat buseferde kafama acaba kulağı terstenmi tuttum diye bir oluştu tabi her yiğidin ayrı bir yoğurt yeme tarzı var diyeceksiniz ama genede bir bakın bakalım kulağı terstenmi tutmuşuz

Kod: Tümünü seç

var
i:integer;
metin:string;
met:array[1..25] of string;
begin
metin:= edit1.Text;
i:=1;
if pos(' ',metin) <> 0 then begin
repeat
met[i] := copy(metin,1,pos(' ',metin));
delete(metin,1,pos(' ',metin));
richedit1.Lines.Add('met' + inttostr(i) + ' ' + met[i]);
inc(i);
until pos(' ',metin) = 0;
end;
met[i]:= metin;
richedit1.Lines.Add('met' + inttostr(i) + ' ' + met[i]);
end;

Not: bu konu ile ilgili kod göremedim o yüzden faydalı olur belki arayan olursa

[mege]

* kodunuzu [ code ] tagı içine alın anlaşılmıyor
* sorumu soruyorsunuz?, yok değilse fonksiyon haline getirin makaleler kısmına atın.
* yok oda değilse nedir
* mesajınızı düzeltmek için mesajın sağ üstteki edit e tıklayabilirsiniz.

[futbolcu]

Merhaba arkadaşlar,
bu kodun yeri galiba burarsı değil ama benim işime yarayacak gibi.
Admin yerini değiştirmeden arşivledim.

Bu arada Mege hocama katılıyorum, fonksiyon haline getirilip makale böümüne de konabilir.

[Abrak]

* kodunuzu [ code ] tagı içine alın anlaşılmıyor
* sorumu soruyorsunuz?, yok değilse fonksiyon haline getirin makaleler kısmına atın.
* yok oda değilse nedir
* mesajınızı düzeltmek için mesajın sağ üstteki edit e tıklayabilirsiniz.

Haklısınız;
* İçinde kullandığım yöntem kısa ve kullanışlımı sorusu içerdiği için makale kısmına uymadığını düşündüm;
* Kullandığım yöntem dışında daha başka fikir alışverişi idi amacım;
* Gerekli düzeltmeyi yaptım ;

İçimden geldi bu başlık ama uygunsuz veya gereksiz bir başlık/konu olduğunu düşünüyorsanız silebilirsiniz sakıncası yok benim için teşekkürler

[husonet]

Şayet yazdığınız bir koddan performans alıyorsanız Kod u modifiye etmek anlamsız olur. sadece kodlama yaparken okunabilirliğe dikkat edin yeter.

Kolay Gelsin...

[Abrak]

Şayet yazdığınız bir koddan performans alıyorsanız Kod u modifiye etmek anlamsız olur.
Kolay Gelsin...

cahilliğimi bağışlayın modifiye etmek anlamsız olur ifadesini biraz açabilirseniz anlamadan geçmemiş olurum konuyu

[husonet]

Şayet yazdığınız bir koddan performans alıyorsanız Kod u modifiye etmek anlamsız olur.
Kolay Gelsin...

cahilliğimi bağışlayın modifiye etmek anlamsız olur ifadesini biraz açabilirseniz anlamadan geçmemiş olurum konuyu

Gereksiz yere kodu düzenlemeye çalışmak manasında yazmıştım.

Kolay Gelsin...

[Abrak]

Tamam bende değiştirilebilir kodlar kullanmak anlamsız olur olarak algılamıştım
Teşekkür ederim

[algorian]

Kod: Tümünü seç

Function kelimelereAyir(s : string) : TStringList;
var
  sonuc : TStringList;
  i : integer;
  kelime : string;
begin
  sonuc := TStringList.Create();
  kelime := '';
  
  for i := 1 to length(s) do 
   if s[i] <> ' ' then
     kelime := kelime +s[i]
   else
     begin
       sonuc.add(kelime);
       kelime := '';
     end;
  result := sonuc;
end;

Örnek :

Kod: Tümünü seç

Listbox1.item := kelimelereAyir('me me me mer haba, merhaba');