Select Tdbgrid index by field name (Delphi)

Κάλεσε τώρα! +30 2118002930

Αδειοδοτημένος πάροχος Ηλεκτρονικής Τιμολόγησης από την Α.Α.Δ.Ε.

Post published:26/09/2015
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;

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;