Mam za zadanie stworzyć pewna listę proszków. Robię to za pomocą komponentu ListView i pliku typowanego, do którego zapisuję rekordy. Potrzebuję informacji, w jaki sposób mam zliczać, ile w danej kolumnie jest jedynek. Próbowałem robić to w ten sposób:
function Procenty : Double;
var
i : Integer;
w : Integer;
x : Integer;
P : TProszekFile;
Rec : TProszek;
begin
AssignFile(P, 'proszki.dat');
if not FileExists('proszki.dat') then Result := 0
else
begin
Reset(P);
try
w := 0;
for i := 1 to FileSize(P) do
begin
x := Rec.Plamaa;
if x = 1 then w := w + 1;
end;
finally
CloseFile(P);
end;
Result := w;
end;
end;
No i teoretycznie skoro mam w pliku 'proszki.dat' zapisane 3 proszki, dla ktorych Rec.Plamaa = 1, to Result powinien wynosić 3, a program wyświetla mi 0. Nie chcę wrzucać całego kodu, bo jest trochę długi, a nie chce zaśmiecać, więc jeśli do określenia mojego błędu potrzebujecie jakichś szczegółów to będę wklejał odpowiednie linijki kodu. Dorzucę jeszcze tylko ten rekord:
TProszek = packed record
Name : String[30];
Temp : Integer;
Zuzycie : Integer;
Cena : Integer;
Plamaa : Integer;
end;
Będę ucieszony z każdej pomocy.