Hechas las primeras pruebas, la primera linea empieza por......tachan..... , pero en el codigo puesto, lo he modificado así:
Código Delphi
[-]procedure TF_Importa.Button1Click(Sender: TObject);
var
Registro : string;
Datos, ficherotemporal : TextFile;
caracteresignorar : integer;
PrimeraLinea : Boolean;
sl:tstringlist;
begin
if opendialog1.Execute then
begin
AssignFile(Datos, OpenDialog1.FileName);
Reset(Datos);
CaracteresIgnorar := 0;
try
while not EOF(Datos) do
begin
ReadLn(Datos, Registro);
if (PrimeraLinea) then
begin
if (Ord(Registro[1]) = $EF) and (Ord(Registro[2]) = $BB) and (Ord(Registro[3]) = $BF) then
CaracteresIgnorar := 3;
Registro := copy(Registro,CaracteresIgnorar, Length(Registro));
end;
sl.Add(Registro);
end; sl.SaveToFile('C:\Rebuts_1.0\Fitxers\Ranking\FicheroTemporal.txt');
finally
end;
end;
end;
ejecutando paso a paso , me dice que primeralinea := False, o sea que no pasa por el caracteresIgnorar y viendo que vale registro y siendo realmente la primera linea pues empieza por los caracteres descritos.
Algo sigo haciendo mal
Gracias
Josep