Hola Amig@s,
Hace mucho tiempo que no ando por aqui, ya que hace mucho tiempo que no programo... pero ya estoy volviendo a las andadas, y por supuesto con dudas.
He empezado hacer algunos pinitos en Lazarus y estoy realmente bastante satisfecho, con el resultado y el proyecto Lazarus.
Bien vamos al grano, seguro es una tonteria pero estoy fuera de training y no se por donde agarrarlo.
El ejemplo es el siguiente:
... // aqui es donde la declaro public { public declarations } function TipoTelefono(var NroTel: String): String; // <-- Aqui me da el error ... implementation // Esta es la funcion en cuestion function TipoTelefono(var NroTel: String): String; begin if (NroTel[1]='8') or (NroTel[1]='9') then Result:='FIJO' else if (NroTel[1]='6') or (NroTel[1]='7') then Result:='MOVIL' end; // Y aqui es donde la uso procedure TForm1.Button1Click(Sender: TObject); var LineasArchivo, Campos: TStringList; Tip_Tel, Segundos, LineaReg: String; i,x: Integer; begin Campos:=TStringList.Create; LineasArchivo:=TStringList.Create; Label1.Caption:='Iniciamos el proceso de Carga...'; OpenDialog1.Execute; // Cargamos el archivo para procesar LineasArchivo.LoadFromFile(OpenDialog1.FileName); // Empezamos a procesar el Archivo for i:=1 to LineasArchivo.Count-1 do Begin LineaReg:=LineasArchivo[i]; Campos.DelimitedText:=LineaReg; // Creamos el arreglo Campos Tip_Tel:=Campos[3]; Campos.Add(TipoTelefono(Tip_Tel)); // Aqui la uso y me da el errror ... ... // Añado registros a MySQL con el arreglo Campos end; end;
En realidad el error me lo da en la compilacion del mismo en la parte de la declaracion de la funcion y este:
principal.pas(30,14) Error: Forward declaration not solved "TipoTelefono(var AnsiString):AnsiString;"
Pues si alguien sabe decirme que hacer os lo agradeceria