unit graficos;

interface
uses dbtables,checa;

procedure graficar(coordenada,ordenada1,ordenada2,ordenada3:String;TablaDatos:TTable);
implementation

{function ruta(linea:integer):String;
var
arch:TextFile;
aux:string;
i:integer;

begin
AssignFile(arch,'c:\Proyecto\Sistema\General.cnf');
Reset(arch);
for i:=1 to linea do
Readln(arch,aux);
CloseFile(arch);
ruta:=aux;
end;}


procedure graficar(coordenada,ordenada1,ordenada2,ordenada3:String;TablaDatos:TTable);
type
datos=record
c:String[10];
o1:Real;
o2:Real;
o3:Real;
end;

var
max:Real;
dato,dato2:datos;
arch:file of datos;
arch2:TextFile;

cambio, barras:integer;
begin
max:=0;
cambio:=0;
barras:=0;
if ordenada1<>'' then
begin
barras:=barras+1;
end;
if ordenada2<>'' then
begin
barras:=barras+1;
end;
if ordenada3<>'' then
begin
barras:=barras+1;
end;
TablaDatos.First;
AssignFile(arch,leeruta+'\tempo\graf.gra');
Rewrite(arch);
{write(dato);}
While not TablaDatos.Eof do
begin
dato.c:=TablaDatos.FieldByName(coordenada).AsString;
if ordenada1<>'' then
dato.o1:=TablaDatos.FieldByName(ordenada1).AsFloat
else
dato.o1:=0;
if ordenada2<>'' then
dato.o2:=TablaDatos.FieldByName(ordenada2).AsFloat
else
dato.o2:=0;

if ordenada3<>'' then
dato.o3:=TablaDatos.FieldByName(ordenada3).AsFloat
else
dato.o3:=0;

cambio:=0;

{Seek(arch,0);}
{While not Eof(arch) do
begin
end;}

if max<dato.o1 then
max:=dato.o1;

write(arch,dato);
TablaDatos.Next;

end;

CloseFile(arch);

AssignFile(arch2,leeruta+'\tempo\congra.gra');
Rewrite(arch2);
Writeln(arch2,max);
Writeln(arch2,barras);
CloseFile(arch2);

end;




end.