pos komutunun kullanımı _?
purple_26.07.2005 - 15:43:50
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 :____!!!!! Crying or Very sad Crying or Very sad
 
miskin26.07.2005 - 16:01:16
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_arslanturk26.07.2005 - 21:09:58
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_arslanturk27.07.2005 - 22:01:56
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 :D

Saygılarımla,
 
husonet27.07.2005 - 23:33:29
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 :D

Saygılarımla,


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

Kurallara uyalım Evil or Very Mad
 
ender_arslanturk28.07.2005 - 02:02:02
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,
 
NOT : Bu sayfa google'un siteyi indekslemesi içindir. www.delphiturkiye.com/forum/ adresini kullanınız!
1998-2006 www.delphiturkiye.com