|
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
|