Подсчитать количество единиц в группах с нечетным количеством символов - Delphi - Ответ 1763925

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
 
type
  TForm4 = class(TForm)
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Memo1: TMemo;
    procedure BitBtn1Click(Sender: TObject);
     procedure ComboBox1Click(Sender: TObject);
     procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
 
implementation
 
{$R *.dfm}
 
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
 
  ComboBox1.Items.Add(ComboBox1.Text);
  ComboBox1.Text:='';
 
end;
 
procedure TForm4.ComboBox1Click(Sender: TObject);
 
var st : string;
    i,nst,pos,temp: integer;
    col: integer;
begin
  nst:=ComboBox1.ItemIndex;
  st:=ComboBox1.Items[nst];
   pos:=0;
   col:=0;
    for i:=1 to Length(st) do begin
      if not (st=#32) then begin
        pos:=pos+1;
        if (st[i]='1') then
           col:=col+1;
      end
      else begin
       temp:=pos mod 2;
      if temp<>0 then
        Memo1.Lines.Add(InttoStr(col));
       pos:=0;
        col:=0;
      end;
    end;
 
end;
 
procedure TForm4.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
    if (key in ['а'..'я','А'..'Я']) then
        key:=#0;
end;
 
 
end.