Comparar cadenas de caracteres sacadas de un fichero

[papulo]

Empezado por Casimiro Notevi

Si son registros de longitud fija lo tienes sencillo.

Sin que sirva de precendente (dicese de algo que va antes de)...
¿Me lo expliquen?

¿Que quieres decir con eso?

[Casimiro Notevi]

que si el fichero es de una forma parecida a esta, tiene una cabecera y luego los registros en sí:
xx bytes -> cabecera de longitud la que sea (puede no tener cabecera)
64 bytes -> datos de un registro
64 bytes -> datos de otro registro
64 bytes -> datos de un registro más
64 bytes -> etc...

cada uno de esos 64 bytes (es un ejemplo), pueden estar subdivididos en los campos de la tabla:
08 bytes -> código
32 bytes -> descripción (es el dato que te interesa, creo)
08 bytes -> precio
xx bytes -> etc...


Si este fuese el caso tan sólo tendrías que "saltar" la cabecera y luego leer/saltar a intervalos fijos para los datos que te interesan de cada registro.

Aunque seguro que esta posibilidad ya lo habrás comprobado, era sólo por dar una idea más.

[papulo]

Negativo, casimiro, no es de longitud fija.Si lo fuera sería un chollete.

[Casimiro Notevi]

al menos podrían decirte qué tipo de archivo es

[papulo]

He aquí la solución al final. Ya funciona perfectamente y esas cosas.

Si no se entiende, la explicaré (lo cual no dice que sea la mas óptima y la mas eficiente y la mas bonita y... pero me la he currao como he podido)

Código Delphi [-]
procedure TfGlobal.CalcularStarCross;
var
  CharSelected: string;
begin
  sStartCross := '';
  buffer := BuildIniFile.ReadString('XREFER_PARAMETERS', TempList.Strings[1], ''); //Leo el sStarCross del INI
  CharSelected := AnsiLeftStr(buffer, 1);
  buffer := AnsiRightStr(buffer, Length(buffer) - 1);

  repeat
    if (CharSelected <> ',') and (CharSelected <> '[') and (CharSelected <> ']') and (CharSelected <> Chr(39)) then
      begin
        buffer2 := buffer2 + CharSelected;
        CharSelected := AnsiLeftStr(buffer, 1);
        buffer := AnsiRightStr(buffer, Length(buffer) - 1);
      end
    else
      if (CharSelected = ',') then
        begin
          sStartCross := sStartCross + Chr(StrToInt(buffer2));
          CharSelected := AnsiLeftStr(buffer, 1);
          buffer := AnsiRightStr(buffer, Length(buffer) - 1);
          buffer2 := '';
        end
      else
        begin
          CharSelected := AnsiLeftStr(buffer, 1);
          buffer := AnsiRightStr(buffer, Length(buffer) - 1);
        end;
  until CharSelected = ']';

  sStartCross := sStartCross + Chr(StrToInt(buffer2));
  CharSelected := AnsiLeftStr(buffer, 1);
  buffer := AnsiRightStr(buffer, Length(buffer) - 1);
  buffer2 := '';
end;

Después de esta, paso a "Novato en Delphi 88%"