Работа с файлом

[SVadiks]

Ребят, помогите пожалуйста... как можно реализовать поиск введеного слова в edit, в тхт-файле. и занося всю найденную строчку в stringGrid.

Вот я сделал пока только что он полностью мне все из файла заносит в stringGrid.

var
  Form1: TForm1;
    f: text;
  s0,s1,s2,s3,s4: string;
  i: byte;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
assignfile(f,'1.txt');
  reset(f);
  i:=0;
  while not eof(f)do
  begin
  i:=i+1;
  readln(f,s0);
  s1:=copy(s0,1,pos(chr(9),s0)-1); delete(s0,1,pos(chr(9),s0));
  StringGrid1.Cells[1,i]:=s1;   \\Имя продукта
  s2:=copy(s0,1,pos(chr(9),s0)-1); delete(s0,1,pos(chr(9),s0));
  StringGrid1.Cells[2,i]:=s2;   \\Цена
  s3:=copy(s0,1,pos(chr(9),s0)-1); delete(s0,1,pos(chr(9),s0));
  StringGrid1.Cells[3,i]:=s3; \\Краткая анотация
  s4:=s0;
  StringGrid1.Cells[4,i]:=s4;\\Производитель
  StringGrid1.RowCount:=i+1;
  end;
  closefile(f);
 end;

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

[program123]

так?

 f:TStringList;
 i:integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
     f:=TStringList.Create;
     f.LoadFromFile('g.txt');;
     for i:=1 to f.Count-1 do
     if f.Strings[i]=Edit1.Text
     then
     StringGrid1.Cells[]:='Найдено в '+IntToStr(i)+' строке: '+f.Strings[i];

end;

[Alex_FF]

Можно, к примеру, так: создаешь кнопку, тыкаешь на нее два раза и пишешь код. Пусть Edit у тебя называется Edit1, а кнопка Button 1.

вот код кнопки:

procedure TForm1.Button1Click(Sender: TObject);
var
  S, tmp: String;
  F: TextFile;
  Flag: Boolean;
begin
  S := Edit1.Text; // теперь S = тексту из твоего Edit'а
  AssignFile(F, '1.txt');
  Reset(F);
  Flag := False;
  while not EOF(F) do
  begin
    ReadLn(F, tmp); 
    if Pos(S, tmp) <> 0 then // ищем подстроку из Edit'а
    begin
      Flag := True;
      // подстрока найдена. обработай ее и занеси, что нужно в StringGrid
    end;
  end;
  if not Flag then ShowMessage('Не найдено');
end;

[SVadiks]

хм...СПАСИБО оба варианта неплохие....