Post published:10/05/2010 Post category:Δωρεάν κώδικας (Delphi, PHP, Perl) procedure selectindexbyfield(grid_:TDBGrid;field_:string); var fn:integer; begin for fn:=0 to grid_.FieldCount-1 do if lowercase(grid_.Fields[fn].FieldName)=lowercase(field_) then break; grid_.SelectedIndex:=fn; end; 123456 procedure selectindexbyfield(grid_:TDBGrid;field_:string);var fn:integer;beginfor fn:=0 to grid_.FieldCount-1 do if lowercase(grid_.Fields[fn].FieldName)=lowercase(field_) then break;grid_.SelectedIndex:=fn;end;