Leer EAN128

[[duilioisola]]

Los primeros número significan algo: http://es.wikipedia.org/wiki/GS1-128...plicaci%C3%B3n
Quizás podrías saber cuando empieza un nuevo código. Por ejemplo, cuando el prefijo sea 01.

Código Delphi [-]
// Mientras haya líneas en el Memo
while (Memo.Lines.Count > 0) do
begin
  Finalizar := False;
  Lectura := '';

  // Trabajo con la primera linea, borrandola después de tratarla
  // Si es el comienzo de un código nuevo, salgo del bucle.
  while ((not Finalizar) and (Memo.Lines.Count > 0)) do
  begin
    // Concateno la primera linea del Memo al resultado
    Lectura := Lectura + Memo.Lines[0];

    // Si La linea es el comienzo de un nuevo código salgo
    // Sino borro la linea leida
    if (copy(Memo.Lines[0], 1, 2) = '01') then
      Finalizar := True;
    else
      Memo.Lines.Delete(0);
  end;
  
  // Proceso el código leido
  Procesar(Lectura);
end;