In StringGrid suchen

[Tpercon]

Delphi-Quellcode:

var suchtext:string; 
    r,c:integer; 
    gefunden:boolean; 
begin 
   gefunden:=False; 
   suchtext:=ESuche.Text; 
    if trim(suchtext) <> '' then
     begin 
      For r:=zeile to FormHaupt.SGS.RowCount-1 do 
       For c:=0 to FormHaupt.SGS.ColCount-1 do 
        If (AnsiPos(LowerCase(suchtext),LowerCase(FormHaupt.SGS.Cells[c,r])) <> 0) then 
         begin 
          gefunden:=True; 
          zeile:=r+1; 
          WaehleZeileSGS(r); // ist eine Funktion, die die gesamte zeile markiert, in der sich der suchstring befindet 
          BitBtn1.Caption:='Weitersuchen'; 
          break; 
         end; 
      if not gefunden then MessageDlg('" '+suchtext+'" wurde nicht gefunden', mtInformation, [mbOK],0); 
     end
    else MessageDlg('Inhalt des Eingabefeldes ist leer', mtInformation, [mbOK],0); 
  end;