Скачать: CL | DM;

Работа с 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;

---

← →
Jeer ©   (2004-06-04 19:18) [9]

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

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

---

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

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

---

← →
Anatoly Podgoretsky ©   (2004-06-04 19:20) [11]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.021 c