Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tpercon,
10. Feb 2004
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
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tpercon,
12. Mai 2003
Hier mal was auf die Schnelle:
procedure TForm1.Button1Click(Sender: TObject);
var suchtext:string;
r,c:integer;
begin
suchtext:=Edit1.Text;
For r:=0 to StringGrid1.RowCount-1 do
For c:=0 to StringGrid1.ColCount-1 do
If StringGrid1.Cells=suchtext
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tpercon,
23. Jul 2002
Du kannst doch einfach mit ner Schleife die StringGrid durchgehen. Als Startwert nimmst du den ZeilenIndex der markierten Zelle und als Ende den RowCount bzw. den Vergleich ob Cell='dein suchstring' ergibt.
Gruß