hallo,
es gibt einen kleinen fehler beim aufruf:
sg_asciiSelectCell(sg_ascii, j, i, True)
Delphi-Quellcode:
procedure Tfrm_main.sg_asciiSelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
in der deklaration ist der letzte parameter(CanSelect) als var deklariert. d.h. dieser parameter wird nicht als wert sondern als adresse übergeben. heißt im klartext, du musst beim aufruf eine boolean-
variable übergeben. einfach nur true reicht nicht.
anschließend sollte es funktionieren.
Delphi-Quellcode:
var BoolParam: Boolean;
begin
...
BoolParam := true;
sg_asciiSelectCell(sg_ascii, j, i, BoolParam);
...
hoffe es hilft.
martin