1、在Access中设置该字段为自动增加类型
2、RichEdit1.Lines.Add(Table1.FieldByName('examination').AsString);—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
I.Maxim := MaximStr;
I.Explain := '可用分不够可以给我发短消息';
I.Desire := '加不加分随你';
—————————————————————————————————
2、RichEdit1.Lines.Add(Table1.FieldByName('examination').AsString);—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
I.Maxim := MaximStr;
I.Explain := '可用分不够可以给我发短消息';
I.Desire := '加不加分随你';
—————————————————————————————————
2。若题很大且带图,你可以用2进制字段存题,用TRICHEDIT.LOADFROMSTREAM装入显示.