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

[孙月魂]

        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;
            }

        }

[xfxlylove]

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

[孙月魂]

[Quote=引用 1 楼 xfxlylove 的回复:]
有的。你上面的代码用Delphi一样可以实现
[/Quote]
我试了~不行啊！

[tgbd]

就是读取和设置文本框、表格单元格的值。

[haitao]

dataset.fieldbyname('xxxx').asstring

[孙月魂]

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;

[孙月魂]

[Quote=引用 4 楼 sz_haitao 的回复:]
dataset.fieldbyname('xxxx').asstring
[/Quote]
这个我知道，我就是想知道这种字符串在delphi中有没有!就是delphi有没有get\set~~

[wzwcn]

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;

implementation

function TmyObj.GetName:String;
begin
//相当C#的Get...
end;

procedure TmyObj .SetName(const value:String);
begin
//相当C#的Set...
end;

[lhs203203]

[Quote=引用 7 楼 speak13579 的回复:]
wzwcn谢谢！我用了你的代码，但是为什么我删除数据的时候却提示"list index out of bounds (0)"了？
这是我的代码：

Delphi(Pascal) code

function GetName:String;
procedure SetName(value:String);
private



{ Private d……
[/Quote]

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

[caigeno1]

好东西！