Guest User

Untitled

a guest
Jan 18th, 2019
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.17 KB | None | 0 0
  1. procedure TForm1.DBGrid1CellClick(Column: TColumn);
  2. var
  3. s: string;
  4. begin
  5. s := Column.Field.AsString;
  6. end;
  7.  
  8. Edit.Text := DataSet.FieldByName('UNICUM_NUM').AsString;
Add Comment
Please, Sign In to add comment