String Fonksiyonu Nedir?

[CinAnka]

s.a.

Elimde 5 kelimeden oluşan bir cümle var. Örneğin:

Ayşe bugün okula yürüyerek gitti.

Ben bu cümlenin ayrı ayrı ikinci ve üçüncü kelimelerini almak istiyorum yani

bugün
okula

kelimelerini...

Bayağı arama yaptım, ama ya sağdan kesiyor fonksiyonlar, ya soldan... bir kısmı kesip geri kalan stringi nasıl bulacağım?

Teşekkür ederim

[mussimsek]

Copy ve Pos fonksiyonları işini görür. Forumda aratarak ve Delphi Help'ten örnek vs. ulaşabilirsin.

Kolay gelsin.

[CinAnka]

çok ilginç

Kod: Tümünü seç

var 
  no:integer; 
  bosluksuz:string; 
begin 
  no:=ansiPos(' ',edit1.text); 
  if no>0 then y:=Copy(edit1.text,1,no-1); 
  Showmessage(bosluksuz); 
end; 

kodunu çalıştırdığımda kabul etmiyor program.
hata: [Error] ansipos.pas(43): '.' expected but '(' found

?

[cemarik]

Kod: Tümünü seç

var
  I:Integer;
  aStr : string;
begin
  aStr := Edit1.Text;
  // Bu aralardaki boşlukla ayrılmış sözcüğü
  while Pos(' ',aStr)>0 do
  begin
     aStr := Trim(aStr);
     ShowMessage(Copy(aStr,0,Pos(' ',aStr)));
     Delete(aStr,1,Pos(' ',aStr));
  end;
  ShowMessage(aStr);// Bu da sondaki boşlukla ayrılmış sözcüğü alıyor

[selimr]

Kod: Tümünü seç

var
  kelimeler : array [1..5] of string;
  i,j: integer;     

begin
 j:=1;
   for i:= 1 to edit1.GetTextLen do
       if copy(edit1.text,i,1)<>' ' then
       kelimeler[j]:= kelimeler[j]+ copy(edit1.text,i,1) else j:=j+1;
end;    

kelimeler[1] --> birinci kelime
kelimeler[2] --> ikinci kelime
..
..

şeklinde,

[CinAnka]

hepiniz harikasınız, hallettim sonunda.... teşekkür ederim...