1 respuesta en este tema

[Master23]

Quiero hacer esto con Delphi tal y como lo hago en php,espero que me puedan ayudar.

php

Class Conexion{ 
  public function con()
     {   
       $con = mysql_connect("localhost","nombre","pass");  
        mysql_query("SET NAMES 'utf8'");   
        mysql_select_db("tabla");   
        return $con;
    }
}
Class Accion{
  public function accion()
    {  
       $sql="select * from tabla "; 
       $resultado=mysql_query($sql,Conexion::con()); 
       while($reg=mysql_fetch_array($res)){  
        echo "<img src=".$reg["nombre"]."'>";    
      }  
}

eso es un ejemplo básico es decir que mientras haya registros valla , haciendo lo mismo publicando el siguiente arreglo , hasta llegar al final,es decir mostrando los datos que recibe y que ha convertido en array todos obtener ese string que devuelve y luego asignárselo a un componente,gracias de antemano.

[off-topic]
Edito: para colocar la etiqueta correspondiente de PHP
[/off-topic]

[bigleaguer]

Quiero hacer esto con Delphi tal y como lo hago en php,espero que me puedan ayudar.
Class Conexion{
  public function con()
    { 
      $con = mysql_connect("localhost","nombre","pass"); 
        mysql_query("SET NAMES 'utf8'"); 
        mysql_select_db("tabla"); 
        return $con;
    }
}
Class Accion{
  public function accion()
    { 
      $sql="select * from tabla ";
      $resultado=mysql_query($sql,Conexion::con());
      while($reg=mysql_fetch_array($res)){ 
        echo "<img src=".$reg["nombre"]."'>";   
      } 
}
eso es un ejemplo básico es decir que mientras haya registros valla , haciendo lo mismo publicando el siguiente arreglo , hasta llegar al final,es decir mostrando los datos que recibe y que ha convertido en array todos obtener ese string que devuelve y luego asignárselo a un componente,gracias de antemano.

Saludos Master23, lo que entiendo es que quieres recorrer los registros que obtienes de la consulta y pasarlos a un componente ó variable. De ser asi entonces creo que este código te debe servir:

delphi

var  
  sql, variable: string;
begin
  sql := 'select * from tabla';
  TQuery.Close;
  TQuery.SQL.Text := sql;
  TQuery.Open;
 
  // Recorremos cada registro del Query y lo asignamos a la variable
  while not TQuery.Eof do
  begin
    //Aqui asignas el valor al componente ó variable        
    variable := TQuery.FieldByName('nombre').AsString;
    // Avanzamos al siguiente registro de la consulta
    TQuery.Next;
  end;
end;