C#这种字符串在delphi中有吗？

Question

        private string classteacher
        {
            get
            {
                return this.tbTeacher.Text.Trim();
            }
            set
            {
                this.tbTeacher.Text = value;
            }        }
        private string classseq
        {
            get
            {
                return this.dataGridView1.Rows[dataGridView1.CurrentRow.Index].Cells["fdClassSeqDataGridViewTextBoxColumn"].Value.ToString();
            }
            set
            {
                this.dataGridView1.Rows[dataGridView1.CurrentRow.Index].Cells["fdClassSeqDataGridViewTextBoxColumn"].Value = value;
            }        }

Answer 1

有的。你上面的代码用Delphi一样可以实现

Answer 2

这个我知道，我就是想知道这种字符串在delphi中有没有!就是delphi有没有get\set~~

Answer 3

delphi中和get/set对应的是read/write，比如：TmyObj=Class(TObject)
private
  function GetName:String;
  procedure SetName(const value:String);
public
  property Name:String Read GetName Write SetName;
end;implementationfunction TmyObj.GetName:String;
begin
  //相当C#的Get...
end;procedure TmyObj .SetName(const value:String);
begin
  //相当C#的Set...
end;

Answer 4

wzwcn谢谢！我用了你的代码，但是为什么我删除数据的时候却提示"list index out of bounds (0)"了？
这是我的代码：    function GetName:String;
    procedure SetName(value:String);
  private    { Private declarations }
  public   property classseq:String Read GetName Write SetName;function tform1.GetName:String;
begin
result:=DBGrid1.DataSource.DataSet.Fields[0].Asstring;
  //相当C#的Get...
end;procedure tform1.SetName(value:String);
begin
value:=DBGrid1.DataSource.DataSet.Fields[0].Asstring;
  //相当C#的Set...
end;

Answer 5

procedure tform1.SetName(value:String);
begin
DBGrid1.DataSource.DataSet.Fields[0].Asstring:= Value;
  //相当C#的Set...
end;