очень легкий вопрос

[♠STO♠]

Я изучаю Дельфи тока 2 недели и у меня возникла проблема сохранения новой записи в TreeView
я использую пример из учебника:

procedure TForm6.Button1Click(Sender: TObject);
var
a:String;
b:TTreeNode;
begin
a:='';
if not Inputquery('Имя подразделения', 'Введите название подразделения',a) then exit;
b:=TreeView1.Items.AddChild(TreeVie w1.Selected, a);
if b.Parent<>nil then b.ImageIndex:=1;
end;

но после закрытия формы, запись удаляестся!

ЗЫ: извиняюсь за, возможно, неправельную формулировку - жаргон еще не выучил

[Баламут]

Ну дык правильно удаляется. Ты же не принял никаких мер, чтобы где-то хранить содержимое дерева. А ведь у TreeView есть замечательный метод. SaveToFile называется. Напиши в onClose, например
TreeView1.SaveToFile('tree.dat'). А в onCreate TreeView1.LoadFromFile('tree.dat') и будет тебе щастье.

[♠STO♠]

Ок, тогда такой вопрос(посложнее):
у меня имеется комбобокс, при выборе строки выполняется SQL запрос и выдается в грид, мне нужно из грида взять все данные из поля и поместить в другой комбобокс

у меня это получилось но в комбобокс помещается тока первая строка поля

[KORT]

ComboBox2.Items.Add(StringGrid1.Cel ls[0, I]);
А так не пробывал?

[♠STO♠]

Написано же SQL, значит мне нужно минимум из DBGrid. я знаю как взять по одной строке MyQuery.First---->MyQuery.NExt, а вот все строки поля незнаю

[Sergey_nl]

Пример заполнения комбобокса всеми имеющимися в таблице значениями:

    //Выполняем запос
    MyQuery.Active:=true;
    with MyQuery do
    //Цикл по всем записям таблицы
    while not Eof do
    begin
      //Цикл по всем полям для текущей записи
      for i := 0 to FieldCount - 1 do
      begin
        //Добавляем очередное поле текущей записи
        MyCombo.Items.Add(FieldByName(Fields[i].FieldName).AsString);
      end;
       //Переход на следующую запись
       Next;
    end;

Для больших таблиц процедура может занять значительное время