|
ПРОГРАММА БАЗА ДАННЫХ,ПОМОГИТЕ РАЗОБРАТЬСЯ.
|
|
Michael_Troshin
|
Дата: Вторник, 15.01.2013, 11:26 | Сообщение # 1
|
Участник
Зарегистрирован: 28.12.2012
Группа: Пользователи
Сообщений: 14
Статус: Offline
|
Принцип работы такой: в поде edit1 вводят допусти "Текст" и программа ищет данный текст и в случае если его находит выдает сообщение "НАЙДЕНО". Но вот много "НО":
1) Нужно так, программа запущена на компе,а вот ищет либо в текстовом файле, либо еще где(Помогите разобраться как сделать можно), который находится на ftp сервере, либо где то еще,но не на самом пк, самих editов 10 штук, и к каждому свой файл.
Я ЗАПУТАЛСЯ ОЧЕНЬ, ПОДСКАЖИТЕ МОЖНО ЛИ ЧТО ТО ПОДОБНОЕ ОСУЩЕСТВИТЬ И ЕСЛИ ДА ТО КАК. ПОЖАЛУЙСТА ПОМОГИТЕ! ПРЯМО ВООБЩЕ ОЧЕНЬ НУЖНО. МОЖЕТ С КЕМ В СКАЙП СВЯЗАТЬСЯ МОЖНО? |
| |
|
|
|
|
ms301
|
Дата: Вторник, 15.01.2013, 15:59 | Сообщение # 2
|
Был не раз
Зарегистрирован: 28.11.2012
Группа: Пользователи
Сообщений: 38
Статус: Offline
|
1. Загружаешь с фтп сервера файл
__
2.
Код
Procedure FindInFile(Key,FileName:string);
Var StrList:TStringList;
Begin
StrList:=TStringList.create;
StrList.loadfromfile(FileName:string);
if pos(AnsiUpperCase (key),AnsiUpperCase (StrList.text))>-1 then showmessage('Найдено')
else showmessage('Введи другой запрос');
StrList.free;
)_DubStep_(
Сообщение отредактировал ms301 - Вторник, 15.01.2013, 16:00
|
| |
|
|
|
|
Michael_Troshin
|
Дата: Среда, 16.01.2013, 10:42 | Сообщение # 3
|
|
Участник
Зарегистрирован: 28.12.2012
Группа: Пользователи
Сообщений: 14
Статус: Offline
|
ms301,А если мне нужно чтобы при поиске, из edit1 искала в файле 1 , из edit2 в файле 2 и так до 10 edita? Да, и кнопка "Поиск" должна быть одна. Это возможно?
Сообщение отредактировал Michael_Troshin - Среда, 16.01.2013, 10:43
|
| |
|
|
|
|
ms301
|
Дата: Среда, 16.01.2013, 11:00 | Сообщение # 4
|
|
Был не раз
Зарегистрирован: 28.11.2012
Группа: Пользователи
Сообщений: 38
Статус: Offline
|
в параметр key передаешь что тебе найти надо. в параметр FileName то где надо искать
Добавлено (16.01.2013, 11:00)
---------------------------------------------
как то так:
if edit1.text<>'' then FindInFile(edit1.text,'text1.txt');
if edit2.text<>'' then FindInFile(edit2.text,'text2.txt');
)_DubStep_(
Сообщение отредактировал ms301 - Среда, 16.01.2013, 10:56
|
| |
|
|
|
|
Michael_Troshin
|
Дата: Среда, 16.01.2013, 11:20 | Сообщение # 5
|
|
Участник
Зарегистрирован: 28.12.2012
Группа: Пользователи
Сообщений: 14
Статус: Offline
|
И после нажатия поиск она будет искать текст забитый в edit1 в файле text1.txt так? |
| |
|
|
|
|
ms301
|
Дата: Пятница, 18.01.2013, 01:29 | Сообщение # 6
|
|
Был не раз
Зарегистрирован: 28.11.2012
Группа: Пользователи
Сообщений: 38
Статус: Offline
|
Цитата (Michael_Troshin)
И после нажатия поиск она будет искать текст забитый в edit1 в файле text1.txt так?
Дооо.
)_DubStep_(
|
| |
|
|
|
