Помогите написать программу"Прямой поиск строки".
Её нужно оформить в С++ Builder 
Суть : дан текст (при открытии выводится в поле Мемо1) - открываем текст при помощи Button1    и   OpenDialog, мы вводим искомое слово (в поле Еdit1) , потом при нажатии Button2 начинается поиск слова.
Первый вход этого слова в текст должен быть подсвечен(выделен).
Если кто-то делал эту программу или если кто может сделать ПОМОГИТЕ пожалуйста !!! Я в безвыходе , у самого ничего не получается завтра нада сдать программу ... 
Заранее благодарю !

какой именно билдел 5, 6, 2006)?

используй Pos("ass") для поиска слова ass, SelStart и SelLength для выделения

Она не работает.

Добавлено через 12 минут и 5 секунд


В 6 нужно

Она работает.  

Постучи мне в асю : 371958477 или найди в Скайпе : xxIZYxx 

Выдаёт ошибку : [C++ Error] Unit1.cpp(29): E2268 Call to undefined function 'Pos'

Ну, не знаю: стандартная функция. Выложи весь свой проект, посмотрим.

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (OpenDialog1->Execute())
 {
  Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
 }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
 if (Pos(Edit1->Text,Memo1->Text)!=0)
    {
     Memo1->SelStart=Pos(Trim(Edit1->Text),Memo1->Text)-1;
     Memo1->SelLength=Edit1->Text.Length()+1;
    }
  else ShowMessage("Не найдено!");
}
//---------------------------------------------------------------------------

Добавлено через 12 минут и 46 секунд
371958477 - это моя ася , найди меня плс...Так будет проще. 

Я про проект, а ты мне мой собственный код выкладываешь.  


Ну нет у меня аси! Точнее, есть, но я года 3 уже не юзал.

Может у тя есть Скайп ? 
Тебе именно тему сказать и что программа должна делать ?

Добавлено через 9 минут и 9 секунд
Кстати , а у тебя программа нормально функционирует ??

Пробуй так:

100% работает.

  
В аттаче проект. Чуть подправленный (не Text.Length()+1, а Text.Length()).

Присоединённый файл ( Кол-во скачиваний: 4 )
 test.rar 459,85 Kb

<...>

Это сообщение отредактировал(а) Данкинг - 5.2.2010, 00:41

Присоединённый файл ( Кол-во скачиваний: 3 )
 test.rar 459,85 Kb

ехе не открывается , говорит не найдено что-то ...
и когда запускаю проект через билдер - бьёт ошибку 
[Linker Error] Unresolved external '_Form1' referenced from C:\DOCUMENTS AND SETTINGS\ADMIN\РАБОЧИЙ СТОЛ\TEST\TEST.OBJ