procedure TjvYearGrid.Edit1Click(Sender: TObject);var ds,s:string; acol,arow:integer; f:TYearGridEditF; CanChange:boolean; InfoText:string;begin acol:=col; arow:=row; if ((acol<1)or(arow<1)) then exit; ds:=YearData[col,row].displaytext; if (ds='') then exit; f:=TYearGridEditF.Create(application); InfoText:=YearData[acol,arow].infotext; f.Memo1.Text :=InfoText; if f.ShowModal =mrOK then begin InfoText:=f.memo1.text; Canchange:=true; if assigned(onInfoChanging) then onInfoChanging(self,InfoText,Canchange); if CanChange then begin YearData[col,row].infotext:=InfoText; if InfoText='' then YearData[col,row].custom:=false else if not YearData[col,row].custom then begin YearData[col,row].custom:=true; YearData[col,row].customcolor:= rgb(206,250,253); end; end; end; f.free;end;
if TMethod(@Self.GetTextBuf).Code = Pointer(@TControl.GetTextBuf)
This particular line raises a sigserv error :InfoText:=f.memo1.text;It breaks in control.inc at this line:if TMethod(@Self.GetTextBuf).Code = Pointer(@TControl.GetTextBuf)