ignore nasil harf atlama

[sr1111]

merhaba...
memo da arama replace yapiyorum soyle bir sey yaptirmak istiyorum.
const yazdigim bir grup harfi gormemesini istiyorum nasil yapabilirim. veya farkli bir yol ile.

const
atla='îûswq'

yani yukaridaki harflerden bir kelimede gecerse onlari gormesin istiyorum.
örnegin:
tawla arattigimda tala bulmali gormeli.
kasma arattigimda kama gormeli

ayni zamanda terside olmali kama arattigimda kasma, kawma, kaqma gibi kelimleri de bulmali.

yardimci olursaniz sevinirim.

[estemacan]

merhaba
stringgridde cümle içinde kelimeyi bulup silen bir prosedür yazmıştım, incelersen belki faydası olabilir.
cümlenin bulunduğu hücrenin, sağ üstte bulunan hücreye yazdığım kelimeri bulup siliyordu.
silinecek kelimenin uzunluğunu length ile cümle içindeki yerini pos ile silme işini delete ile yapmıştım.

Kod: Tümünü seç

procedure tform1.sil;
var
d:integer;
x,y:string;
  begin
    for d := 0 to stringgrid1.RowCount - 1 do
  begin
    x:=stringgrid1.Cells[1,(d+1)];
    y:=stringgrid1.Cells[2,d];
    delete (x,pos(y,x),(length(y))+1);
  begin
    stringgrid1.Cells[1,(d+1)]:=x;
  end;
end;
end;