Проблема с ComboBox

[Plex3]

Доброго всем времени суток.
Прошу подсказать знающих.
В ComboBox1 вбито 3 строки (назовем их А,В,С). При нажатии кнопки выбранное значение переносится в Мемо1. (Это все отлично работает)
Так же есть компонент Panel, в котором надо реализовать следующие:
- на компоненте Panel должно подсчитываться (отображаться) количество записей "А" имеющихся в Мемо1. Подскажите как реализовать данную функцию, можно и не в компоненте Panel - а в любом другом.

В крации: Надо отобразить сколько компонентов "А" вбито в Мемо.

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add(IntToStr(Memo1.Lines.Count + 1) + ' ' + Edit1.Text + '/' +
Edit2.Text + '/' + Edit3.Text + '/' + MaskEdit1.Text + '/' + ComboBox1.Text
+ '/' + ComboBox2.Text + '/' + ComboBox3.Text);
end;

end.

[igh0st]

Cnt := 0;
for I := 0 to Memo1.Lines.Count - 1 do
    if Memo1.Lines[I] = ComboBox1.Items[0] then
        Inc(Cnt);

Panel.Caption := 'Выбрано записей A: ' + IntToStr(Cnt);

[Plex3]

Теперь Panel1 постоянно отображает - Выбрано записей A:0

По сути надо сделать так чтоб Panel выводила число сколько раз я выбрал "А" в ComboBox и занес в Мемо

var
  Form1: TForm1;
   cnt: Integer;
   i: Integer;
implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin
Memo1.Lines.Add(IntToStr(Memo1.Lines.Count + 1) + ' ' + Edit1.Text + '/' +
Edit2.Text + '/' + Edit3.Text + '/' + MaskEdit1.Text + '/' + ComboBox1.Text
+ '/' + ComboBox2.Text + '/' + ComboBox3.Text);

Cnt := 0;
for I := 0 to Memo1.Lines.Count - 1 do
    if Memo1.Lines[I] = ComboBox1.Items[0] then
        Inc(Cnt);

Panel1.Caption := 'Выбрано записей A: ' + IntToStr(Cnt);
end;


end.

[evg_m]

у вас в мемо сложная строка фрагментом которой является (или не является) нужный вам текст (А).
либо если есть гарантия (что вряд ли) неповторения такого текста в других составляющих строки (Edit1, Edit2, ....)
воспользоваться для подсчета поиском в строке

if Memo1.Lines[I] = ComboBox1.Items[0]

заменить на

if pos(combobox.Items[0], memo1.Lines[i])>0 then Inc(cnt);

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

cnt:=strtointdef(Panel1.caption); //узнать старое (предыдущее) значение
if combobox1.text =combobox1.Items[0] then Inc(cnt); //вар 1
if combobox1.ItemIndex=0 then Inc(cnt); //вар 2
Panel1.Caption:=inttostr(cnt);

[Plex3]

Спасибо большое, все получилось, вариант второй подошел.


begin
Memo1.Lines.Add(IntToStr(Memo1.Line s.Count + 1) + ' ' + Edit1.Text + '/' +
Edit2.Text + '/' + Edit3.Text + '/' + MaskEdit1.Text + '/' + ComboBox1.Text
+ '/' + ComboBox2.Text + '/' + ComboBox3.Text);

Cnt := 0;
for I := 0 to Memo1.Lines.Count - 0 do

if pos(combobox1.Items[0], memo1.Lines[i])>0 then Inc(cnt);
Panel1.Caption:=inttostr(cnt);

Panel1.Caption := 'Выбрано записей A: ' + IntToStr(Cnt);
end;

[evg_m]

Спасибо большое, все получилось, вариант второй подошел.

а привели код по первому.
В этом случае возможны ошибки (ложные срабатывания), если вдруг текст из других источников (Edit1, Edit2 и т.д) окажется точно таким же как и первая строка Combobox1, хотя она в этой строке и не была бы использована.

[phomm]

Просто у Вас подход неправильный. Не надо привязывать логику работы к компонентам, они лишь средства ввод-вывода информации. Лучше, например, завести пару массивов, и при первой операции заносить во второй массив информацию, какая была выбрана строка (из первого массива), а потом просто подсчитывать нужные записи из этого второго массива. Мемо при этом просто отображают содержимое 2го массива, а комбо - первого, по кнопке узнать индекс строки в комбо и произвести перенос из массива в массив и обновлять компоненты по мере надобности.

пс. За "В крации" надо карать методом скормления злобным лингвистам.

[Plex3]

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

пс. За "В крации" надо карать методом скормления злобным лингвистам.

Исправлюсь