cortes de control
Publicado por franco (1 intervención) el 18/08/2003 06:06:53
alguien puede facilitarme algun codigo fuente que trate cortes de control en archivos de texto en pascal.
Valora esta pregunta
0
program CorteDeControl;
const
ArchivoEntrada = 'datos.txt';
CodigoCorte = '###';
var
Archivo: Text;
Linea: String;
begin
Assign(Archivo, ArchivoEntrada);
Reset(Archivo);
while not Eof(Archivo) do
begin
ReadLn(Archivo, Linea);
if Linea = CodigoCorte then
begin
Writeln('Corte de control alcanzado. Realizar operaciones necesarias.');
end
else
begin
// Procesar la línea según sea necesario
Writeln('Procesando línea:', Linea);
end;
end;
Close(Archivo);
end.