HOLA!
yo no hago la introduccion del fichero. la hace el 'programa origen' y realmente no se como la hace!
yo parto del fichero TXT generado por este programa y a partir de él, lo leo linea a linea (ReadLn) y voy introduciendo campo a campo.
alguna idea?
se me ha ocurrido q komo no le falta esa linea ponerla yo!
algo asi
[list=a]
if FileExists('C:\Ofipro\GesProEasy\Emp1\EXPORTA\articulos.Txt') then
begin
AssignFile(F, 'C:\Ofipro\GesProEasy\Emp1\EXPORTA\articulos.Txt');
{$I-}
//abro el archivo
Reset(F);
{$I+}
//leo la linea
ReadLn(F,c);
while not Eof(F) do
begin
ReadLn(F,c);
end;
if eof(F) then
begin
writeln(F, #13);
end;
end;[/list=a]
pero no me deja escribir xq no esta en modo escritura!!!
he probado varias cosas pero nada
