pos komutunun kullanımı _?

[purple_]

ben bi metinin içide geçen sözçükleri sorgulama işlemi yapmak istiyorum
function TForm1.cizzz (s:widestring) : boolean ;
var
x: integer;
begin
x:=pos('DELETE',s);
if x>0 then
begin
edit1.Text:='ARADIĞINIZ KELİME BULUNDU! - Pozisyon :'+inttostr(x);
result:=True;
end
else
begin
edit1.Text:='ARADIĞINIZ KELİME BULUNAMADI! - Pozisyon :'+inttostr(x);
result:=False;
end;
end;

yaptım ama sadece DELETE için gecerli bu işlem
ben birçokk kelime için yapmak istiyorum
ne yapamamm lazımm yardımm edinn lütfenn :____!!!!!

[miskin]

Pos funktionu icin F1 e basmak yeterli, orda detayli bir sekilde aqciklamis,

Procedur PosAciklama;
Var
Aranankelime: string;
NormalText: string;
Mesaj : string;
Pozisyon: integer;

begin
ArananKelime := 'As';
NormalText := 'Hani Aslinda cevabi yukarda verdim ama, as';
Pozisyon := pos(ArananKelime,NormalText);
Mesaj := Format(' NormalTextin icerinde arananTextin ilk göründügü index %d ' [Pozisyon]';
showmessage(mesaj);
end;

miskin


showmessage(' Formatstring intToString()

[ender_arslanturk]

Merhaba,

Pos komutu : Birinci parametre ile girilen değer ile , ikinci parametre girilen değeri karşılaştırmak için kullanılan bir fonksiyondur. Saşyet iki parametre farklı değerler içeriyorsa sonuç 0 olacaktır.

mesela ;

var
text:Ansistring;
i:integer;
begin
text:=edit1.text;
i:=pos('merhaba',text);
if i=0 then
ShowMessage('.... ....');
end;

şeklinde bu ara aramıza hoşgeldin....

Saygılarımla,

[ender_arslanturk]

Merhaba,

Çalışmalarında Başarılar ....


Ö.M. atmışsın ama yetkim yok ayrıca mesajda sorduğun soruyu forumda sorabilirsen herkezin ortak bilgi paylaşımı doğrultusunda sonuç bulabilirsin.

Sorduğun soruda yanlış anlamadım ise cümle içinde 4 adet kelimenin değişmesi lazımmış. Eğer farklı kelimeler ise sen de 4 kere pos komutu kullanabilirsin

Saygılarımla,

[husonet]

Merhaba,

Çalışmalarında Başarılar ....


Ö.M. atmışsın ama yetkim yok ayrıca mesajda sorduğun soruyu forumda sorabilirsen herkezin ortak bilgi paylaşımı doğrultusunda sonuç bulabilirsin.

Sorduğun soruda yanlış anlamadım ise cümle içinde 4 adet kelimenin değişmesi lazımmış. Eğer farklı kelimeler ise sen de 4 kere pos komutu kullanabilirsin

Saygılarımla,

Özel Mesaj ile soru sormak Forum kurallarına aykırıdır. İmzamdaki Forum Kurallarını okumanızı rica ederim.

Kurallara uyalım

[ender_arslanturk]

Merhaba ,

Hüseyin abi forum kurallarına aykırı olduğunu biliyorum o sebeple arkadaşı uyarmak istedim ama olan bana oldu Neyse arkadaş daha yeni o sebep ile ö.m. daki mesajı ben geçtim buraya

Çalışmalarınızda başarılar,

Yanlışım oldu ise tekrar özür dilerim

Saygılarımla,