Convierte a mayúsculas la cadena especificada.
Un ejemplo de utilización:
|
1 2 3 4 5 6 7 8 9 |
procedure TformAgregarPiezaDespiece.AceptarDespieceClick(Sender: TObject); begin dm.TC3.Close; dm.TC3.SQL.Clear; dm.TC3.SQL.Add('SELECT Nombre FROM ' + vtTablaDespieces + ' WHERE upper(Nombre) = :pNombre'); dm.TC3.ParamByName ('pNombre').DataType := ftString; dm.TC3.ParamByName ('pNombre').Value := AnsiUpperCase(EditNombre.Text); dm.TC3.Open; end; |
Unidad SysUtils
