[Iljusha]

Плииииз. Помогите решить... Времени катастрофически не хватает....
Поиск.Разместить на форме компонентов Memo,два компонента Edit и компонет Button .Компонет Memo ипользуйте для ввода массива строк, первый компонент Edit-для задания строки поиска, второй компонет Edit-для ввода результата поиска (Yes,No).Для инициализации поиска используйте компонет Button .Используйте другие необходимые компоненты(Label и др.)

[shaman]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

procedure TForm1.Button9Click(Sender: TObject); begin  FindDialog1.Execute; end;   procedure TForm1.FindDialog1Find(Sender: TObject); var  Buff,P,FT: PChar;  BuffLen: Word; begin  with Sender as TFindDialog do   begin    GetMem(FT, Length(FindText) + 1);    StrPCopy(FT, FindText);    BuffLen:= Memo1.GetTextLen + 1;    GetMem(Buff, BuffLen);    Memo1.GetTextBuf(Buff, BuffLen);    P:= Buff + Memo1.SelStart + Memo1.SelLength;    P:= StrPos(P, FT);    if P=nil then MessageBeep(0)    else     begin      Memo1.SelStart:= P - Buff;      Memo1.SelLength:= Length(FindText);     end;    FreeMem(FT, Length(FindText) + 1);    FreeMem(Buff, BuffLen);   end; end;

[Iljusha]

Сенкс. а как это собрать воедино?

[shaman]

Вот исходник, там есть пример

Text_Editor.zip

[Iljusha]

не, это немножко не то. я так понял из условия задачи, должно присутствовать всего 3 поля ввода: 2 Edit и 1 Memo. Memo заполняется произвольным текстом, в edit1 заносится слово, которое надо найти и после нажатия на кнопку во втором поле edit будет ответ Y/N взависимости от того, присутствует ли в тексте данное слово.

[shaman]

findtext:=edit1.text; - то что ищем

[Iljusha]

ну это понятно вроде, но дело в том, что я не умею пока работать с объектами, классами и методами. В книгах пишут слишком трудно для восприятия. Соответственно я любой код не смогу вставить в проект так, что бы он работал....
Вам персональное сообщение....
**********
пока пришел только к этому, но поле Memo не заполняется.. Почему?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     Memo1: TMemo;     Edit1: TEdit;     Edit2: TEdit;     Button1: TButton;     Label1: TLabel;   private   public   end;   var   Form1: TForm1;   implementation   {$R *.dfm} procedure InsertFileInMemo1(Memo1: TMemo; FileName: string;   ReplaceSel: Boolean); var   Stream: TMemoryStream;   NullTerminator: Char; begin   Stream := TMemoryStream.Create;   try     { Загружаем текст... }     Stream.LoadFromFile('1.txt');       { Добавляем в конец текста терминирующий ноль... }     Stream.Seek(0, 2);     NullTerminator := #0;     Stream.Write(NullTerminator, 1);       { Вставляем текст в Memo... }     if not ReplaceSel then       Memo1.SelLength := 0;     SendMessage(Memo1.Handle, EM_ReplaceSel, 1,       LongInt(Stream.Memory));   finally     Stream.Free;   end; end; end.

Вот что еще нашел в материалах сайта:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

function SearchForText_AndSelect(RichEdit: TRichEdit; SearchText: string): Boolean; var   StartPos, Position, Endpos: Integer; begin   StartPos := 0;   with RichEdit do   begin     Endpos := Length(RichEdit.Text);     Lines.BeginUpdate;     while FindText(SearchText, StartPos, Endpos, [stMatchCase])<>-1 do     begin       Endpos   := Length(RichEdit.Text) - startpos;       Position := FindText(SearchText, StartPos, Endpos, [stMatchCase]);       Inc(StartPos, Length(SearchText));       SetFocus;       SelStart  := Position;       SelLength := Length(SearchText);     end;     Lines.EndUpdate;   end; end;     procedure TForm1.Button1Click(Sender: TObject); begin   SearchForText_AndSelect(RichEdit1, 'Some Text'); end;

Вопрос будет в следующем, как вот это надо прикрутить к первому (мемо), что бы всё работало?
...Уже битый час ломаю голову...

[Iljusha]

Большая просьба не игнорировать... Для профи - дело 5и минут, ддля новичка - неделя изучения литературы.. А сдавать уже завтра..
"Подтолкните" хотя бы в нужном направлении..

[Admin]

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

procedure TForm1.Button9Click(Sender: TObject);
begin
FindDialog1.Execute;
end;


procedure TForm1.FindDialog1Find(Sender: TObject);
var
Buff,P,FT: PChar;
BuffLen: Word;
begin
with Sender as TFindDialog do
begin
GetMem(FT, Length(FindText) + 1);
StrPCopy(FT, FindText);
BuffLen:= Memo1.GetTextLen + 1;
GetMem(Buff, BuffLen);
Memo1.GetTextBuf(Buff, BuffLen);
P:= Buff + Memo1.SelStart + Memo1.SelLength;
P:= StrPos(P, FT);
if P=nil then MessageBeep(0)
else
begin
Memo1.SelStart:= P - Buff;
Memo1.SelLength:= Length(FindText);
end;
FreeMem(FT, Length(FindText) + 1);
FreeMem(Buff, BuffLen);
end;
end;

Admin: Недельный бан за несоблюдение правил форума, пункт 2.8.

[Iljusha]

...Человек помочь хотел...

[Iljusha]

вобщем я вот так сделал. Думаю тему можно закрывать:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     Memo1: TMemo;     Edit1: TEdit;     Edit2: TEdit;     Button1: TButton;     Label1: TLabel;     procedure Button1Click(Sender: TObject);     private     { Private declarations }   public    function ListContained(st: string; StList: TStrings): boolean;   end;   var   Form1: TForm1;   implementation   {$R *.dfm} function Tform1.ListContained(st: string; StList: TStrings): boolean; var   i: longint; begin   result := false;   for i := 0 to StList.Count - 1 do     if St = StList.Strings[i] then     begin       result := true;       break     end end;   procedure TForm1.Button1Click(Sender: TObject); var ss:boolean; a:string; begin a:=Edit1.Text;  ss:=ListContained(a, Memo1.Lines);  if ss=TRUE then  begin  Edit2.Text:='Yes';  end  Else Edit2.Text:='No';    end;   end.