Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Editteki ilk kelimeyi alma
#1
Merhaba arkadaşlar 

Editteki yazının ilk kelimesini nasıl alabilirim.
Cevapla
#2
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.
Ağlarsa kablosuz ağlar, gerisi yerel ağlar...
Cevapla
#3
Cevap için teşekkür ederim. Pos haricinde direkt bi komut var mı diye sormuştum.
Cevapla
#4
(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
KOTO Teknik 10. sınıf öğrencisiyim.
Nextion HMI, Arduino ve Delphi FMX ile ilgileniyorsanız Yotube Kanalım size katkı sağlayabilir.


Cevapla
#5
(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;
Cevapla
#6
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;
Cevapla
#7
(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.
Yazılım Topluluğumuz -> Tıklayın
Kişisel Tanıtım Sitem -> Tıklayın
20 y/o, sadece öğrenmeye odaklanmış, insancık..
Cevapla
#8
İlk kelime için;

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

En kısa yöntem sanırım.
Cevapla
#9
Yorumlar için çok teşekkür ederim.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Gmail OAuth Mail Alma resatarikan 5 357 10-01-2021, Saat: 22:21
Son Yorum: resatarikan
  Problem - ZKTeco Cihazlardan Anlık Veri Alma mad85 14 2.118 18-12-2020, Saat: 17:34
Son Yorum: engerex
  Kredi Kartı İle Ödeme Alma hi_selamlar 53 13.832 18-12-2020, Saat: 00:12
Son Yorum: nguzeller
  Registryden exe yolunu alma Altıner 9 454 16-12-2020, Saat: 17:48
Son Yorum: Altıner
  Inform AP modeli Ups'den veri alma, bağlantı sağlama 41linea41 0 399 15-07-2020, Saat: 09:52
Son Yorum: 41linea41



Konuyu Okuyanlar: 1 Ziyaretçi