[efimalex]

Есть такой класс

Код:

unit FillComboClass;

interface
uses
SysUtils, DBCtrlsEh,FIBDatabase, pFIBDatabase,FIBDataSet,pFIBDataSet,Classes;
Type
  TFillCombo = class(TObject)
    Private
      fset: TpFIBDataSet;
      citem:  TStringList;
      fieldname: String;
    Protected
      Procedure Setfset(Val: TpFIBDataSet);
      Procedure Setfieldname(Val: String);
    Public
//      Constructor Create(DataSet: TpFIBDataSet; FieldName: string); // Конструктор
      Constructor Create; // Конструктор
      Destructor Destroy;// Деструктор
      Property DataSe: TpFIBDataSet write Setfset; // Свойство класса
      Property FieldNam: String write Setfieldname; // Свойство класса
      function fill(Val:TStringList):TStringList;
end;
implementation

uses DMUnit;

//constructor TFillCombo.Create(DataSet: TpFIBDataSet; item: TDBComboBoxEh; FieldName: string);
//constructor TFillCombo.Create(DataSet: TpFIBDataSet; FieldName: string);
constructor TFillCombo.Create;
begin
   citem:=TStringList.Create;
end;

destructor TFillCombo.Destroy;
begin

 inherited;
end;

function TFillCombo.fill(Val:TStringList):TStringList;
begin
  fset.First;
    while not fset.Eof do
      begin
        citem.add(fset.FieldByName(fieldname).AsString);
        fset.Next;
      end;
  result := citem;
  citem.Free;
end;

procedure TFillCombo.Setfieldname(Val: String);
begin
fieldname:=val;
end;

procedure TFillCombo.Setfset(Val: TpFIBDataSet);
begin
fset :=TpFIBDataSet.Create(nil);
fset:=Val;
end;

end.

в этом кусочке

Код:

citem.add(fset.FieldByName(fieldname).AsString);

в citem типа TStringList не добовляются строки. Почему так? Вроде все правильно.
у меня Delphi 2009.

[Страдалецъ]

1. Я не увидел вызова вашей процедуры Fill, поэтому трудно сказать в чем проблема.

2. Вот тут вы чего-то мудрите:

Код:

procedure TFillCombo.Setfset(Val: TpFIBDataSet);
begin
fset :=TpFIBDataSet.Create(nil);
fset:=Val;
end;

Вы создаете экземпляр fset, а затем благополучно подменяете его другим.
При такой реализации смысла в этой процедуре нет никакого.

[efimalex]

//Создаем клас описанный выше
ob := TFillCombo.Create;
//Здесь передаем датасет
ob.DataSe:=dm.SetSprCom;
//здесь поле таблици из которой значениями
//надо заполнить сомбобох
ob.FieldNam:='SPR_VALUE';
//сам методо про который и разговор
ob.fill(t);
//здесь заполняем item комбобокса
ComboGroupNomen.Items.Assign(t);

[Страдалецъ]

Судя по коду процедуры fill ваша переменная t просто нигде там не используется.

[efimalex]

да нет просто не доконца написал
вот полный вызов

Код:

procedure TAddNomenGroupForm.ComboGrNomUnitButtonDown(Sender: TObject;
  TopButton: Boolean; var AutoRepeat, Handled: Boolean);
var
ob:TFillCombo;
t:TStringList;
begin
t:=TStringList.Create;
  //Заполняем ComboBox
  dm.SetSprCom.Active:=true;
 // ob.Create(dm.SetSprCom,'SPR_VALUE');
 ob := TFillCombo.Create;
 ob.DataSe:=dm.SetSprCom;
 ob.FieldNam:='SPR_VALUE';
 ob.fill(t);

  ComboGroupNomen.Items.Assign(t);
//  ComboGroupNomen.Items:=t;
  //ComboGroupNomen.Items.AddStrings(t);
end;

там можно было сделать так и без t

Код:

ob.fill(ComboGroupNomen.Items);

но не работает ни так и ни так.
проблема в самом методе fill

[roamer]

А зачем в Вашем методе fill вот такая строчка: citem.Free; ?
Вероятно она должна быть в деструкторе Destroy...