Pascal Air Quality Index Calculator: Analyzing Measurement Files
FUNCTION fnboIndizeakKalkulaturikBai (sFitxIzen : tsKateLuze) : Boolean ;
VAR
f: tfrdNeurketenFitxategia;
rdNeurketaBat: trdNeurketa ;
boKalkulatuak: Boolean ;
iNeurketaKopurua : Integer ;
BEGIN
boKalkulatuak := TRUE ;
Assign(f, sFitxIzen) ;
Reset(f) ;
iNeurketaKopurua := FileSize(f) ;
IF 1 <= iNeurketaKopurua THEN
BEGIN
Seek(f, iNeurketaKopurua - 1) ;
Read(f, rdNeurketaBat) ;
IF rdNeurketaBat.iKI = -1 THEN
boKalkulatuak := FALSE ;
END ;
Close(f) ;
fnboIndizeakKalkulaturikBai := boKalkulatuak ;
END ;
Behatokiaren Zerrenda Lortu
PROCEDURE BehatokiarenZerrendaLortu (sFitxIzen : tsKateLuze ;
sBehatokiBat : tsKateLabur ;
VAR ardNeurketenZerrenda : tardNeurketenZerrenda ;
VAR iLuzera : Integer) ;
VAR
f: tfrdNeurketenFitxategia;
rdNeurketaBat : trdNeurketa ;
BEGIN
iLuzera...