Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
basel
0 / 0 / 1
Регистрация: 04.01.2015
Сообщений: 7
#1

Копировать, вырезать, вставить, удалить - Delphi

13.04.2016, 01:20. Просмотров 347. Ответов 3
Метки нет (Все метки)

Есть задание:
Ввести строку. Подсчитать содержащееся в ней число символов русского алфавита, латинского алфавита и построить строку, содержащую все символы исходной строки, не входящие ни в русский, ни в латинский алфавит, сохраняя порядок их следования. Символы, не входящие не в один из алфавитов заменил на цифры и др.
Есть код:
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
unit Unit6;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    RadioGroup1: TRadioGroup;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo3: TMemo;
    Memo4: TMemo;
    Label4: TLabel;
    Label5: TLabel;
 
    procedure Button2Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
const ru=['ГЂ'..'Гџ','Г*'..'Гї'];
      en=['A'..'Z','a'..'z'];
var s,s1: string;
 i,r,e: integer;
begin
 memo1.Clear;
 memo2.Clear;
 memo3.Clear;
 memo4.Clear;
 
if RadioGroup1.ItemIndex=0 then begin
s:= Edit1.Text;
Memo1.text:=s;
edit1.Clear;
end;
if RadioGroup1.ItemIndex=1 then 
begin
s:= RadioGroup1.Items[1];
Memo1.Lines.Add(s);
end;
if RadioGroup1.ItemIndex=2 then
begin
s:= RadioGroup1.Items[2];
Memo1.Lines.Add(s); 
end;
if RadioGroup1.ItemIndex=3 then
begin
s:= RadioGroup1.Items[3];
Memo1.Lines.Add(s);
end;
 
for i:=1 to length(s) do
begin
if s[i] in ru then
begin
inc(r);
Memo3.Text:=(inttostr(r));
 
end
else
if s[i] in en then
begin
inc(e);
Memo4.text:=(inttostr(e));
end; end;
end; end.
Не получается копировать/вырезать не алфавитные символы и вставить их в свободное поле Memo2?
0
Миниатюры
Копировать, вырезать, вставить, удалить  
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.04.2016, 01:20
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Копировать, вырезать, вставить, удалить (Delphi):

Вырезать, копировать и вставить
помогите пожалуйста, какая функция в делфи, в частности для MainMenu вырезания, копирования и вставки? я допустим ввожу слово в memo1 и при...

Как сделать функции копировать, вырезать и вставить на Делфи?
Нужно что бы при выборе инструмента выделить, можно было нарисовать прямоугольник и при нажатии на клавишу вырезать область внутри...

Вырезать и вставить код
Как вырезать из спарсенного кода <html> <head><title>Новая тема</title></head> <body bgcolor="#239651" link="#006f11"...

[Delphi] Копировать / Вставить
В общем мне необходим скрипт(пример), который содержимое Edit без занесения в регистр вставлял в после, где находится курсор

[Excel] скопировать/вырезать диапазон ячеек и вставить
Всем привет! Не получается реализовать Cut и Copy (можно и для Range). Хочу на первом листе Excel выделить диапазон ячеек и вставить его...

Копировать и вставить в буфер обмена в активном окне
Здравствуйте. Можно ли как-нибудь иницировать копировать и вставить в буфер обмена в активном окне, после нажатия на кнопку F12 допустим?...

3
ZfoxAK
493 / 478 / 218
Регистрация: 26.11.2012
Сообщений: 1,897
13.04.2016, 04:37 #2
Цитата Сообщение от basel Посмотреть сообщение
Не получается копировать/вырезать не алфавитные символы и вставить их в свободное поле Memo2?
Нет кода - поэтому и не получается
0
Puporev
Модератор
54127 / 41760 / 28872
Регистрация: 18.05.2008
Сообщений: 98,282
13.04.2016, 08:29 #3
Лучший ответ Сообщение было отмечено basel как решение

Решение

Цитата Сообщение от basel Посмотреть сообщение
Подсчитать содержащееся в ней число символов русского алфавита, латинского алфавита и построить строку, содержащую все символы исходной строки, не входящие ни в русский, ни в латинский алфавит, сохраняя порядок их следования.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var s1:string;
..........................
r:=0;
e:=0;
s1:='';
for i:=1 to length(s) do
if s[i] in ru then  inc(r)
else if s[i] in en then  inc(e)
else s1:=s1+s[i];
Memo3.Text:=inttostr(r);
Memo4.Text:=inttostr(e);
if s1='' then Memo5.Text:='В строке нет символов кроме букв'
else Memo5.Text:=s1;
end;
1
basel
0 / 0 / 1
Регистрация: 04.01.2015
Сообщений: 7
13.04.2016, 11:33  [ТС] #4
спасибо

Добавлено через 4 минуты
если не знаешь как помочь-не пиши! ехидничать не надо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.04.2016, 11:33
Привет! Вот еще темы с решениями:

Нужно создать кнопки "Копировать" и "Вставить" для программы
procedure TForm1.BitBtn9Click(Sender: TObject); var f:textFile; var i:integer; begin AssignFile(F,'temp.txt' ); ...

. Вставить после всех строк, содержащих минимальное значение строку 1,2,3,…. . Удалить все столбцы, в которы
Вставить после всех строк, содержащих минимальное значение строку 1,2,3,…. Удалить все столбцы, в которых первый элемент четный

Удалить из массива элемент и вставить на нужное место элемент q, так, чтобы не нарушалась упорядоченность
Здравствуйте! Вот сама задача Заданы целочисленный массив а1,а2...аn упорядоченный по не возрастанию элементов и целочисленные переменные...

Вырезать
Подскажите как выполнить команду "вырезать"? копирую и вставляю вот так:procedure TForm1.N2Click(Sender: TObject); begin ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru