Hola, tengo este código:
Código Delphi
[-]
function BuscaUltimo(u: Char; cadena: string): integer;
var n: integer;
begin
Result:= 0;
n:= 1;
while n <= length(cadena) do
begin
if cadena[n] = u then Result:= n;
Inc(n);
end;
end;
directorio_medio2:='C:\MEDIOS\MEDIO2\'; directorio_fecha:=IntToStr(Trunc(Now*24*3600*60));
directorio_medio2:=directorio_medio2+directorio_fecha+'\';
pos:=BuscaUltimo('\','C:\FOTO_PARA_IMPRIMIR\foto_a_imprimir.bmp');
directorio_medio2:=nombre_fichero;
No me crea el directorio_fecha, y por tanto no está el fichero bmp.
Alguna otra idea?.He probado con concat,pero no me sale nada.
Por favor,si sabes de alguna idea que hayas probado y funcione,
te diré que gracias.
Saludos.