Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Отловить нажатие на CheckBox в ListView Как отловить нажатие на CheckBox в ListView? Нужно, чтобы подпрограмма выполнялась сразу после нажатия на CheckBox, но не после того, как пользователь отпустит кнопку. https://www.cyberforum.ru/ delphi-beginners/ thread810130.html Ошибка с ini файлом в тесте Delphi
У меня проблема.Я написал программу тестирования по книге Парижского.Там еще надо было написать шифрующий блокнот чтобы зашифровать ини файл.Я написал этот блокнот шифрует вроде бы нормально.Но тест не работает.Помогите пожалуйста.Я прикрепил блокнот шифратор саму прогу теста.Помогите пожалуйста исправить эту ошибку.У меня говорит что не валидный ини файл.Я делал по книге Парижский учимся на...
Delphi enabled:=false; https://www.cyberforum.ru/ delphi-beginners/ thread810057.html
Не работает функция TTimer.Enabled:=false; В чем тогда проблема? Пробывал закрывать в скобки и ставить if, все равно бесполезно.
Delphi Ошибки в программе "Автокликер" unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) https://www.cyberforum.ru/ delphi-beginners/ thread810046.html
Delphi & Word Delphi
Нужно посчитать кол-во определенных слов в документе формата Word, делаю так: for j:= 1 to MSWord.ActiveDocument.Words.Count do begin if MSWord.ActiveDocument.Words.Item(j).Text = 'Таблица' then iCountWordsTable:= iCountWordsTable + 1; end; Считает как то странно, если после слова "Таблица"нет ничего то считает, а если например "Таблица 1.1" то это...
Delphi Не могу понять ошибку https://www.cyberforum.ru/ delphi-beginners/ thread810015.html
Всем здрасте. Помогите кто-чем может procedure TForm1.StartClick(Sender:TObject); var i, j, K, S:integer; E:real; a:array of array of real; B, Z, x: array of real; begin E:=StrToFloat(LabeledEdit2.Text); SetLength(A,N,N);
Delphi Маски в maskEdit Всем доброго дня! Возник такой вопрос по маске в МаскЕдите. Нужна маска для даты рождения. Исходно она выглядит в редакторе !99/99/0000;1;_ и соответственно мы видим в самом едите __.__.____ Но я бы хотел чтобы форма представления была более понятной. Например, дд.мм.гггг. Как не крутил поле маски символ меняется сразу для всех значений. https://www.cyberforum.ru/ delphi-beginners/ thread810004.html Как убрать отображение названия компонента? Delphi
Привет всем, у меня интересный вопрос: как сделать чтобы в диалогах об ошибках не писалось name кампонента, а только оставался текст ошибки, либо как подставить свое наименование? Взгляните на скрин и все поймете. Сам текст подменить нет проблем,а вот как убрать 'ADOQuery:' ???
Delphi Аналог case of для действительных чисел https://www.cyberforum.ru/ delphi-beginners/ thread809923.html
есть ли что-то похожее на case of для чисел типа real? чтобы например преобразовать такой код: if rbs<1000 then edit1.color:=clred; if rbs>=1000 and rbs<2000 edit1.color:=$004080FF; в такой case rbs of 0..1000:edit1.color:=clred; 1000..2000:edit1.color:=$004080FF;
Delphi Исправить ошибки в программе https://www.cyberforum.ru/ delphi-beginners/ thread809917.html
Необходимо было создать абстрактный базовый класс фигура с виртуальной функцией – вычисление площади фигуры. Создать производные классы: прямоугольник, круг, прямоугольный треугольник, трапеция со своими функциями вычисления площади. Я написал прогу , но она выдает ошибки. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,...
Блокировка интернета к программе Delphi
Здравствуйте,мне нужно чтобы программно к определенному exe создавалось правило для исходящего соединения,запрещающее доступ в интернет приложения,пожалуйста подскажите как реализовать данную идею?
Delphi Запись строк текстового файла в массив из tlabel Делаю так: в текстовом файле десять строк. Сначала читается файл построчно, потом каждая строка файла циклом записывается в массив из tlabel. Читает строку - создаёт tlabel (Caption:=s1), читает строку - создаёт ещё один tlabel (Caption:=s1)... и т. д. Проблема: программа вылетает при загрузке массива из tlabel (в коде это массив из lblid1); Пояснения: i1 - счётчик массива, s1 - строка, f1 :... https://www.cyberforum.ru/ delphi-beginners/ thread809878.html
16 / 16 / 3
Регистрация: 01.03.2013
Сообщений: 130
16.03.2013, 17:30 0

как искать в txt - Delphi - Ответ 4264131

16.03.2013, 17:30. Показов 649. Ответов 7
Метки (Все метки)

Ответ

Цитата Сообщение от winlox Посмотреть сообщение
А если введем (Рис) то нечего не произойдёт?
Нужно, чтобы происходил поиск в txt по продуктам. И если результат успешный, выводился рецепт или список рецептов. А если результат отрицательный то сообщение о том что рецепт отсутствует.
ну подставь свой Edit то... неужто трудно додуматься

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
Procedure Form1.Button1Click(Sender: TObject);
Var SL: TStringList;
    i, s: integer;
    filename: string;
begin
filename:= 'лук.txt'; //да он самый, можно еще как вариант загружать из OpenDialog.FileName;
SL:= TStringList.Create;
SL.LoadFromFile(filename); //она самая...
for i:= 0 to SL.Count-1 do
if pos(Edit1.Caption, SL.Strings[i])<>0 then Inc(s); // он самый...
Memo1.Lines.Add(IntToStr(s));
end;


Вернуться к обсуждению:
как искать в txt Delphi
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.03.2013, 17:30
Готовые ответы и решения:

Программно искать нужную строчку на всём компьютере в TXT файлах.
вот такая проблема нужно сделать так чтобы программа искала нужную строчку во всех TXT файлах на...

Подскажите где искать и что искать
Необходимо реализовать простенький на мой взгляд скрипт. Он должен выполнять следующее: Зашел...

Как брать данные из списка .txt и сохранить результат в другом .txt?
Приветствую Всех! Я плохо знаю язык пайтона, но мне нужно изменить этот код: import hashlib...

Как брать числа из списка .txt и сохранение в другой .txt ?
Приветствую Всех Друзья! Не силен в Пайтоне, но нужно изменить код. В этом скрипте есть формула...

7
16.03.2013, 17:30
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.03.2013, 17:30
Помогаю со студенческими работами здесь

Из файла 1.txt взять n первых и n последних строк, и сохранить их как файл 2.txt
Подскажите пожалуйста, как из файла 1.txt взять n первых и n последних строк, и сохранить их как...

Python v.2.7 Как открыть второй 2.txt путь к которому прочитали из первого 1.txt
Привет всем, нуждаюсь в помощи тех, кто с таким сталкивался. Кратко: Прочесть путь к файлу .txt и...

Как сделать перенос из отдного txt файла текста в другой txt файл в Turbo C?
Надо сделать с потоками. fopen fgets fputs - с этими функциями

Как скопировать текст с файла 1.txt и записать в 2.txt
1)Скажите, как скопировать кусок текста с файла 1.txt и записать в 2.txt? 2)Как вместо этого,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru