procedure TFormDemo.ADOTable1FIDGetText(Sender: TField; var Text: String; DisplayText: Boolean); begin case Sender.Value of 1: Text := '第一条'; 2: Text := '第二条'; ...... end; end;
SQL语句,select '第'+id+'一条' from ......
SQL语句,select '第'+Str(id)+'条' as fieldname from ......
DisplayText: Boolean);
begin
case Sender.Value of
1: Text := '第一条';
2: Text := '第二条';
......
end;
end;