RadioGroup

@Ника)) · Регистрация: 08.12.2010

Студворк — интернет-сервис помощи студентам

Как написать программу для удаления нечетных символов, через нажатие в RadioGroup первого пункта, в Edit1. И еще что бы при нажатии второго пункта введеное слово в Edit писалось на оборот , к примеру : 'Нет' выбрал 2-ю точку и ответ в Label1 вывелся "теН".

@NIKOLAYY · 04.10.2013, 22:23

Сообщение от Ника))

при нажатии второго пункта введеное слово в Edit писалось на оборот , к примеру : 'Нет' выбрал 2-ю точку и ответ в Label1 вывелся "теН".

Это реверс. Можно так-

Delphi
1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
  if RadioGroup1.ItemIndex = 1 then
    Label1.Caption := AnsiReverseString(Edit1.Text);
end;

А можно и без кнопки если без нее нужно-

Delphi
1
2
3
4
5
6
7
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0: ;
    1: Label1.Caption := AnsiReverseString(Edit1.Text);
  end;
end;

@Ника)) · 05.10.2013, 18:45 **[ТС]**

Спасибо, но главное разобраться с первым требованием, ни как не могу сделать так что бы выбирало ток четные символы и показывало их в Label1. А нечетные удаляло =)

@NIKOLAYY · 06.10.2013, 12:13

Сообщение от Ника))

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

Можно сделать так- перевести строку string в символьный тип Char в цикле и вывести все кратные символы в лейбл.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  ch: Char;
  i: Integer;
begin
  for i := 1 to Length(Edit1.Text) do
  begin
    ch := Edit1.Text[i]; //разберем строку на символы
    if (ch = '0') or
      (ch = '2') or
      (ch = '4') or
      (ch = '6') or
      (ch = '8') then
      Label1.Caption := Label1.Caption + ch;
  end;
end;

@Ника)) · 08.10.2013, 19:14 **[ТС]**

Получается что это выглядит так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.RadioGroup1Click(Sender: TObject);
var
 ch: Char;
  i: Integer;
begin
case RadioGroup1.ItemIndex of
  0:for i := 1 to Length(Edit1.Text) do
  begin
    ch := Edit1.Text[i]; // выводит четные символы
    if (ch = '0') or
      (ch = '2') or
      (ch = '4') or
      (ch = '6') or
      (ch = '8') then
      Label1.Caption := Label1.Caption + ch;
      end;
  1:Label1.Caption := AnsiReverseString(Edit1.Text);
  end;
 
end;

Но когда запускаю, выдает ошибку после String-это же надо прописать в переменных,но если ни какая переменная не используется в данном случае, что необходимо прописывать?

И еще если запускать программу без 1:Label1.Caption := AnsiReverseString(Edit1.Text); то после всего кода ставиться курсор и пишет внизу :
[Error] Unit1.pas(54): Statement expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

P.S. в радиогруппе заданно 2 случая =)

@NIKOLAYY · 09.10.2013, 14:49

В uses добавь StrUtils
Если нужно в переменные прописать то можеш и прописать, если ненужно то:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.RadioGroup1Click(Sender: TObject);
var
  ch: Char;
  i: Integer;
begin
  Label1.Caption :='';
  case RadioGroup1.ItemIndex of
    0: for i := 1 to Length(Edit1.Text) do
      begin
        ch := Edit1.Text[i]; // âûâîäèò ÷åòíûå ñèìâîëû
        if (ch = '0') or
          (ch = '2') or
          (ch = '4') or
          (ch = '6') or
          (ch = '8') then
          Label1.Caption := Label1.Caption + ch;
      end;
    1: Label1.Caption := AnsiReverseString(Edit1.Text);
  end;
end;

@Ника)) · 09.10.2013, 18:46 **[ТС]**

В Uses это есть .
Все равно выдает ошибку после String.

@NIKOLAYY · 09.10.2013, 21:41

Нормально работает тока проверил. Смотри че в Uses нехватает-

Delphi
1
2
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, StrUtils, ExtCtrls;

@Ника)) · 09.10.2013, 22:53 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,StrUtils,ExtCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.RadioGroup1Click(Sender: TObject);
var
 ch: Char;
  i: Integer;
begin
case RadioGroup1.ItemIndex of
  0:for i := 1 to Length(Edit1.Text) do
  begin
    ch := Edit1.Text[i]; //âûâîäèò ÷åòíûå ñèìâîëû
    if (ch = '0') or
      (ch = '2') or
      (ch = '4') or
      (ch = '6') or
      (ch = '8') then
      Label1.Caption := Label1.Caption + ch;
      end;
 
 
end;

Вот и выдает все тоже самое.

@NIKOLAYY · 09.10.2013, 23:57

Странно, на пробуй исходник

@northener · 10.10.2013, 00:21

Сообщение от Ника))

Вот и выдает все тоже самое.

Для того чтобы паскалевский/дельфийский модуль был богоугодным нужны только две вещи. Начальная строка с волшебным словом unit заканчивающаяся точкой с запятой и заключительная строка - энд с точкой. Все остальное - мирская суета и никому не нужно.

@Ника)) · 11.10.2013, 08:20 **[ТС]**

Спасибо Николай, все отлично работает!

@U-III · 11.10.2013, 08:32

А если слово длиннее? Вот рабочий пример для любой длинны слова.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.RadioGroup1Click(Sender: TObject);
var
  i: Integer;
begin
case RadioGroup1.ItemIndex of
  0: begin
        Label1.Caption:='';
        for i := 1 to Length(Edit1.Text) do
          if i mod 2 =0 then Label1.Caption := Label1.Caption + Edit1.Text[i];
      end;
  1:Label1.Caption := AnsiReverseString(Edit1.Text);
  end;
 
end;

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Ника)) 43 / 43 / 20 Регистрация: 08.12.2010 Сообщений: 342

	RadioGroup 04.10.2013, 17:49. Показов 2584. Ответов 12 Метки нет (Все метки) Как написать программу для удаления нечетных символов, через нажатие в RadioGroup первого пункта, в Edit1. И еще что бы при нажатии второго пункта введеное слово в Edit писалось на оборот , к примеру : 'Нет' выбрал 2-ю точку и ответ в Label1 вывелся "теН". 0

@Ника)) 43 / 43 / 20 Регистрация: 08.12.2010 Сообщений: 342
	05.10.2013, 18:45 [ТС]
	Спасибо, но главное разобраться с первым требованием, ни как не могу сделать так что бы выбирало ток четные символы и показывало их в Label1. А нечетные удаляло =) 0

@Ника)) 43 / 43 / 20 Регистрация: 08.12.2010 Сообщений: 342
	09.10.2013, 18:46 [ТС]
	В Uses это есть . Все равно выдает ошибку после String. 0

@Ника)) 43 / 43 / 20 Регистрация: 08.12.2010 Сообщений: 342
	11.10.2013, 08:20 [ТС]
	Спасибо Николай, все отлично работает! 0