Foros Club Delphi - Quitar extension de nombre de archivo

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

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

- - Quitar extension de nombre de archivo (https://www.clubdelphi.com/foros/showthread.php?t=6959)

Alejo

28-01-2004 19:51:56

Quitar extension de nombre de archivo

Ke tal forajidos del foro; como estan???
espero ke bien. pues ell titulo de la pregunta lo resume todo. tengo en un string el nombre de un archivo y deseo quitar su extension.

se que hay una funcion de delphi que hace esto pero es ke no encuentro mi cd con el trucomania... espero ke alguien me pueda ayudar!!!

Gracias

__hector

28-01-2004 20:12:36

No hay ninguna, sino ExtractFileName, pero esa te trae tambien la extension.

Puedes construirte una utilizando pos, copy, ExtractFileName y ExtractFilePath para construirte una a tu medida. Algo como:

Código:

var 

Archivo : string;



begin

   archivo := copy(ExtractFileName(Application.ExeName), 1, pos(ExtractFileExt(Application.Exename), ExtractFileName(Application.ExeName)) - 1);

end;

romeroja

28-01-2004 20:24:55

Encontre esta funcion que permite cambiar la extension

Código:

var 

  Fichero: string;

begin 

  Fichero := ChangeFileExt('archivo.txt', '.htm')

end;

'archivo.txt' seria tu String y en tu caso en ves de '.html' solo colocas ' ' y listo lo probe y funciono :)

La franja horaria es GMT +2. Ahora son las 02:24:00.