Алгоритм грубой силы

@pemolusha · Регистрация: 18.02.2015

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

Delphi

function Find( const S, P: string): Integer;
var
  i, j: Integer;
begin
 
 
  Result := 0;
  if Length(P) > Length(S) then
    Exit;
  for i := 1 to Length(S) - Length(P) + 1 do
    for j := 1 to Length(P) do
      if P[j] <> S[i + j - 1] then
   begin  showmessage ('íå íàéäåíî');
   end else
   showmessage ('íàéäåíî');
   end;
procedure TForm1.Button1Click(Sender: TObject);
var
s,p:string;
begin
  memo1.Lines.LoadFromFile('C:\Users\Eldo\Desktop\Baza.txt');
  s:=memo1.Text;
  p:=InputBox('поиск','введите сообщение', 'текст');
 [COLOR="Red"]memo1.Lines := Find(p);[/COLOR]
end;
 
   end.

______________________________________________________
выдает ошибку "Not enough actual parameters" в выделенной строке, помогите разобраться

@northener · 05.03.2015, 20:13

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

в выделенной строке, помогите разобраться

А что должно было быть сделано в выделенной строке?

@FIL · 05.03.2015, 22:52

Сколько параметров принимает ф-ция Find ?

@northener · 06.03.2015, 02:18

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

Сколько параметров принимает ф-ция Find ?

А какая разница сколько параметров? Если в выделенной строке написан абсолютный бред.

@FIL · 06.03.2015, 09:00

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

А какая разница

Ну с чего-то надо начинать разбираться)

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	05.03.2015, 20:13	2
	Сообщение от pemolusha в выделенной строке, помогите разобраться А что должно было быть сделано в выделенной строке? 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	05.03.2015, 22:52	3
	Сколько параметров принимает ф-ция Find ? 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	06.03.2015, 02:18	4
	Сообщение от FIL Сколько параметров принимает ф-ция Find ? А какая разница сколько параметров? Если в выделенной строке написан абсолютный бред. 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	06.03.2015, 09:00	5
	Сообщение от northener А какая разница Ну с чего-то надо начинать разбираться) 0