关于特性的问题，刚得的30分这回发出去：P(30分)

unit ttd;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TdmDataManage = class(TDataModule)
adqDataManage: TADOQuery;
dsDataManage: TDataSource;
private

protected
procedure SetSQL(const sSQl:TStrings);
function GetSQL(const Fieldname: String):TStrings;
public
procedure AddData(const Fieldcost : array of const);
procedure EditData(const Fieldname: array of string
const Fieldcost:array of string);
procedure DelData;
property mSQL: TStrings read GetSQL write SetSQl;//此处提示类型不一致
end;

var
dmDataManage: TdmDataManage;

implementation

{$R *.dfm}

{ TdmDataManage }

function TdmDataManage.GetSQL(const Fieldname: String): TStrings;
var
m : TStringList;
begin
m:=TStringList.Create;
dsDataManage.DataSet.First;
while Not dsDataManage.DataSet.Eof do
begin
m.Add(dsDataManage.DataSet.FieldValues[Fieldname]);
dsDataManage.DataSet.Next;
end;
result:=m;
end;


procedure TdmDataManage.SetSQL(const sSQl: TStrings);
begin
adqDataManage.Close;
adqDataManage.SQL.Clear;
adqDataManage.SQL.AddStrings(sSQL);
adqDataManage.Open;
dsDataManage.DataSet.Refresh;
end;

end.

请问是那的错误？我把TdmDataManage.GetSQL(const Fieldname: String): TStrings;
中的Fieldname的类型改成TStrings也不行，还是说类型错，谢谢

GetSQL中一定要加参数吗？

Delphi Help:
Key Word: Property access

In a read specifier, if fieldOrMethod is a method,
it must be a parameterless function (无参数函数 ) whose result type is
the same as the property抯 type.

给分给分,快点快点.你到底听到没有!!!!

可以不加，但是我觉得加好会好点。

将GetSQL的参数去掉
加个property FieldName :string read FFieldName write SetFieldName;

也只好如此了,一人10分吧；P