BlockWrite y BlockRead en archivos de longitud variable
Publicado por Agustin (2 intervenciones) el 01/05/2017 01:17:06
Hola, estoy tratando de cargar un archivo de longitud variable con nombres separados por # pero no funciona la operacion BlockWrite y no entiendo porque.
En la linea que no funciona Lazarus dice Error: variable identifier expected
Alguien tiene idea de por que? Gracias !
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Procedure CrearArchivo (var a: file);
Var
nombre: string;Begin
Rewrite(a, 1);{Tamaño en Bytes de los bloques que se van a usar para la escritura}
Write ('Nombre: ');
Readln(nombre);
While (nombre <> '') do begin
BlockWrite(a, nombre, length(nombre)+1); {Cantidad de bloques a escribir en el archivo}
BlockWrite(a,'#',1); {no funciona}
Write('Nombre: ');
Readln(nombre);
end;
Close(a);
end;
En la linea que no funciona Lazarus dice Error: variable identifier expected
Alguien tiene idea de por que? Gracias !
Valora esta pregunta
0