procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if adoquery1.Fieldbyname('数量').value<=SpinEdit1.value then DBGrid1.Canvas.Brush.Color:=ClYellow; else DBGrid1.Canvas.Brush.Color:=ColorGrid1.BackGroundColor; DBGrid1.Canvas.FillRect(Rect); DBGrid1.Canvas.TextOut(Rect.left+2,Rect.top+2,Field.AsString);end;报错的提示是[Error] Unit1.pas(110): Illegal character in input file: ' ' ($A1A1)
[Error] Unit1.pas(112): Illegal character in input file: ' ' ($A1A1)
[Error] Unit1.pas(114): Illegal character in input file: ' ' ($A1A1)
[Error] Unit1.pas(116): Illegal character in input file: ' ' ($A1A1)
[Error] Unit1.pas(118): Illegal character in input file: ' ' ($A1A1)
[Error] Unit1.pas(118): Illegal character in input file: '+' ($A3AB)
[Error] Unit1.pas(118): Illegal character in input file: '+' ($A3AB)
[Error] Unit1.pas(137): Illegal character in input file: ' ' ($A1A1)
[Fatal Error] Project1.dpr(7): Could not compile used unit 'Unit1.pas'
Field: TField; State: TGridDrawState);
begin
if adoquery1.Fieldbyname('数量').value<=SpinEdit1.value then DBGrid1.Canvas.Brush.Color:=ClYellow; else DBGrid1.Canvas.Brush.Color:=ColorGrid1.BackGroundColor; DBGrid1.Canvas.FillRect(Rect); DBGrid1.Canvas.TextOut(Rect.left+2,Rect.top+2,Field.AsString);end;报错的提示是[Error] Unit1.pas(110): Illegal character in input file: ' ' ($A1A1)
[Error] Unit1.pas(112): Illegal character in input file: ' ' ($A1A1)
[Error] Unit1.pas(114): Illegal character in input file: ' ' ($A1A1)
[Error] Unit1.pas(116): Illegal character in input file: ' ' ($A1A1)
[Error] Unit1.pas(118): Illegal character in input file: ' ' ($A1A1)
[Error] Unit1.pas(118): Illegal character in input file: '+' ($A3AB)
[Error] Unit1.pas(118): Illegal character in input file: '+' ($A3AB)
[Error] Unit1.pas(137): Illegal character in input file: ' ' ($A1A1)
[Fatal Error] Project1.dpr(7): Could not compile used unit 'Unit1.pas'
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货