AnsiUpperCase (cadena_texto)

Convierte a mayúsculas la cadena especificada.

Un ejemplo de utilización:

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

alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario