este boton lo que hace es llamar a un explorador para seleccionar una imagen y guardala. yo guardo la ruta en la db, pero no quiero que me guarde el path completo, sino que quiero que me guarte en la misma carpeta de donde ejecuto el programa, por lo que se me ocurrio cortar el path de la siguiente manera:
· ponele que subo una foro que esta en c:\foto.jpg
· empiezo a copiar de atras para adelante a otro string hasta que haya una barra(\). me quedaria gpj.otof
· luego vuelvo a invertir el string para que me quede bien, foto.jpg
· y asi guardar el path con solo foto.jpg sin el c:\
espero hayan entendido y me puedan ayudar
tengo este pedaso de codigo y no me anda, creo que el problema esta en que no me toma el string c:
Código:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:string;i,j:integer;
begin
j:=0;
OpenDialog1.Execute;
DBEdit3.Text := OpenDialog1.FileName;
a:=DBEdit3.Text;
b:=a;
for i:=(length(b)-1) downto 0 do
begin
while b[i] <> '\' do
begin
c[j]:=b[i];
j:=j+1; // lo mismo si pongo inc(j)
end;
end;
b:='';
j:=0;
for i:=(length(c)-1) downto 0 do
begin
b[j]:=c[i];
j:=j+1;
end;
copyfile(Pchar(a),Pchar(b),false);
DBEdit3.Text:=b;
end;