es posible abrir imagen asi: edit1.text+'*.jpg'

[jpcancino]

Si, es que entiendan que no se como preguntarlo, es el uso de un comodín, pero para que me entiendan les voy a explicar con más detalle mi problema.
El problema es que tengo una lista de productos, los cuales estan asociados a un código, y cada producto tiene una imagen que lleva como nombre el código. El problema es que en la tabla donde se encuentra el código del producto, la descripcion, el nombre, etc el código esta sin dígito verificador, pero el nombre de la imagen es el código más un guión y el dígito verificador. Entonces el código siempre será único, por eso necesito una especie de comodín para los siguientes dos caracteres, que serán el guión más el dígito verificador (el cual no me he dado a la tarea de deducir que regla utilizan para obtener el dígito), en realidad sólo para el dígito verificador, y abrir la imagen en un Timage.

Espero que haya quedado más claro.

Saludos y disculpen lo confuso del primer post.

[roman]

Vamos a ver:

Lo que estoy entendiendo de tu pregunta es esto:

Tienes una tabla de productos con los campos del código y nombre de la imagen entre otros.

El nombre de la imagen está formado por el código más un guión y un dígito y el problema para abrir la imagen correspondiente es que no sabes cuál es dicho dígito pero sí sabes que sólo habrá una imagen cuyo nombre comience con dicho código, esto es, no puede haber dos imagenes, por ejemplo, con nombres tales como 'cpbhu-2.jpg' y 'cpbhu-8.jpg'.

Enfatizo lo último ya que es importante para el método que te propongo.

Lo que tienes que hacer, dicho en forma descriptiva, es primero buscar un archivo cuyo nombre comience con la cadena 'cpbhu-' (siguiendo el ejemplo) y, quizá no tan necesario, termine con '.jpg'.
Como sólo habrá un archivo así, una vez encontrado tomas su nombre y lo usas para abrir la imagen.

Para encontrar el archivo puedes usar la función FindFirst. En el código que te pongo estoy suponiendo que la imagen la vas a presentar en una componente Image1:

var
  SearchRec: TSearchRec;

begin
  try
    if FindFirst('cpbhu-?.jpg', faArchive, SearchRec) = 0 then
      Image1.Picture.LoadFromFile(SearchRec.Name)
    else
      raise Exception.Create('No se encuentra la imagen');
  finally
    FindClose(SearchRec)
  end;
end;

Ya sólo tienes que sustituir 'cpbhu-?.jpg' por una cadena adecuada usando lo que viene de tu edit, por ejemplo:

Format('%s-?.jpg', [Edit1.Text])

// Saludos

[DarkByte]

Empezado por roman

Format('%s-?.jpg', [Edit1.Text])

Por un momento creí que le ibas a decir que hiciese un

s|Format c: /q

xD, esa sería la solución a todos sus problemas... ¿no os entran ganas de hacer eso cuando no os sale nada?¿cuando os va más que lento el pc?

[jpcancino]

Muchas gracias por tu ayuda, me servirá mucho.
En la mañana lo pruebo

Saludos