Witam mam taki kawałek kodu jak niżej i chyba jest za ciepło ponieważ nie mogę znaleźć błędu.
Jeśli był w procedurze drukuj to za każdym razem przy debugowaniu kursor wychodził mi z pętli for do begina i zerował trzy zminenne ijk a jest to niemożliwe
Teraz mam ten kawałek jako osobną procedurę i wywala błąd raised exception class EaccesViolation
Spróbuję jeszcze raz w domu wieczorem może się sypie Delphi 7 a może ja mam kłopoty ze wzrokiem.
Jeśli ktoś coś wymyśli to zapraszam do podzielenia się uwagami.
Pozdr AS
procedure TForm1.PrzygotujSpis;
var
s: string ;
ii,jj,kk,ll,m : integer;
begin
jj:=0;
kk:=0;
ll:=0;
for ii:= 1 to dl_tabeli do
begin
s:= StringGrid3.Cells[3,ii];
if s='Kęty 1' then
begin
Kety1[jj]:= StringGrid3.Cells[1,ii];
jj:=jj+1;
end
else if s='Kęty 2' then
begin
Kety2[kk]:= StringGrid3.Cells[1,ii];
kk:=kk+1;
end
else if s='Brzeszcze' then
begin
Brzeszcze[ll]:= StringGrid3.Cells[1,ii];
ll:=ll+1;
end ;
end ;
// wybieram która tablica jest najdłuższa
If jj > kk then ii:=jj
else ii:=kk;
If ii > ll then MTab:=ii
else MTab:=ll;
end;