Programa de Facturacion, Inventarios, Produccion, Completo

[[movorack]]

un función que uso siempre. un dia me encontré con ella en Internet y me enamoré de sus ojos.

Código Delphi [-]
function TForm.AppPath(): String;
var x,y:string;
begin
  x := ParamStr(0);
  y := ExtractFileName(ParamStr(0));
  Result := copy(x,0,length(x) - length(y));
end;

[Fenix_Xanadu]

Pues ya todo quedo aclarado..................................... y el programa esta muy bien.....................
y ahora a anaoizar con detalle para aprender más.

[dec]

Hola,

Empezado por movorack

un función que uso siempre. un dia me encontré con ella en Internet y me enamoré de sus ojos.

Código Delphi [-]
function TForm.AppPath(): String;
var x,y:string;
begin
  x := ParamStr(0);
  y := ExtractFileName(ParamStr(0));
  Result := copy(x,0,length(x) - length(y));
end;

Me llamó la atención el código... ¿no se consigue lo mismo usando la función "ExtractFilePath"?

Parece que sí, pero, lo mismo se me está escapando algo.

Código Delphi [-]
var
  appPath: string;
begin
  appPath := ExtractFilePath(ParamStr(0));
end;

[roman]

Bueno, pero si algún día se descompone ExtractFilePath, ahí tienes una opción

// Saludos

[Casimiro Noteví]

jejeje, sí, parece otra de esas "maravillosas" funciones que todos tenemos y que un día descubrimos que ya existe alguna función en el sistema que hacía exactamente lo mismo y no lo sabíamos

[[movorack]]

jejeje, sí, parece otra de esas "maravillosas" funciones que todos tenemos y que un día descubrimos que ya existe alguna función en el sistema que hacía exactamente lo mismo y no lo sabíamos

así parece... La anotaré en mi lista de osos.

-- Por otro lado, no se que opinen y con el permiso del autor. que tal si se sube el proyecto a SourceForge? con licencia y todo. Y entre la comunidad de ClubDelphi se desarrolla, se usa y además se aprende creando un verdadero software Open Source.