SoloCodigo

Por supuesto que se puede, ve el tema

Busqueda en SQL

ahí esta un ejemplo, se usa un TQuery y un DataSource.

Hola, alguien podría decirme como hacer que el primer caracter de un Edit sea siempre mayúscula sin utilizar un MaskEdit, dado que este último es demasiado incomodo para ser manejado.

Gracias por su colaboración.    

Disculpa, pero podrías darme un ejemplo ya que no encuentro esa propiedad, uso C++Builder 5.

Gracias!..

No me agradezcas, creo que debemos ayudarnos mutuamente entre programadores, y no te preocupes, soy un usuario activo de internet (pero no un ñoño, por supuesto), excepto cuando estoy de vacaciones.

Okay, no te preocupes, cosas como esas suelen suceder, y solo con la experiencia y colaboracion pueden resolverse.

Personalmente detesto usar un MaskEdit por lo tedioso del manejo, por ello he diseñado y modificado lo siguiente (en el evento OnKeyPress del Edit):

void __fastcall TForm2::Edit1KeyPress(TObject *Sender, char &Key)
{
       int caracter;
       caracter=Key;
       if((caracter>='a')&&(caracter<='z'))
        {
               tecla=0;
        }
       if((caracter>=48)&&(caracter<=57))
        {
                Key=caracter;
        }
      switch(caracter)
        {

                case 39:caracter=NULL;
                break;
                case -70:caracter=NULL;
                break;
                case 33:caracter=NULL;
                break;
                case 34:caracter=NULL;
                break;
                case -73:caracter=NULL;
                break;
                case 36:caracter=NULL;
                break;
                case 37:caracter=NULL;
                break;
                case 38:caracter=NULL;
                break;
                case 47:caracter=NULL;
                break;
                case 40:caracter=NULL;
                break;
                case 41:caracter=NULL;
                break;
                case 61:caracter=NULL;
                break;
                case 63:caracter=NULL;
                break;
                case -65:caracter=NULL;
                break;
                case -95:caracter=NULL;
                break;
                case 43:caracter=NULL;
                break;
                case -25:caracter=NULL;
                break;
                case 96:caracter=NULL;
                break;
                case 45:caracter=NULL;
                break;
                case 42:caracter=NULL;
                break;
                case 44:caracter=NULL;
                break;
                case 46:caracter=NULL;
                break;
                case 58:caracter=NULL;
                break;
                case 59:caracter=NULL;
                break;
                case 125:caracter=NULL;
                break;
                case 123:caracter=NULL;
                break;
        }
        Key=caracter;

}
//---------------------------------------------------------------------------

Este codigo también te elimina los caracteres especiales como son el +, el ., el *, etc. Supongo que podrás quitarle esto si no te es útil.

Hasta pronto.

Dame tu correo y te envìo el ejemplo, porque es muy largo para explicarlo, y lo de pintar los renglones dejame intentarlo y te digo si puedo.

Bueno, el error que te sale, no es precisamente un error en el código, es un error en Builder, un error que no se porque rayos ocurre y que la única forma que encontre para solucionarlo es borrando esa forma DE TODO EL proyecto, si no sabes como contestame y te lo explico.

Yo también me enfrente a este dilema hace poco cuando trabajé con matrices, afortunadamente un compañero y yo pudimos resolverlo.

Es de la siguiente forma:

void __fastcall Tmain::SpeedButton3Click(TObject *Sender)
{
      //Variables para recargar
        int i,j;
       
        for(i=0;i<=100;i++)  //Recargando
        {
                for(j=0;j<=100;j++)
               {
                       StringGrid10->Cells[j]="";
               }
        }
/*Nota: No coloques ningun espacio entre las comillas o te generará un error,
ponlo tal cual "" */
       
}

Si no le entiendes como funciona, te lo explicaré, solo responde este mensaje.

Estoy trabajando en un proyecto de base de datos, tengo el siguiente codigo que copia el contenido de un Query a Word.

void __fastcall TmQuick::SpeedButton16Click(TObject *Sender)
{
        OleVariant Template = EmptyParam;
        OleVariant NewTemplate = False;
        OleVariant ItemIndex = 1;

        try
        {
                try
                {
                WordApplication1->Connect();
                }
                catch (Exception &exception)
                {
                MessageDlg("Microsoft Word no está instalado.", mtError, TMsgDlgButtons() << mbYes, 0);
                Abort;
                }
                WordApplication1->Visible = True;
                WordApplication1->Caption = StringToOleStr("QuickSearch insert to Microsoft Word.");
                if (CheckBox1->Checked)
                {
                        WordApplication1->Documents->Add(Template, NewTemplate);
                        WordDocument1->ConnectTo(WordApplication1->Documents->Item(ItemIndex));
                }
                WordApplication1->Options->CheckSpellingAsYouType = False;
                WordApplication1->Options->CheckGrammarAsYouType = False;
                WordDocument1->Sentences->Last->Paste();
                WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr("Número: " + Query1->Fields->Fields[0]->AsString + '\n'));
                WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr("Especie:" + Query1->Fields->Fields[1]->AsString + '\n'));
                WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr("Autor: " + Query1->Fields->Fields[2]->AsString + '\n'));
                WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr("______________________________________________\n"));
                }
                catch (Exception &exception)
                {
                Application->ShowException(&exception);
                WordApplication1->Disconnect();
        }

}
//---------------------------------------------------------------------------

Quisiera copiar tambien la imagen que se muestra con un Query en un Timage, en el evento AfterScroll del Query, pero no se como hacerlo, alguien podría decirme como enviar la imagen a Word, muchas gracias.

Dado que una variable char es igual que una variable int, entonces supongo que puedes usar la función (o como se llame) uno.ToInt();, donde 'uno' es una variable AnsiString.

Espero que te sirva.

Hola, mi problema es que mi programa ocupa casi 11 MB de memoria RAM, y lo que quisiera es que ocupara el mínimo posible, me gustaría que alguien me dijera si hay forma de hacer esto.

Muchas gracias.  

Hola, este es el problema, cuando por ejemplo escribes en el Edit1 Abies, la cantidad de Abies que hay en la tabla es de dos, esto lo dice la el DBCaption que está con el Label que dice >>Coincidencias, el problema es que muestra todos los registros, cuando solo debería mostrar los que coinciden con la Búsqueda.

Les agradeceré mucho su ayuda, a quien este interesado, por favor que lo anuncie aquí junto con su e-mail, para enviar el archivo, ya que pesa 640 Kb y solo se permiten transferir 128 Kb.

Muchisimas gracias, les aseguro que es de vital importancia para mi.

Tambíen puede escribirme a edoardoo@lycos.es