FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
Procedimiento read
Hola a todos, tengo el siguiente codigo que segun yo debe leer un archivo, el archivo contiene la sig. informacion:
tiempo X Y Z Conc. Intervalo1 ConcIntervalo2 0, 2, 2, 6, 437273.397853, 3453867.423908,.......etc Código:
const M=2; Ncx=10; Ncy=10; Ncz=10; fuenteX=1; fuenteY=5; fuente=5; var ConcXY:TextFile; ni: array[1..M,0..Ncx,0..Ncy,0..Ncz,0..1]); x,y,z,k: Integer; Implementation procedure TForm1.Button1Click(Sender: TObject); begin AssignFile(ConcXY,'ConcXY.txt'); {$I-}reset(ConcXY);{$I+} for x:=0 to Ncx do begin for y:=0 to Ncy do begin for z:=0 to Ncz do begin if z=fuenteZ then begin for k:=0 to M do begin if k=M then begin readln(ConcXY,ni[k,x,y,z,0]); end else begin read(ConcXY,ni[k,x,y,z,0); end; end; // graficar end; end; end; end; end; Este codigo me da el siguiente Error: Invalid Numeric Imput Agradesco a quien se tome la molestia de contestarme. Salu2 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|