Editteki ilk kelimeyi alma

[barissagir]

Merhaba arkadaşlar 

Editteki yazının ilk kelimesini nasıl alabilirim.

[engerex]

Merhaba,

Ayrıt edici özellik olarak kelimeler arasında boşluk bulunur. Pos komutu ile ilk boşluğun konumunu alın. Sonrasında LeftStr veya MidStr ilk konumdan boşluk konumuna kadar olan karakterleri alın.

İyi çalışmalar.

[barissagir]

Cevap için teşekkür ederim. Pos haricinde direkt bi komut var mı diye sormuştum.

[Yasemin]

(06-01-2021, Saat: 13:03)barissagir Adlı Kullanıcıdan Alıntı: Merhaba arkadaşlar 

Editteki yazının ilk kelimesini nasıl alabilirim.

Merhaba,

String parçalama işlemini bu şekilde yapabilirsiniz.

procedure TForm1.Button1Click(Sender: TObject);
var
Parcala:TArray<string>;
Yazi:string;
 I: Integer;
begin
Edit1.Text:='DelphiCana sorulan sorunun cevabı';
Yazi:=Edit1.Text;
  Parcala:= yazi.Split([' ']);
  for I := Low(Parcala) to HIGH(Parcala) do
  begin
   Memo1.Lines.Add(parcala[I]); 
  end;
 
end;

İyi Çalışmalar

[woywod]

(06-01-2021, Saat: 13:03)barissagir Adlı Kullanıcıdan Alıntı: Merhaba arkadaşlar 

Editteki yazının ilk kelimesini nasıl alabilirim.

procedure TForm1.FormCreate(Sender: TObject);
var
liste:TStrings;

begin
liste:=TStringList.Create;
edit1.Text:='hesey guzel olacak';

ExtractStrings([' '], [], PChar(Edit1.Text),liste);
Memo1.Lines.Add(liste.Text)

//Liste elemanları  diziyi ifade edecektir:

Liste[0] = 'hesey';
Liste[1] = 'guzel';
Liste[2] = 'olacak';
end;

[PROGRAMADOR35]

procedure TForm3.FormCreate(Sender: TObject);
var
 liste:TStrings;
begin
 liste:=TStringList.Create;
 edit1.Text:='hesey guzel olacak';

 ExtractStrings([' '], [], PChar(Edit1.Text),liste);
 Memo1.Lines.Add(liste.Text);

 //Liste elemanları  diziyi ifade edecektir:

 Liste[0] := 'hesey';
 Liste[1] := 'guzel';
 Liste[2] := 'olacak';

 ShowMessage(liste[0]);
end;

[Halil Han BADEM]

(06-01-2021, Saat: 13:10)barissagir Adlı Kullanıcıdan Alıntı: Cevap için teşekkür ederim. Pos haricinde direkt bi komut var mı diye sormuştum.

Delimited kullanın. En kısa çözüm o gibi duruyor.

[berk06]

İlk kelime için;

metin.Splite([' '])[0]

En kısa yöntem sanırım.

[barissagir]

Yorumlar için çok teşekkür ederim.