Ein Edit.Text in eine vorgefertigte Excel Datei suchen.

[zeina]

HaLLO;
das ist mein code.Ich hätte gerne eine (search function oder procedure),in der man die Excel-Datei nach einer bestimmten string (edit feld) durchsuchen könnte.

Code:

procedure TForm1.Button2Click(Sender: TObject);

var
     Workbook, Filename: OleVariant;
     OpenDialog: TOpenDialog;
     x,y:integer;
     maxcol,maxRow:integer;

   begin
     if OpenDialog.Execute then
     begin
       try
         excel := CreateOleObject('Excel.Application');
       except
         ShowMessage('Excel konnte nicht gestartet werden !');
       end;
       excel.workbooks.Open('C:\Users\qatrangi\Desktop\OSM neu\Mappe1.xlsx');
       excel.visible := true; { für die testphase sinnvoll }
       excel.Sheets[1].select;
       maxcol := excel.columns.count;
       maxRow := excel.Rows.count;

       for x := 1 to maxcol - 1 do
       begin
         for y := 1 to maxRow - 1 do
         begin
           if excel.cells[y, x].Value = (Edit1.Text) then
           begin
              excel.cells[y,x].select;
               polydrow(edit1.text);
               StringGrid1.Cells [x-1,y-1]:=excel.Cells[y,x].Value ;

           end;
         end;
       end;
     end;

   end;