Cita:
For i:=0 to DBMemo2.Lines.Count-1 do
begin
Cadena := DBMemo1.Lines[i];
Writeln(F,Cadena);
end;
|
ojo a eso. ¿tienes enlazado el DBMemo a tEncabezado? ese filtro: 'CODIGO = ''00'''; ¿seguro que hace lo que tu quieres? ¿no te dejará el conjunto de datos vacio?