mover imagen

[ZayDun]

acabo de probar el codigo y me da error..

" No declarado el identificador ExtractNumber" :S

[Northern]

Empezado por ZayDun

acabo de probar el codigo y me da error..

" No declarado el identificador ExtractNumber" :S

ExtractNumber() es una función que no viene en las VCL pero como su nombre indica se supone que extrae el número de la imagen.

Parece ser que las numeras: Image1, Image2, ...., Image200 ó algo por el estilo pues hay muchas maneras de extraer esos dígitos -1, 2, ..., 200- de Image. Por ejemplo:

Código Delphi [-]
function ExtractNumber(const aImageSt: string): Integer;
begin
  Result := IntToStr(Copy(aImageSt, 6, Length(aImageSt)));
end;

Saludos