被TNT Unicode Control整得无奈的人又来求助了，TWideStrings（TTntStrings）的Text不干活了……

Question

uses了TntClasses，定义变量aaa
aaa:TTntStrings;
然后用这个代码
aaa.Add('dddddddd');
aaa.Text:='fffffffffff';
aaa.Text:=aaa.Text+'dddddddddddd';Add是干活了，Text没动静，单步跟踪到TntWideStrings.pas里
property Text: WideString read GetTextStr write SetTextStr;再跟到procedure TWideStrings.SetTextStr(const Value: WideString);
里面刚调用虚函数Clear，就报错Abstract Error崩溃了然后aaa.Text就一直是空的……

Answer 1

补贴一下代码
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,TntClasses, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  aaa:TTntStrings;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
aaa.Add('dddddddd');
aaa.Text:='fffffffffff';
aaa.Text:=aaa.Text+'dddddddddddd';
end;end.

Answer 2

aaa := TTntStrings.Create;
你应该补补有关delphi的class的基础知识

Answer 3

[警告] Unit1.pas(29): Constructing instance of 'TTntStrings' containing abstract method 'TWideStrings.Clear'
[警告] Unit1.pas(29): Constructing instance of 'TTntStrings' containing abstract method 'TWideStrings.Delete'
[警告] Unit1.pas(29): Constructing instance of 'TTntStrings' containing abstract method 'TWideStrings.Insert'仍然报错Abstract Error

Answer 4

aaa := TTntStringList.Create;
你还是先看书去吧