![]() |
Re: In StringGrid suchen
hi,
Zitat:
Delphi-Quellcode:
if (length(trim(suchtext)) > 0) then
|
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. |
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