Tema: Como saca la extension?
Ver Mensaje Individual
  #6  
Antiguo 05-05-2008
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
  
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Sacar ext
Así lo extrae:

procedure TForm1.Label1DblClick(Sender: TObject);
begin
 with OpenDialog1 do
 begin
if Execute then
Label1.Caption:= copy(ExtractFileName(FileName), 1,
Pos('.',ExtractFileName(FileName))-1);
end;
end;
Responder Con Cita