Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi In StringGrid suchen (https://www.delphipraxis.net/451-stringgrid-suchen.html)

chris 10. Feb 2004 21:20

Re: In StringGrid suchen
 
hi,

Zitat:

if (suchtext='')or(suchtext=' ') then
besser ist hier noch:

Delphi-Quellcode:
if (length(trim(suchtext)) > 0) then

Tpercon 10. Feb 2004 22:33

Re: In StringGrid suchen
 
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;


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:19 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz