招待语句DrawText(DBGrid1.Canvas.Handle,Column.Field.AsString,-1,Rect,DT_SINGLELINE or DT_VCENTER or DT_CENTER); 提示 [Error] Unit1.pas(142): Incompatible types: 'String' and 'PAnsiChar' 怎么解决？

My fault 

你好： 試試下面的程式碼 >> ( src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">

引言: 你好： 試試下面的程式碼 >> (>< face="Verdana, Arial, Helvetica"> 运行有错误，提示[Error] Unit1.pas(142): Constant object cannot be passed as var parameter，我的程序如下： procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if Column.Field.DataSet.RecNo mod 2 =0 then begin DBGrid1.Canvas.Brush.Color:=clScrollBar; DBGrid1.Canvas.FillRect(Rect); end; DrawText(DBGrid1.Canvas.Handle,PChar (Column.Field.AsString),-1,Rect,DT_SINGLELINE or DT_VCENTER or DT_CENTER); end; 發表人 - coldcoffee 於 2003/07/14 22:18:04

你好： 原因是參數類型不正確，請看下面的例子。紅色是錯誤原因，藍色是需要修改或增加的地方。試試吧 >> >> >> >>, src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">