Задание по Delphi

[Serjik-ahaha]

В задании исходные данные вводить с помощью компонента TEdit в компонент TListBox либо с помощью свойства Text в свойство Items компонента строки заканчивать нажатием клавиши Enter. Для выхода из программы использовать кнопку Close. Для расчетов вводить несколько различных строк.
Задание: Дана строка, состоящая из групп нулей и единиц. Подсчитать количество единиц в группах с нечетным количеством символов.

Взываю к вашей помощи. Рад был бы от себя скинуть хоть какие-то наработки но я в задание совсем не въезжаю((( помогите пжлста.

[Valio]

Кароче кидаешь на форму Едит и Листбок.
В Едит вписываешь такие штуки:

000101001
01111011
011100100000
0111111000
1110
0011111

При нажатии энтера эта строка заносится в Листбокс. В результат кучка таких слов будет.

Затем делаешь задание

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

Смотришь кол-во символом в строке и если оно не чётное, то считаешь сколько там единиц. И так по всем строкам Листбокса.

[Serjik-ahaha]

ну то что описано выше, в принципе понятно и так. только один недочет

Дана строка, состоящая из групп нулей и единиц.

, так что строки должны выглядеть так:
00101 0110 100010101
010101 0001 0110010 и т.д.
мне нужна с кодом описания программы. помогите кто-нибудь. вот я могу скинуть какие-то мои наработки, но там полный бред((( думаю никому это ничем не поможет. очень нужна помощь...

unit Lab5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key =#13 then //Если нажата клавиша Enter то...
  begin
//  Строка из окна редактирования заносится в список
    ListBox1.Items.Add(Edit1.Text);
    Edit1.Text := ''; //Очистка окна редактирования
  end;
end.

[Valio]

Ну так тебе и дают задачи для того чтоб ты научился. Вот собственно пришло время учиться.

У тебя только одна причина - лень. Задание ерундовое.

[Serjik-ahaha]

Valio, ты похоже не в том разделе пишешь. насколько я вижу он называется "помощь студентам". если твоя помощь заключается в чтении нотаций, то попрошу меня от них избавить. если бы у меня было времени куча, то я бы обратился за помощью к книгам, инету, друзьям и т.п., но оно отсутствует. я заочник и моя сессия уже началась. поэтому прибег к помощи тех людей, которые хорошо разбираются в программировании и смогли бы мне помочь, т.е. на этом форуме я посчитал, что мне помогут. поэтому если, Valio, это не в твоих силах, то не стоит тут писать. очень жду ответов по делу. прошу помочь.

З.Ы. Valio, ты не обижайся. просто очень нужно выполнить срочно это задание...

[Valio]

З.Ы. Valio, ты не обижайся. просто очень нужно выполнить срочно это задание...

Ты тоже не обижайся, но когда "очень нужно выполнить срочно" при этом просто получить рабочий код, то обращаются сюда:

http://programmersforum.ru/forumdisplay.php?f=29

Я понимаю когда непонятно как организовать работу программы, или когда происходит какая то ошибка и её не отловить, тогда я помогаю.
У всех разные понятия слово "помощь".

Всё что я хотел написать по сабжу я написал в посте №2.
Дальше реализуй и задавай конкретные вопросы. Ну или можешь ждать дурачка какого нибудь, который всё напишет. У нас и такие есть )

[Serjik-ahaha]

печально...( значит никто не поможет. ну возможно я хотя бы смогу услышать ответ на вопрос: если есть строка из нескольких слов, то как можно посчитать количество букв в каждом слове?)

[Valio]

Если принять некоторые ограничения на строку:

[1010 10011 000111]

Строка начинается сразу с цифры, разделены слова одним пробелом и строка заканчивается цифрой, то:

0. While:
1. Найти позицию пробела.
2. Копировать строку до него.
3. Обработать по заданию если длина нечётная.
4. Удалить строку от 1 до поз. пробела.
5. К пункту 0.
После работы цикла останется одно слово. Обрабатываешь его по заданию.