Necesito ayuda
hOLA a todos!!
Tengo un problemilla con un método. Me da un error en el case of y no se porque. El código es el siguiente:
procedure TTFormEnvConfig.SeleccionarDirectorio(Sender: TObject);
var
opcion: string;
begin
case (Sender as TComponent).Tag of
1: opcion:=DirTrabajo.text;
2: opcion:=DirTmp.text;
3: opcion:=DirIconos.text;
4: opcion:=DirConsola.text;
5: opcion:=DirInternet.text;
6: begin
DirCompilador.InitialDir := rutaCompilador;
if DirCompilador.Execute then
editDirCompilador.Text := DirCompilador.FileName;
end;
end;
end;
El error me lo da donde está la linea roja...("Error:Original type required")
Gracias de antemano a todos
Un saludo
|