Witam. Kod dość oczywisty i zrozumiały, jednak błąd który otrzymuje po uruchomieniu programu jest nazwijmy to niespodziewany. Mianowicie "Access Violation at xxx....". Fgrid oczywiscie <> nil poniewaz pierwszy ShowMessage wyświetlany jest bez problemu. Problem pojawia sie dopiero w pętli for. Czy jest ktoś w stanie pomóc mi w wyjaśnieniu co robię źle?
function TframeRealizationClientFind.GetEmailsInString(FGrid : TAdvColumnGrid): string;
var
s : string;
i,N : integer;
state : boolean;
count : integer;
begin
N := FGrid.RowCount;
count := 0;
ShowMessage('W tabeli znajduje sie '+inttostr(N)+' wierszy');
for i:=1 to N-1 do
begin
if FGrid.GetCheckBoxState(0,i,state) then
begin
if state then
begin
count := count + 1;
end;
end;
end;
ShowMessage('Naliczono '+inttostr(count)+' elementow zaznaczonych');
end;