Работа с TStrings

← →
Ig © (2004-06-04 19:04) [0]

к примеру :

procedure TForm1.Button1Click(Sender: TObject); var S: TStrings; begin S.Create; try S.AddStrings(ListBox1.Items); ListBox2.Items:=S; finally S.Free; end end;

после чего выдает ошибку с малопонятным содержанием, что за ..., кто нибудь занает, что это может быть?
Раньше такой ошибки не было..

← →
Anatoly Podgoretsky © (2004-06-04 19:08) [1]

Переписать нафиг.

← →
Vlad © (2004-06-04 19:10) [2]

> var S: TStrings;

var S: TStringList;

> S.Create;

S:=TStringList.Create;

← →
Ig © (2004-06-04 19:10) [3]

Что переписать нафиг? :)

← →
sniknik © (2004-06-04 19:14) [4]

> Раньше такой ошибки не было..
сомнительно очень, а ошибка очень даже понятная обыкновенное AV. (всегда бывает пока не перепишеш все нафиг :)

← →
Ig © (2004-06-04 19:14) [5]

TSringList ето, у меня работает, я спрашивал про TStrings :)

← →
sniknik © (2004-06-04 19:15) [6]

Vlad © (04.06.04 19:10) [2]
var S: TStrings;
можно и оставить но
S:=TStringList.Create;
обязательно

← →
Vlad © (2004-06-04 19:15) [7]

> Ig © (04.06.04 19:14) [5]
> TSringList ето, у меня работает, я спрашивал про TStrings
> :)

TStrings это абстрактный класс

← →
sniknik © (2004-06-04 19:17) [8]

> TSringList ето, у меня работает, я спрашивал про TStrings :)
у него Create такой

constructor TObject.Create;
begin
end;

Ig © (04.06.04 19:14) [5]
Тебе ответил Vlad © (04.06.04 19:10) [2]

Захочешь - подумаешь, подумаешь - поймешь, поймешь - научишся.:)

Все, вопрос закрыт, всем спасибо :)

Пошел переписывать нафиг :-)

Работа с TStrings Найти похожие ветки