VPF::Как исправить ошибки? - Форум программистов

username12

Дата 4.11.2015, 21:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 4.11.2015

Репутация: нет
Всего: нет

Задача звучит так
Дана строка, состоящая из групп нулей и единиц. Найти и вывести на экран группы с четным количеством символов.

Как исправить эти ошибки?

http://pixs.ru/showimage/234png_2378755_19387123.png

Код


unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
//Обработка события активизации формы
procedure TForm1.FormActivate(Sender: TObject);
begin
ComboBox1.SetFocus; //передача фокуса в ComboBox1
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
//Обработка события нажатия левой кнопки мыши
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin //если нажата клавиша Enter
ComboBox1.Items.Add(ComboBox1.Text); //строка из окна редактирования заносится в      // список выбора
ComboBox1.Text:=' '; //очистка окна редактирования
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
var
 CPos: word;
  SPos: word;
begin
  SPos := 1;
  with Edit1 do
    for CPos := 1 to Length(Text) do
      if Text[CPos] <> Text[CPos+1]
        then
          begin
            if ((CPos-SPos+1) mod 2) = 0
              then
                ListBox1.Items.Add(Copy(Text, SPos, CPos-SPos+1));
            SPos := CPos+1;
end;
 
procedure TForm1.ComboBox1Click(Sender: TObject);
var
st:string;
n,i,nst,ind:integer;  a:array [1..3] of char;  b:boolean; s:real;
begin
n:=0;    //n-число слов в строке
ind:=0;
nst:= ComboBox1.ItemIndex; // определение номера выбранной строки
st:= ComboBox1.Items[nst]; //занесение выделенной строки в переменную st
for i:=1 to Length(st) do
begin
n:=length('st');
end;
If (n MOD 2) =0 then
 
memo1.Lines.add('Четное')
else
memo1.Lines.add('Нечетное');
 
 
 
 
 
 
end;
end.

mikeyess

Дата 5.11.2015, 08:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 0
Регистрация: 7.1.2014

Репутация: нет
Всего: нет

Добрый день.
2 ошибки сразу бросаются в глаза:
1) после procedure TForm1.Button1Click(Sender: TObject); стоит "begin" до "var"
2) в той же процедуре есть "begin", которому нет соответствующего "end"
Вообще программу можно было писать совсем не так.
Если надумаете, ответьте, помогу.
С уважением, Mike

Этот ответ добавлен с нового Винграда - http://vingrad.com

username12

Дата 5.11.2015, 09:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 4.11.2015

Репутация: нет
Всего: нет

Цитата(mikeyess @ 5.11.2015, 08:00)

Помогите написать по другому.Заранее спасибо)

Poseidon

Дата 5.11.2015, 09:23 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

У Вас в коде идет обащение к контролам Edit1 и ListBox1 (процедура Button1Click), которых нет на форме. Плюс то, что описал mikeyess. А вообще стоит не копипастом заниматься, а самому код написать, тогда и ошибок не будет.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

mikeyess

Дата 5.11.2015, 10:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 0
Регистрация: 7.1.2014

Репутация: нет
Всего: нет

Помогу за положительный отзыв. Согласны?

Этот ответ добавлен с нового Винграда - http://vingrad.com

username12

Дата 5.11.2015, 20:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 4.11.2015

Репутация: нет
Всего: нет

Цитата(mikeyess @ 5.11.2015, 10:50)

Помогу за положительный отзыв. Согласны?

Этот ответ добавлен с нового Винграда - http://vingrad.com

Согласен

Согласен

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »