Problemas con ficheros de datos

[nachoasensio]

Hola otra vez.

A ojo, creo que falta el else del if, para que cuando no encuentre más '|' guarde el último texto. Así, el if quedaría:

if Pos1 > 0 then
//Extraemos el texto del registro cont
Contenido[cont] := Copy(Texto, 1, Pos1-3)
// El -3 es para
// eliminar el salto de línea tras el texto
else
Contenido[cont] := Texto;

Un saludo

Nacho