Одновременный поиск нескольких значений

[Sm1Le]

Проверил ... если каждое значение взять в кавычки все работает.

Вводить список номеров с кавычками не удобно.
По этому, добавь обработку.

POS ( ... ) - найдет тебе твою "," и вернет порядковый номер в строке.
Copy (...) - ДОбавить " ' " перед запятой и после .... по типу pos()-1 - это до и pos()+1 - это будет после ... значаение параметров поищи ... ничего там сложного.

[mansuetudo]

Каждый номер вводить в мемо новой строкой (иначе потом провести анализ, где чего - проще застрелиться).
Перед поиском определять количество строк и в цикле склеивать значения с кавычками и запятыми так, как это должно быть представлено в итоге, в смысле, 'tel1','tel2','tel3' и т.д.
Результат присвоить переменной.
Запрос будет иметь вид вроде этого:

select * from t where tel IN ('+v+')

где v=''tel1','tel2','tel3''

[Sm1Le]

Сообщение от mansuetudo

Каждый номер вводить в мемо новой строкой (иначе потом провести анализ, где чего - проще застрелиться).
Перед поиском определять количество строк и в цикле склеивать значения с кавычками и запятыми так, как это должно быть представлено в итоге, в смысле, 'tel1','tel2','tel3' и т.д.
Результат присвоить переменной.
Запрос будет иметь вид вроде этого:

select * from t where tel IN ('+v+')

где v=''tel1','tel2','tel3''

с кавычками лажа, их по 2 должно быть. Одну кавычку он не увидит вообще

А про парсит строку это 2 строчки кода. Зато мне проще ввести в мемо номер и программа это сделает за меня чем вставлять кавычку вручную.

___________________________________ ___________________________________ __________________________
перед выполнением запроса напиши строку

Showmessage(Query.sql.text);

И сам сможешь понять где у тебя ошибка.

[Hayaname]

Спасибо всем! Буду пробовать!

[Hayaname]

Сообщение от mansuetudo

Каждый номер вводить в мемо новой строкой (иначе потом провести анализ, где чего - проще застрелиться).
Перед поиском определять количество строк и в цикле склеивать значения с кавычками и запятыми так, как это должно быть представлено в итоге, в смысле, 'tel1','tel2','tel3' и т.д.
Результат присвоить переменной.
Запрос будет иметь вид вроде этого:

select * from t where tel IN ('+v+')

где v=''tel1','tel2','tel3''

Примерно так попробовал:

PHP код:

var
  s : string;
  i: Integer;
begin
   for i := 0 to mmo1.Lines.Count - 1 do
   mmo1.Lines[i] := #039 + mmo1.Lines[i]+#039+#044;
  s:= mmo1.Lines.DelimitedText;
  try
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Table1 WHERE Telefon IN ('+s+')');
Showmessage(ADOQuery1.SQL.Text);
ADOQuery1.Active:= True;
except
  on e:Exception do
  end; 


Образуются лишние кавычки...а это плохо.
Просто хотелось бы, чтобы можно было вводить каждый номер телефона с новой строки, но при этом не добавлять запятую. Поскольку если телефонов 100, а мы допустим просто копируем список телефонов для проверки в Мемо, то потом сидеть и расставлять запятые как то не очень)
В общем будем искать

[Hayaname]

Хотя посмотрел, последняя запятая не играет роли, да и номера легко вводятся построчно, не нарушая запроса, окей, буду делать Pos и Copy

А если брать как вариант с добавлением запятых после каждого номера, то что если сначала объединить введенные строчки:

s:=#039 + mmo1.Lines.DelimitedText;

А потом просто в общей строке s найти все запятые и заменить их на последовательность: #039+#044+#039 ?)

[Sm1Le]

Отталкивайся от того как ты вводишь номера ...

если построчно и без запятых в конце

str:='''';
for  i:=0 to form1.Memo1.Lines.count-1 do
begin
str:=str+form1.Memo1.Lines.Strings[i]+'''';
if i<>(form1.Memo1.lines.count-1) then
str:=str+','''
end;

а если через запятую в строку, то примерно так.

while true do 
begin
If pos(',', ...) then 
INSERT('''',string,pos(...))
else
break;
end;

сори нету времени нормально описать.

[Hayaname]

Сообщение от Sm1Le

Отталкивайся от того как ты вводишь номера ...

если построчно и без запятых в конце

str:='''';
for  i:=0 to form1.Memo1.Lines.count-1 do
begin
str:=str+form1.Memo1.Lines.Strings[i]+'''';
if i<>(form1.Memo1.lines.count-1) then
str:=str+','''
end;

а если через запятую в строку, то примерно так.

while true do 
begin
If pos(',', ...) then 
INSERT('''',string,pos(...))
else
break;
end;

сори нету времени нормально описать.

Огромное спасибо)

[mansuetudo]

Сообщение от Hayaname

Просто хотелось бы, чтобы можно было вводить каждый номер телефона с новой строки, но при этом не добавлять запятую. Поскольку если телефонов 100, а мы допустим просто копируем список телефонов для проверки в Мемо, то потом сидеть и расставлять запятые как то не очень)
В общем будем искать

А зачем их расставлять? Пусть номера будут без запятых, их вполне можно добавить при анализе содержимого мемо (так же, как мы ставим кавычки). Если мы ставим кавычки программно, то и запятые расставить не проблема, а если мы вручную ставим запятые, то зачем кавычки ставить в программе?

[Sm1Le]

Сообщение от mansuetudo

А зачем их расставлять? Пусть номера будут без запятых, их вполне можно добавить при анализе содержимого мемо (так же, как мы ставим кавычки). Если мы ставим кавычки программно, то и запятые расставить не проблема, а если мы вручную ставим запятые, то зачем кавычки ставить в программе?

все зависит от того как у автора добавляются данные ...

может у него список через запятые из другой программы выдаеться ... а может человек руками вбивает каждый норме ... тогда проще нажать ентер после ввода ... и использовать анализ по строкам ... вообщем. Автор умолчал свой способ. А мы может только догадываться.