Abstract Error

[Vadik(R)]

Люди, не пойму, как работать с TStrings?

procedure TForm1.Timer2Timer(Sender: TObject);
Var
str1 : TStrings;
begin
str1:=TStrings.Create;
str1.Add('ok');
end;

Пишет Abstract Error. А если просто создасть TStrings, без следующей функции str1.Add, то ошибки нет. Как надо правильно добавлять строки в TStrings?

 

[Bagirli]

Напишите так:

procedure TForm1.Timer2Timer(Sender: TObject);
Var
str1 : TStrings;
begin
str1:=TStringList.Create;
str1.Add('ok');
end;

 

[Vadik(R)]

Bagirli, спасибо тебе.
sax_ol Абстрактная ошибка? Нет, я первый раз такое вижу. Может позже пойму её смысл, потому как только учусь работать с TStrings, теперь ещё и с TStringList.

 

[Vadik(R)]

Всё, я понял.
sax_ol, и тебе тоже спасибо!