함수에서 Sender 가 Tfield 이면
if 문에서 어떤식으로 해주어야 할까요..
예를 들어 어떤 필드에서 이 함수를 호출 하면
procedure TForm1.CDS1AfterOpen(DataSet: TDataSet);
begin
DataSet.FieldByName('bunho').OnGetText := CDSGetText;
end;
procedure TForm1.CDSGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
if Sender.AsInteger = 0 then
text := '최상'
else
text := '최악';
end;
위에서 보면 필드가 bunho져... 그러면 sender는 field 가 bunho가 될텐데..
만액 다른 필드에서 호출 한다하면 text를 다른 값으로 주고 싶거든요..
DataSet.FieldByName('count').OnGetText := CDSGetText;
했을때
if Sender.AsString ='??' then
...
해야 하는데
위 함수에서 if 문으로 Sender를 구별 하고 싶거든여,,
if TField(Sender).FieldName = 'bunho' then text :='본호'
else text := '기타';