怎样用变量(或其它类型)替代方法或属性(100分)

Var Dept:=string;（也可能不是字符串型式，而是其它的类型）

Dept:='ADODataSet1Dept.value';

当我们打入或类似打入Dept:='123' 时，他的实际操作就是 ADODataSet1Dept.value='123'

用参数啦 format

属性可以。方法替代？学习

动态调用dll的时候，不就是声明的指向函数的变量么，vcl里面有不少例子的
type TMode = procedure
stdcall;
var
dllhandle:Thandle;
windprogram:Tmode;
begin
dllhandle := loadlibrary(pchar'c:/mode.dll'));
try
@windprogram := GetProcAddress(dllhandle, 'WINDPROGRAM');
if assigned(windprogram) then
windprogram;
finally
freelibrary(dllhandle);
end;
end;

参数。ADODataSet1.下有个PARA什么的。东西可以做到

定义一个类
unit Unit1;

interface

uses ADODB;

type
TMyObject = class
private
FADOQuery: TADOQuery;
function GetDept: string;
procedure SetDept(const Value: string);
public
property Dept: string read GetDept write SetDept;
end;

implementation

{ TMyObject }

function TMyObject.GetDept: string;
begin
Result := FADOQuery.FieldByName('Dept').Asstring;
end;

procedure TMyObject.SetDept(const Value: string);
begin
FADOQuery.FieldByName('Dept').Asstring := Value;
end;

procedure HandleObject
var
MyObject: TMyObject;
begin
MyObject := TMyObject.Create;
MyObject.Dept := '123'
//这个相当于给数据集里的字段写值
end;

end.


其它的操作如怎么给数据集什么的，自己再想想办法

接受答案了.