Foros Club Delphi - invertir string, duda!!

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - invertir string, duda!! (https://www.clubdelphi.com/foros/showthread.php?t=60180)

invertir string, duda!!

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;

No te compliques la vida, usa la función ExtractFileName, que te devuelve justo lo que quieres: el nombre del archivo sin la ruta (path).

// Saludos

esa funcion me andubo perfecto, mil gracias

quedo una cosa asi ahora:

Código:

procedure TForm1.Button1Click(Sender: TObject);

var a,b:string;

begin

  OpenDialog1.Execute;

  DBEdit3.Text := OpenDialog1.FileName;

  a:=DBEdit3.Text;

  b:=ExtractFileName(a);

  copyfile(Pchar(a),Pchar(b),false);

  DBEdit3.Text:=b;

end;

pero ahora solo me toma el nombredel archivo, por lo que necesitaria agregarla la ruta de ejecucion del programa y noc de donde sacarla.

solo esta linea me faltaria cambiar:

b:=ruta de ejecucion del programa + '\' + ExtractFileName(a);

y tendria que usar quotedstr?

Pues usa

Código Delphi [-]ExtractFilePath(Application.ExeName);

Application.ExeName te da la ruta completa del ejecutable (incluido el nombre del archivo) y ExtractFilePath extrae la ruta.

// Saludos

mil gracias, andubo perfecto