Combobox

[krikqwerty]

Привет! Проблемка такая: у меня есть динамический стек и его нужно добавить для наглядного просмотра в Combobox сколько писал не получается!
Как написать не пойму.
код добавления в стек

T:=TTeacher.Create(aFam,aPost);
T:=T.GetPrev;
First:=T;
Count:=Count+1;

[KooKish]

Будьте так любезны, код всей программы.

[krikqwerty]

unit Chair;

interface
 uses Teacher,unit1;


Type
TChair=class

private
Name_Chair:string;
First:TTeacher;
count:integer;

public

constructor    Create(aName_Chair:string);
   function    GetNC:string;
   function    GetCount:integer;
  procedure    SetNC(aName_Chair:string);
   function    GetF:TTeacher;
  procedure    ShowAllChar;
  procedure    SetF(aFirst:TTeacher);
  procedure    AddTeach(aFam,aPost:string);
   function    DeleteTeach:boolean;
end;
implementation
   uses Institut;

constructor TChair.Create(aName_Chair:string);
var aFirst:TTeacher;
begin
Name_Chair:=aName_Chair; aFirst:=nil;
end;

function    TChair.GetNC:string;
begin
result:=Name_Chair;
end;

procedure   TChair.SetNC(aName_Chair:string);
begin
Name_Chair:=aName_Chair
end;


function    TChair.GetCount:integer;
begin
result:=count;
end;

function   TChair.GetF:TTeacher;
begin
result:=First;
end;


procedure  TChair.SetF(aFirst:TTeacher);
begin
First:=aFirst;
end;


procedure   TChair.AddTeach(aFam,aPost:string);
var T:TTeacher;
begin
T:=TTeacher.Create(aFam,aPost);
T:=T.GetPrev;//
First:=T;
Count:=Count+1;

end;




function   TChair.DeleteTeach:boolean;
begin
 result:=false;
 if First<>nil then
 begin
 First:=First.GetPrev;
 Count:=Count-1;
 end;
 end;

end.

[KooKish]

Попробуй

ComboBox1.Items.Add(ComboBox1.Text);

[krikqwerty]

не не то нужно что то виде процедуры написать, чтоб процедура после добавления в стек, проходила его(стек) от начала до конца добавляя в Combobox
у меня в демо-модуле будет идти вызов процедуры добавления, а следом должно будет идти добавление в Combobox

[krikqwerty]

нужно открыть цикл типа

while First<>nil do begin
Form1.Combobox.Items.Add (First.GetFam+' '+First.GetPost)

и все что пройдем добавить в Combobox, а вот как правильно это сделать я не пойму

[kventin_zhuk]

  if ComboBox1.Items.Count = 0 then
  begin
      ComboBox1.Items.Add(ComboBox1.Text);
      Exit;
  end;
  ComboBox1.Items.Add('1234');
  i := ComboBox1.Items.Count - 1;
  while (i > 0) do
  begin
    ComboBox1.Items[i] := ComboBox1.Items[i - 1];
    dec(i);
  end;
  ComboBox1.Items[0] := ComboBox1.Text;

Предлагаю вот так. А извлекать по индексу с 0-го.

[krikqwerty]

Код работает только при первом добавлении после второго третьего и т.д. он начинает писать пустые строчки. Я хочу немного написать как я добавляю в комбобокс я ввожу данные не в него а в едиты у меня их два один отвечает за фамилию другой за должность преподавателя, вот код я его исправил не могли бы вы подсказать что мне нужно исправить чтоб код заработал нормально?

  if Form1.ComboBox2.Items.Count = 0 then
  begin
      Form1.ComboBox2.Items.Add(Form1.Edit1.Text+' '+ Form1.Edit2.Text);
      Exit;
  end;
  Form1.ComboBox2.Items.Add('1234');
  i := Form1.ComboBox2.Items.Count - 1;
  while (i > 0) do
  begin
    Form1.ComboBox2.Items[i] := Form1.ComboBox2.Items[i - 1];
    dec(i);
  end;
  Form1.ComboBox2.Items[0] := Form1.ComboBox2.Text;

[krikqwerty]

нашел, исправил! Спасибо очень помогли!

[kventin_zhuk]

Сообщение от krikqwerty

нашел, исправил! Спасибо очень помогли!

Даже не знаю почему у вас пустую строку добавляло. Протестил ещё раз - загнал цифры от 1 до 10 - всё ок.