A fordító kihagy egy vagy több kódsort

[Márki Zoltán]

A porogram egy társasházi számlát szeretne ellenőrizni.
Ehhez egy TMemo-ba betölti a számla szövegét(Abby Finereader) és ebből a szövegből készítene Egy TStrigGrid táblázatot.
Amikor is „Grid index out of range” hibajelzést kapok.
Olyan, mint ha a fordító kihagyná ezt a sort: Szla.RowCount:= Szla.RowCount + 1;
Nem sikerült rájönnöm a hiba okára. Tudna valaki segíteni?

procedure TForm1.SzlaLoad;
var i, j: integer;
S, M: string;
begin
if Scan.Text <> ” then begin
Szla.RowCount:= 1;
for I := 0 to Scan.Lines.Count-1 do
if JoSor(Scan.Lines[i]) then begin
Szla.RowCount:= Szla.RowCount + 1; // Olyan, mint ha a fordító kihagyná ezt a sort
S:= Scan.Lines[i];
for j := 0 to Szla.ColCount-1 do begin
M:= Copy(S, 1, (Pos(#9, S)-1));
Szla.Cells[j, Szla.RowCount – 1]:= M;
if Pos(#9, S)> 0 then Delete(S, 1, Pos(#9, S));
end;
Szla.Cells[Szla.ColCount-1, Szla.RowCount – 1]:= S;
end;
Szla.Row:= 1;
Szla.Col:= 0;
BList.Assign(Szla.Cols[3]);
StatusBar1.SimpleText:= Format(‘Feldolgozandó adatok száma: %d’, [Szla.RowCount – 1]);
end;
end;

[Szerző]

Bejegyzés