Hi
Delphi-Quellcode:
const
ZuDurchsuchendeSpalte = 1;
var
i: integer;
ZuSuchenderString: string;
begin
ZuSuchenderString:= StringGrid1.Cells[ZuDurchsuchendeSpalte, StringGrid1.Row];
for i:= 0 to StringGrid2.RowCount-1 do
begin
If StringGrid2.Cells[ZuDurchsuchendeSpalte, i] = ZuSuchenderString then
begin
StringGrid2.Row:= i;
break;
end;
end;
Hier wird gerade Spalte 1 als zu durchsuchend definiert.
Es werden dann alle Zeilen von StringGrid2 durchsucht,
bis die Zellen übereinstimmen...
StringGrid1 = Das Grid, dessen Zellen-Inhalt gesucht werden soll
StringGrid2 = Darin wird der String gesucht.
StringGrid1.Row ist die aktuell selektierte Zeile
Gruß
Pfoto