گرفتن Query برای پیدا کردن رشته تکراری

[radan63]

بعد از جستجو کردن ناچار به عنوان سوال شدم:
از Sql server و Ado استفاده می کنم.
در جدول فیلدی از نوع رشته ای دارم که در آن عنوان را ذخیره می کنم .حال می خواهم هنگام ورود هر عنوان جدید چک کند اگر قبلا وجود دارد کد قبلی را به آن دهد و اگر جدید است کد جدید به آن دهد.ولی وجود فاصله بین کلمات برای من مشکل ایجادمیکند. با کد زیر کاراکتر های رشته را مقایسه نمکند .نیاز به راهنمایی دارم.
[code]
var s_trim :string;
i:integer;
begin
s_trim:=trim(edit1.text);
i:=1;
while length(s_trim)>=i do
begin
if ((s_trim[i]='') and (s_trim[i+1]='')) then
delete(s_trim,i,1)
else
i:=i+1;
end;

[code]

[vcldeveloper]

خب توی کد بالا که شما دارید دنبال فاصله نمی گردید! میگید s_trim[i] ='' (داخل علامت نقل قول چیزی نیست). این یعنی دارید چک می کنید s_trim[i] = nil هست یا نه! اگر می خواید دنبال فاصله بگرده، باید یک فاصله هم بین دو علامت نقل قول وجود داشته باشه.