Duda de principiante

[sofiaz]

no mira, lo que quiero evitar es esto (es mi solucion transitoria, que es horrible...):

Código Delphi [-]
procedure MostrarPila1(var pila:tipopila;var pos:reparto.tipopos; var numImage:integer);
var
  cartaSimple:reparto.TipoRegPila;
  cadena,xx:string;
begin
    if pos<>_posNula
      then begin
           reparto.capturar(montones,pos,cartaSimple);
           pos:=cartaSimple.enlace;
           MostrarPila1(montones,pos,numImage);
           LugarImagen(numImage,cartasimple);
           Form1.listBox2.additem(inttostr(cartaSimple.numero)+'  '+cartasimple.color, Form1.ListBox2);
           numImage:=numImage+1;
           end;
end; 


procedure LugarImagen(n:integer; cartasimple:tiporegpila);
var
cadena:string;
begin
   cadena:=inttostr(cartasimple.numero)+cartasimple.color;
   with form1 do
   begin
      case n of
        6: image6.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
        7: image7.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
        8: image8.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
        9: image9.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       10: image10.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       11: image11.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       12: image12.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       13: image13.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       14: image14.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       15: image15.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       16: image16.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       17: image17.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       18: image18.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       19: image19.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       20: image20.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       21: image21.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       22: image22.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       23: image23.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       24: image24.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       25: image25.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');

... y sigue muuucho mas...

creo que tiene que haber una solucion si yo pudiera cambiar la sintaxis de lo que anteriormente puse en color.... si yo pudiera cambiar con una variable a que numero de Image quiero cargar la imagen... me explico mejor??

[[Caral]]

Hola
Te explicas bien el que no lo hace bien soy yo.
Como te dije me parece que lo mejor es eliminar el uso de la busqueda de la imagen en un archivo y usar un form adicional en donde simplemente se ponen las imagenes y se buscar por componente asi se hace con menos codigo y creo que mas facil.
Saludos

[Neftali [Germán.Estévez]]

Empezado por sofiaz

no mira, lo que quiero evitar es esto (es mi solucion transitoria, que es horrible...):

Realmente, es horrible!!!
Lo bueno es que lo reconozcas y quieras arreglarlo...
Sé de más de uno que la dejaría así sin ningún remordimiento.

Código Delphi [-]
...   begin
      case n of
        6: image6.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
        7: image7.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
        8: image8.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
        9: image9.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       10: image10.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       11: image11.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       12: image12.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       13: image13.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       14: image14.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       15: image15.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       16: image16.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       17: image17.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       18: image18.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       19: image19.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       20: image20.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       21: image21.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       22: image22.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       23: image23.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       24: image24.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
       25: image25.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');

La forma de evitar esto, es utilizar FindComponent.
Con esta función puedes acceder a un componente a partir de una cadena con su nombre.
De esta formas teniendo la variable i y todos los componentes que se llaman image6, image7, image8,... puedes generar un código similar a este:

Código Delphi [-]
var
  compName:string;
  i:integer;
  comp:TComponent;
begin
  for i := 1 to 5 do begin
    // Montar el nombre del componente
    compName := 'image' + IntToStr(i);
    // Usar findcomponent con la cadena
    comp := FindComponent(compName);
    // Nos aseguramos de que lo ha encontrado?
    if Assigned(comp) then begin
      // modificamos el valor
      TImage(comp).Picture.LoadFromFile('r:\imgTest.bmp');
    end
    else begin
      ShowMessage('No he encontrado el componente: ' + compName);
    end;
  end

[[Caral]]

Hola
La forma en que lo hago yo es exacta a la que Neftali te a propuesto, de hecho la aprendí de el.
Lo único que si hago es cargar las imágenes en otro form y llamarlas de ahí, pero es lo mismo.
Saludos

[sofiaz]

gracias neftali!!!! creo que eso es exacto lo que andaba buscando.
y gracias ecfisa tambien. Ambas soluciones las voy a probar, recien mañana me puedo poner otra vez con eso.
Muchas gracias por contestar a todos!

[sofiaz]

ahora si Neftali, lo hice.
tu solución es perfecta.
saque 110 lineas de código de mas, gracias!

[Neftali [Germán.Estévez]]

[Casimiro Noteví]

Empezado por juanaHer

hola soy nueva tambien! y tengo una consulta por un procedimiento recursivo.. el ejercicio es el siguiente: existte una variable de tipo sting denominada FRASE que contiene una leyenda con una palabra delimitada por un par de asteriscos. tambien existe otra variable denominada SUSTITUTO que contiene una palabra. POR EJEMPLO frase: SI LOS PUEDES *ENTENDER* LOS PUEDES PROGRAMAR
SUSTITUTO: IMAGINAR.
Mi proceso recursivo debe devolver la frase con la palabra entender reemplazada por el sustituto... muchisimas gracias!

Bienvenido, no olvides leer nuestra guía de estilo, gracias