Переделать код Delphi7 в VC++

@vlados2441 · Регистрация: 11.01.2015

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

Помогите перевести код Делфи в С++.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.CTCClick(Sender: TObject);
begin
  Edit2.SelectAll; //Выделяем текст
  Edit2.CopyToClipboard; //Копируем в буфер
end;
 
procedure TForm1.ConvClick
begin
  s:=Edit1.Text;
  Delete(s, 1, Pos('#', s)-1); //Удаляем из строки все до "#"
  Edit2.Text:=s;
end;

Заранее спаcибо!

Добавлено через 8 минут
p.s. CLR-WinForms

@OwenGlendower · 18.01.2016, 19:33

C++
1
2
3
4
5
6
7
8
9
// Первая процедура
Edit2->SelectAll();
Edit2->Copy();
 
// Вторая процедура
String^ s = Edit1->Text;
int idx = s->IndexOf("#");
if (idx>=0) s = s->Remove(idx, s->Length-idx);
Edit2->Text = s;

@vlados2441 · 18.01.2016, 19:56 **[ТС]**

Спасибо, но удаляет подстроку после "#", а не до.

Например:
Вход:

C++
1
12#45

Выход:

C++
1
#45

Как удалять после символа (не удаляя сам символ)?

@OwenGlendower · 18.01.2016, 20:00

vlados2441, попробуй самостоятельно это сделать. Надо всего лишь передать правильные аргументы методу Remove

Новые блоги и статьи Все статьи Все блоги /
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .

@OwenGlendower Администратор 18298 / 14222 / 5368 Регистрация: 17.03.2014 Сообщений: 28,900 Записей в блоге: 1
	18.01.2016, 20:00
	vlados2441, попробуй самостоятельно это сделать. Надо всего лишь передать правильные аргументы методу Remove 0