Как удалить все строки из txt в которых нет символа «+» ?
Serge_Bliznykov if OpenDialog1.execute then begin uploaded := tstringlist.Create; uploaded.LoadFromFile(OpenDialog1.FileName); for a:=uploaded.Count-1 downto 0 do if pos('+', uploaded[a])=0 then...
View ArticleПоиск и замена заданной строки в тексте
В программе есть возможность создавать пользователя, при этом стандартный пароль ему дается «1234″, надо сделать так чтобы при первом его заходе в систему ему вылезало окошко с просьбой изменить...
View ArticleПосчитать кол-во восклицательных знаков в тексте
саша40 var i: integer; a: integer; Str: String; begin for i:=0 To ListBox1.Items.Count-1 Do begin Str:=ListBox1.Strings; if Pos('!',Str)>0 then a:=a+1; end; ShowMessage('Восклицательный знак есть...
View ArticleПоиск нескольких слов в Memo
Mik92 Подскажите, как сделать, чтобы в Memo искало все заданные слова? Допустим, если не найдена строка ’123′, тогда ищем ’1234′, если ее нету, то следующий. BDA If (Pos('123',...
View ArticleНайти в тексте буквы от А до Я
Подскажите как сделать так, чтобы Pos искал в тексте буквы от А до Я. Не хочется делать это на кучу строк. Может есть более просто вариант? if Pos(‘А’…’Я’)<>0 then – это для примера, чтобы мой...
View ArticleПоиск файла на диске
Dux Как найти определенный файл на диске? К примеру нужно найти файл test.mpg. В случае удачного поиска необходимо вывести путь к этому файлу. Может у кого есть готовый пример? eoln program Project1;...
View ArticleПоиск нескольких слов в строке
Как правильно сделать чтобы искало по всем словам? Допустим если не найдена строка ’123′ тогда ищем ’1234′ если ее нету то следующий. BDA If (Pos('123', Memo1.Lines.Text)<>0) or (Pos('345',...
View ArticleАлгоритм поиска картики в картинке
Есть целое изображение: фоновый цвет, это: Fuchsia Изображения могут быть любой формы. Правило одно: граница между объекта – 1 пиксель цвета Fuchsia, либо нет цвета(-1) если изображение граничит с...
View ArticleИсходник объединение двух таблиц и фильтрация по полю таблицы
база Аксес, таблица storage и product. есть еще таблицы. В таблице storage есть поле id_product, в product естественно поле product_name. на форме где осуществляется фильтр есть Adotable1, она...
View ArticleКак организовать поиск по 2 полям с помощью like?
Serge_Bliznykov begin if (Length(Trim(edit1.text)) = 0) and (Length(Trim(edit2.text)) = 0) then Exit; with q1 do begin close; sql.clear; sql.Add('select *from tes where '); if...
View Article