Подскажите что делаю не так?

← →
DDF (2002-11-26 07:02) [0]

var
List:TListBox;
begin
List:=TListbox.Create(form1);
List.Items:=Listbox1.Items;
Listbox2.Items:=List.Items;
end;

Почемуто не проходит при работе выдает ошибку.
Не получается создать и работать с TListBox во время работы.

← →
sask © (2002-11-26 07:22) [1]

Почему бы просто не сделать:
Listbox2.Items := Listbox1.Items ?

← →
BoxTer © (2002-11-26 07:23) [2]

скока вама говоритя, как моно создать объект без родителя!!!
...
var
List:TListBox;
begin
List:=TListbox.Create(form1);
List.Parent:=Form1;
List.Items:=Listbox1.Items;
Listbox2.Items:=List.Items;
end;
....

← →
DDF (2002-11-26 07:31) [3]

(BoxTer) Спасибо.
А как к примеру если формы ваще нет а с ListBox работать надо

← →
BoxTer © (2002-11-26 07:34) [4]

;-))))))))))))))0
а как вааще быть, если папы нет, а дитяти хоцца????

← →
DDF (2002-11-26 07:42) [5]

Из такой ситуаций нет выхода?

У меня нет формы, процедуры в DLL, мне позарез надо обработать TStrings (вытащить колстрок, по индексу получить строку ) вот я и выбрал ListBox, а он гад нехотит пахать без папы мамы, что делать.

← →
BoxTer © (2002-11-26 07:51) [6]

1. без папы, мамы пахать не будет нихто из объектов ...
2. Ну и хрен, как говориться, с ним: а низя тебе работать с массивом строк mmmmas:array[1..100] of string; ???
если нет - будем думать дальше...

← →
Anatoly Podgoretsky © (2002-11-26 07:53) [7]

Ты ссылаешься на ошибку

← →
Юрий Зотов © (2002-11-26 08:07) [8]

> что делать

Использовать TStringList. Зачем создавать аж целый визуальный компонент, когда нужен всего лишь набор строк?

И не "присвоить", а Assign. Для TListBox.Items это без разницы, но для TStringList - только Assign.

← →
DDF (2002-11-26 08:12) [9]

Думаем дальше.
Суть такая компонент idFTP Возвращает список TStrings,
Теперь DLL (работающая с 1С:Предприятие) должна этот список перегнать в 1с:

procedure TFTPClient.GetList(TZ: OleVariant);
Var
Cnt: Integer;
begin
TZ.DeleteLines; //1с
TZ.NewColumn("Список", "Строка",500); //1с
//Здесь TStrings вытаскивается из IdFTP
FTP.List( -TStrings- );
//Теперь как-то пробегаем по всем строкам TString
//И отправляем в 1с
for cnt:=0 to -TStrings-.Count-1 do
begin
TZ.NewLine; //1с
TZ.SetValue(Cnt, 1,-TStrings-.Strings[Cnt]); //1с
end;
end;

Как мне объявить TStrings, что-то ваще не выходит

← →
Юрий Зотов © (2002-11-26 08:45) [10]

Это имелось в виду?

for Cnt := 0 to FTP.List.Count - 1 do
begin
TZ.NewLine;
TZ.SetValue(Cnt, 1, FTP.List[Cnt])
end;

Если да, то ничего объявлять вообще не нужно.

← →
DDF (2002-11-26 09:05) [11]

ВСЕМ ОГРОМНОЕ БЛАГОДАРЮ, всё получилось.

Кстати, у меня блогополучно создаются компоненты и без указания AOwner (Tкомпонент.Create(nil)), только при этом приходится и компонент.Parent присваивать желаемого родителя и уничтожать компонент вручную.
IMHO, все компоненты VCL самодостаточны и я не обязан привязывать их. Иногда нужно сменить родительский Control, тогда присваиваю новое значение компонент.Parent и все продолжает работать в привязке к другому Controlу.

> Tano

Parent в любом случае надо назначать вручную - независимо от того, есть Owner, или его нет. Иначе контрол, как минимум, останется невидимым, а как максимум получим ошибку.

Сменить Parent тоже можно при любом Owner. Вообще говоря, эти два свойства отвечают за совершенно разные вещи и между собой никак не связаны.

> Юрий Зотов © (27.11.02 00:32)

Спасибо за уточнение. Насчет обязательности Parent - уже получал "как максимум" => абсолютно согласен :)

Подскажите что делаю не так? Найти похожие ветки