SoloCodigo

Buenas noches,
Ante todo decir que soy un novato en esto de la programacion Web.
Quiero empezar a programar con PHP , pero primero necesito instalar
el servidor Apache para windows.
Alguna me podria decir de donde  me lo puedo bajar directamente.

Saludos y gracias.

Hola a tod@s.

Tengo una base de datos Access, y desde delphi me conecto a ella mediante ADO.
En uno de los campo de una de las tablas tengo una foto(imagen de mapa de bits, o lo que es lo mismo un objeto OLE).

Lo que necesito saber es como puedo verlo con delphi.

Yo lo que he hecho ha sido añadir el objeto image y lo que leo de la tabla
asignarselo, pero no me funciona.

Saludos.

Hola,

necesito saber que procedimiento tiene un Adodataset para añadir un elemento a
una tabla de una base de datos.

es decir adodataset.insert   o    adodataset.update  o  adodataset.append  con
cual de estos puedo añadir un elemento en una tabla.


Gracias.

Buenas noches.

He añadido una barra de herramientas a mi formulario.Como es logico
le he añadido los iconos desde una imagelist.

Lo que necesito saber es si existe una propiedad o algo,que cuando en
modo ejecucion me posicione con el raton en alguno de los iconos, me
diga lo que es.

Es lo que en Visual Basic se llamaria ToolTipText.

Saludos.

Quisiera añadir en un fichero un nuevo registro, pero lo que me
ocurre es que machaca lo que habia y me añade el nuevo registro.He aqui el codigo


var

  Agenda : TipoListin;
  BackupName: string;
  FileHandle: integer;


begin
  if SaveDialog1.Execute then
  begin
    if FileExists(SaveDialog1.FileName) then
      FileHandle := FileOpen(SaveDialog1.FileName,fmOpenReadWrite)
    else
      begin
        FileHandle := FileCreate(SaveDialog1.FileName);
        FileHandle := FileOpen(SaveDialog1.FileName,fmOpenWrite);
      end;
      Agenda.Nom:=TxtNombre.Text;
      Agenda.Ape2:=TxtApellido.Text;
      Agenda.Telefono:=TxtTfno.Text;
      FileWrite(FileHandle, Agenda,SizeOf(Agenda));
      FileClose(FileHandle);
  end;

   close;
end;


Si alguien sabe algo, se lo agradecere.

Saludos.

Buenas noches.

Alguien sabe como crear un array de controles.

Por ejemplo , un array de botones, de tal forma que acceda a cada uno de
ellos por su indice.


Saludos.

Buenas noches a todos.

Existe alguna instruccion con la cual pueda dividir con decimales, ya que la
instruccion DIV solo permite la division entre integers.

Ejemplo:
               123,25 dividido entre 0,5  = 246,5

y ya puestos a preguntar con que tipo trabajo, float,real,variant.

Muchas gracias y perdonen mi ignorancia.

Saludos.

Hola a todos.

Tengo una funcion en Visual Basic

For Each ctl In frm.Controls
        Set ctl.Font = fnt
        sCtlType = TypeName(ctl)
        If sCtlType = "Label" Then
            ctl.Caption = LoadResString(CInt(ctl.Tag) + intIdioma)
        ElseIf sCtlType = "Menu" Then
            Select Case CInt(ctl.Caption) + intIdioma
                Case 2
                       ctl.Caption = "&Salir"
                Case 3
                       ctl.Caption = "&Idioma"
                Case 10
                       ctl.Caption = "&Opciones de BDs."
                Case 11
                       ctl.Caption = "&Compactar BDs."
                Case 12
                       ctl.Caption = "Co&pia de Seguridad"
            End Select
           
        ElseIf sCtlType = "TabStrip" Then
            For Each obj In ctl.Tabs
                obj.Caption = LoadResString(CInt(obj.Tag) + intIdioma)
                obj.ToolTipText = LoadResString(CInt(obj.ToolTipText) + intIdioma)
            Next
        ElseIf sCtlType = "Toolbar" Then
            For Each obj In ctl.Buttons
                obj.ToolTipText = LoadResString(CInt(obj.Tag) + intIdioma)
            Next
        ElseIf sCtlType = "ListView" Then
            For Each obj In ctl.ColumnHeaders
                obj.Text = LoadResString(CInt(obj.Tag) + intIdioma)
            Next
        Else
            nVal = 0
            nVal = Val(ctl.Tag) + intIdioma
            If nVal > 0 Then ctl.Caption = LoadResString(nVal)
            nVal = 0
            nVal = Val(ctl.ToolTipText)
            If nVal > 0 Then ctl.ToolTipText = LoadResString(nVal)
        End If
    Next


la cual por cada tipo que exista le voy cambiando el idioma a cada control.Es
decir si en mi formulario tengo menus,botones,labels,etc con la instruccion
TypeName(ctl) me dice de que tipo es el control y en base a eso yo actuo.

Me gustaria saber si existe algo parecido en Delphi.
Por un lado si creamos un bucle
for i:=0 to componentcount - 1 do ,puedo saber cuantos componentes hay e

ir uno por uno recorriendolos.Lo que necesito saber es de que tipo son cada
uno.

Saludos.