String ARama

[senerelmas]

MErhabalar
Bir String İçinde bir harfi aramak istiyorum fakat aşağıdaki kod ile yaptığımda o harf içinde varsa da yoksada 1 değeri dönüyor


ShowMessage(inttostr(AnsiCompareText('V',Edit1.Text)));

yardımcı olabilerseniz sevinirim...

[Lost Soul]

Kod: Tümünü seç

Showmessage(inttostr(AnsiPos('V',Edit65535.Text)));

Kod: Tümünü seç

VELİ: 1
AVLU: 2
RÜKNETTİN: 0
DAVALI: 3

[senerelmas]

ben karaterin bulunduu yeri değil varmı yokmu onu kontrol ettirmek istiyorum...

[Lost Soul]

0 dan büyük değer var demektir.

[senerelmas]

tşk ederim sonrada denedim oldu

[RamazanG]

Tanımlama: function AnsiCompareStr(const S1, S2: string): Integer;

Birinci parametreyle girilecek olan metni, ikinci parametrede aramak için
kullanılan bir fonksiyondur. Şayet ilk parametre ikinci parametrenin içerisinde
bulunuyorsa sonuç pozitif, bulunmuyorsa negatif, iki metin aynı ise sıfır değeri
dönecektir.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
metin,sonuc:AnsiString;
sayi:Integer;
begin
metin:='Center';
sonuc:='Prestige Education Center';
sayi:=AnsiCompareStr(metin,sonuc); //içinde varmı
if sayi>0 then
Form1.Caption:='İçinde Yok'
else if sayi<0 then
Form1.Caption:='İçinde Var' //burası işler
else
Form1.Caption:='İkisi Aynı';
end;

Fonksiyonun kullanımında küçük büyük harf duyarlılığına dikkat etmelisiniz.
Aksi takdirde yanlış sonuçlar yaratabilirsiniz. Center metnini C olarak yazarsanız C harfini metnin içinde arar.