как искать в txt

[arkadihard]

Я чайник, потому попроще плиз.

Как сделать так, чтобы при вводе слово (к примеру лук) в Edit1 и нажатии кнопки button1.
Делался поиск в текстовом документе по ключевому слову (лук) а результат выводился в memo1?

[Stilet]

Вкратце? Открываешь файл средствами языка. В цикле считываешь его данные сверяя с искомым словом. Если нашлось - выводишь в Мемо.

[arkadihard]

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

Вкратце? Открываешь файл средствами языка. В цикле считываешь его данные сверяя с искомым словом. Если нашлось - выводишь в Мемо.

А если развернуто? сегодня первый раз открыл Lazarus. До этого работал только в Doom и StarCraft/.

По то же теме из Другова форума.

 Var SL: TStringList;
    i, s: integer;
    filename: string;
begin
filename:= 'лук.txt'; // это сам файл txt если я правильно понял?
SL:= TStringList.Create;
SL.LoadFromFile(filename); // это загрузка?
for i:= 0 to SL.Count-1 do
if pos('лук', SL.Strings[i])<>0 then Inc(s); // это результат что происходит если совпало или нет?
Memo1.Lines.Add(IntToStr(s));
end;

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

[Stilet]

А если развернуто?

А что ж ты ЯВУ не указываешь? Сам виноват.

это сам файл txt если я правильно понял?

Да.

это загрузка?

Да.

это результат что происходит если совпало или нет?

Да.

А если введем (Рис) то нечего не произойдёт?

Да.

И если результат успешный, выводился рецепт или список рецептов.

Такие поиски напрямую зависят от того что в файле написано.
Советую забыть о ТХТ и изучать INI файлы или базы данных для такой задачи.

[s-andriano]

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

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

Подозреваю, Вы неправильно сформулировали условие в первом сообщении.
Если ввести "рис", то правильно написанная программа по этому условию должна найти слово "игристый".
Вы уверены, что это именно то, что Вам нужно?

[arkadihard]

Так, немного сам разобрался. И вас запутал.
Выяснил на соседнем форуме. Что про TXT действительно лучше забыть.
Для этой задачи мне посоветовали СУБД access.
Теперь встал вопрос о заполнении таблицы.
Я на Lazarus смонтировал визуальное окно, которое можно сделать как модуль, который будет заполнять ячейки access необходимыми данными



Или я опять что-то напутал.

[Stilet]

Для начала разберись с компонентами ODBC Лазаря, как подключаться к акцессу, а уже потом монтируй.
Читай про TODBCConnection, TSQLQuery и TSQLTransaction. Плюс ко всему нужно знать сам по себе SQL, хотя бы его основы.

[arkadihard]

Жесть. Вроде такая простенькая программка....
Ну, что будим учится лет 5, чтобы ее написать, нечего не поделать.
Начинают руки опускается.

[Stilet]

Начинают руки опускается.

Слабак значит.

будим учится лет 5

5 лет? Чему? Этому?:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SQLQuery1.DataBase:=ODBCConnection1;
  SQLTransaction1.DataBase:=ODBCConnection1;
  ODBCConnection1.FileDSN:=ExtractFileName(ParamStr(0))+'access.dsn';
  SQLQuery1.SQL.Text:='select * from table1';
  SQLQuery1.Open;
end;

Создаешь ODBC подключение в DSN файл типа:

[ODBC]
DRIVER=Driver do Microsoft Access (*.mdb)
UID=admin
UserCommitSync=Yes
Threads=3
SafeTransactions=0
PageTimeout=5
MaxScanRows=8
MaxBufferSize=2048
FIL=MS Access
DriverId=25
DefaultDir=d:\1\
DBQ=d:\1\База.mdb

На форму кидаешь это:

    Datasource1: TDatasource;
    DBGrid1: TDBGrid;
    ODBCConnection1: TODBCConnection;
    SQLQuery1: TSQLQuery;
    SQLTransaction1: TSQLTransaction;

И пишешь код, вроде того что я дал выше.

И этому ты собрался 5 лет учится? Может лучше вообще тогда не начинать?

[arkadihard]

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

Слабак значит.

Как только ты это сказал, у меня сразу появилось опять желание.
Просто всё это так сложно. Я сутки сижу и пытаюсь хоть что-нибудь понять.
Я кроме как в Lazarus создавать не рабочие окошки больше нечему не научился.
Конечно, я не говорю, что надо его выучить за 2 дня, понимаю, что это не простой и долгий процесс, ну как минимум, полгода.
Но на том материале, на котором написаны книги, монотонно и скучно.
Вот я поставил перед собой задачу с этой программой (думал что простенькая)
Наверно просто следует передохнуть, покушать и поспать. А проснувшись, попытается сделать эту программу.