Сравнить содержимое Edit-а со словами из txt-файла

@gluk421 · Регистрация: 13.09.2006

Author24 — интернет-сервис помощи студентам

Как сделать(в Delphi) чтобы при вводе слова в Edit и нажатию на Button, оно сравнивалось со славами в файле с расширением txt, и если есть совпадение открывалась новая форма.
Скиньте, ПОЖАЛУЙСТА, код!!! очень необходимо!!!

@LastSoul · 09.02.2007, 15:03

Думаю что-то типа этого:

Delphi

function FindInTXTFile(s, path: string): boolean;
var f: textfile;
    t: string;
begin
 b := false;
 Assignfile(f, path);
 reset(f);
 while not eof(f) do begin
  readln(f, t);
  if pos(s, t) > 0 then begin
   result := true;
   break;
  end;
 end;
 closefile(f);
end;
 
// ...он_баттон_клик:
if FindInTXTFile('строка', 'путь_к_файлу') then делаем_че_тебе_надо
// ...

@slash _ · 07.03.2007, 12:20

Зря код выкладываете. Если они (новички_чайники_нубы) будут делать копи_пасте, то они ничему не научатся

@gluk421 0 / 0 / 0 Регистрация: 13.09.2006 Сообщений: 6
		1
	Сравнить содержимое Edit-а со словами из txt-файла 08.02.2007, 21:56. Показов 2655. Ответов 2 Метки нет (Все метки) Как сделать(в Delphi) чтобы при вводе слова в Edit и нажатию на Button, оно сравнивалось со славами в файле с расширением txt, и если есть совпадение открывалась новая форма. Скиньте, ПОЖАЛУЙСТА, код!!! очень необходимо!!! 0

@slash _ 0 / 0 / 1 Регистрация: 07.03.2007 Сообщений: 6
	07.03.2007, 12:20	3
	Зря код выкладываете. Если они (новички_чайники_нубы) будут делать копи_пасте, то они ничему не научатся 0

Сравнить содержимое Edit-а со словами из txt-файла

Решение