![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Я в глубоком шоке.... TStrings
Кокандокало © (2002-11-27 22:54:00)procedure TForm1.Button1Click(Sender: TObject);
var
s: TStrings;
begin
s := TStrings.Create;
s.Add("test1");
s.Add("test2");
Memo1.Lines.AddStrings(s);
end;
Что тут не так? почему вылетает абстракт эррор??????
Ageev (2002-11-29 11:19:00) [1]S: TStringList; а на хрена
Memo1.Lines.Clear;
Memo1.Lines.AddStrings("test1");
Memo1.Lines.AddStrings("test1");
Крот (2002-11-28 06:30:00) [2]Дело в том, что TStrings - абстрактный класс, его нельзя использовать непосредственно, надо либо самому создать дочерний класс, либо воспользоваться уже существующими, лучше всего как 777 предложил - TStringList
Poirot (2002-11-28 00:23:00) [3]Garbage Collector :-)))))
apay (2002-11-27 23:14:00) [4]S: TStringList;
...
S := TStringList.Create;
и кто за тебя мусор будет подчищать?
S.Free;
777 (2002-11-27 23:05:00) [5]s := TStringList.Create;