Конвертер алгоритмов c++ Builder в delphi и обратно

@n971030 · Регистрация: 23.01.2010

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

Проект конвертирования алгоритмов. Всем добры вечер, предлогаю к обсуждению такой интересный проект "Конвертер алгоритмов" c языка c++ builder в delphi и наоборот. Тема поднималась много раз и альтернативных конвертеров не существует а т что есть полная лажа. Я бы хотел предложить сдесь на странчке обсудить такой проектик. И если может у когота будет желание поучаствовать в его реализации. Я неплохо знаю delphi в этом языке помогу. Иметься статья:Автокнопка. Перевод кода исходника на delphi в С++ Builder

@Garic_ · 06.06.2011, 06:53

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

Теперь нужна помощь форума с паскалевскими циклами.
Для начала перевести правильно нижний код на С++

Delphi
1
for i:=0 to Trunc((BufSize/2)-1) do

@QVO · 06.06.2011, 09:39

Garic_, неужели сложно открыть учебник и прочитать про циклы?

C++
1
2
3
4
for ( i = 0; t < Trunc( (BufSize / 2) -1 ); i++ )
{
 
}

@Garic_ · 06.06.2011, 11:10

Nouko,

неужели сложно открыть учебник и прочитать про циклы?

Значит тяжело, во первых нет у меня учебника по паскалю, да еще на данный момент большим временем выискивать по инету не располагаю, да и чо выделываться?
и вообще внимательно читайте предыдущее выложенное по форуму

я к примеру не знаю delphi, так же и многие не знают и по своим соображениям не хотят знать.

может кто и доведет идею до конца.
А может, и вместе.

Петр1 в свое время сказал каждому, кто въезжает в город прихватить булыжник.
чувствую если так дорогу выложим

Если вы действительно хотите внести свою лепту, добро пожаловать

И вопрос откуда в паскале в этом цикле показывает что здесь вот это сравнение <, и t переменная? t <
И второй вопрос Trunc Buildere не используется, что вместо него?

cpp_developer · 06.06.2011, 17:57

если речь идет об удалении пробелов, то Trim , TrimLeft и TrimRight .

@Garic_ · 06.06.2011, 18:43

LK, Речь идет о Trunc - http://c2p.ru/c/trunc.html
Наверно я думаю что Trunc в C++ не нужен, компилятор производит преобразование автоматически.
Остается вопрос откуда в паскале в этом цикле берется, что здесь вот это сравнение <, и t переменная? Смотрите выше по тексту.

cpp_developer · 06.06.2011, 18:49

int i = double d; и не будет дробной части

@n971030 · 06.06.2011, 20:01 **[ТС]**

шаг в цикле for delphi - можно задать таким способом

For i:=0 to Maximum do if i mod step = 0 then

begin

end;

cpp_developer · 06.06.2011, 20:17

а зачем здесь шаг. если можно просто написать

C++
1
if (i == 0) {...}

, ну , а в общем случае

C++
1
if (!(i%0)) {...}

Добавлено через 5 минут
по ходу... и все же достичь полной автоматизации, имхо, не удастся, поєтому нужна "ручная работа" , и здесь я бі думал над тем, как сделать что-нибудь похожее на окошко, которое появляется в Билдере при нажатии CTRL+SPACE , или вот как на скрине от уважаемого Maluda вот в этой теме - Работа с динамически созданными объекта на PageControl, пост №12.

@Garic_ · 06.06.2011, 20:50

Здесь в действительности дело не в шаге и не

можно просто написать

Речь идет о переводе, попалась к примеру

Delphi
1
for i:=0 to Trunc((BufSize/2)-1) do

перевело правильно

C++
1
for ( i = 0; t <  (BufSize / 2) -1 ; i++ ) {

Каждое значение С++ = DELPHI
В С++ for ( в DELPHI for уже без скопки
В С++ i в DELPHI i
В С++ = в DELPHI :=
В С++ 0 в DELPHI 0
В С++ ; t < в DELPHI to вот сдесь у меня и загвоздка? Откуда t и Почему <
В С++ в DELPHI Trunc(
В С++ ( в DELPHI (
В С++ BufSize в DELPHI BufSize
В С++ / в DELPHI /
В С++ 2 в DELPHI 2
В С++ ) в DELPHI )
В С++ в DELPHI )
В С++ - в DELPHI -
В С++ 1 в DELPHI 1
В С++ ; i++ ) { в DELPHI do

cpp_developer · 06.06.2011, 21:13

В С++ ; t < в DELPHI to вот сдесь у меня и загвоздка? Откуда t и Почему <

t - это опечатка, в делфи to - в с++ = , < , <=, синтаксис, видать...

@Programmer. · 06.06.2011, 21:25

LK,
У вы мне сегодня инет отключается к сажелению, и послезавтра включается, я сегодня попытаюс сделать маленкий пример в "offline" у себя и покажу послезавтра

cpp_developer · 06.06.2011, 21:31

Programmer., дерзай

@n971030 · 06.06.2011, 21:45 **[ТС]**

Сообщение от Programmer.

LK,
У вы мне сегодня инет отключается к сажелению, и послезавтра включается, я сегодня попытаюс сделать маленкий пример в "offline" у себя и покажу послезавтра

жду...с интересом!
тут задача встала по удалению лишник пробелов из текста ну короче решил сделать многопоточное приложение (жалко у компа столько ядер а в одном потоке работать ...нее) вобщем надо эти 8 потоков синхронизировать. У меня переодически обрщение к компоненту richedit он быстре ечем мемо ну вот тут как синхронизировать 8 потоков ? случайно не кто не знает процедура Synchronize глюк дает или неправильно пишу? помогите с синхронизацией...

@Garic_ · 06.06.2011, 23:34

Выкладываю 3-вариант доработанный, пож. по тестите

Delphi
1
for i := 0 to Trunc( ( BufSize / 2 ) - 1 ) do

@n971030 · 06.06.2011, 23:48 **[ТС]**

незапустилась - не найден bpl60

@Garic_ · 07.06.2011, 00:40

на компьютерах, на которых не установлен билдер, есть такое.
Мои извинения. Я исправился.

@Programmer. · 07.06.2011, 11:53

Garic_,
n971030,
LK,
Вот я начал писать прог но у меня малункий вопрос: как осушествляется пойск в движке или в в движке который загружается в мемо, или в движке который загружается TStringList?

@Garic_ · 07.06.2011, 16:16

Programmer.,

как осушествляется пойск в движке

У меня осуществляется таким образом
RichEdit1- он слева ввожу код делфи
RichEdit3 - он справа, загружаю движок из *.txt (в нем в каждой строке, код слева делфи пробел и справа код builderC++)
RichEdit2 - он посередине, выводится переведенная информация
А поиск осуществляется в движке, благодаря пробелу, сначала поиск i_RichEdit3 = по строкам, потом J_RichEdit3 = в строке.
или сбросить код?

Добавлено через 59 минут
RichEdit1 - пробел разделяет слова, которые надо искать. К примеру for i := 0 to Trunc( ( BufSize / 2 ) - 1 ) do здесь 15 слов(значений),
А for i:=0 to Trunc((BufSize/2)-1) do а здесь 5 слов(значений).
А в RichEdit3 благодаря пробелу осуществляется замена, а не поиск.
В коде поиск делаю так

C++
1
2
3
4
5
6
7
8
9
10
11
             //---ПОИСК------
           if ((Bufer1 ==" " ) | (j==DSR1)) //избавляем от лишнего прохождения
            {
             for (int i3=0; i3 <= SD-1; i3++)//колич. строк движка
              {//Цикл3 пробег по строкам Движка
               Bufer3 = "";
               Z = RichEdit3->Lines->Strings[i3]; //Движок значение № строки
               pos=Z.Pos(Bufer1P);//ищем первое вхождение слова
               if(pos){ //Если позиция есть в этой строке
               for (int j3=1; j3<=Z.Length(); j3++) //Length() длина строки
                 {//Цикл4 Поиск в строке

@Programmer. · 07.06.2011, 16:42

Сообщение от Garic_

if ((Bufer1 ==" " ) | (j==DSR1)) //избавляем от лишнего прохождения
{
for (int i3=0; i3 <= SD-1; i3++)//колич. строк движка
{//Цикл3 пробег по строкам Движка
Bufer3 = "";
Z = RichEdit3->Lines->Strings[i3]; //Движок значение № строки
pos=Z.Pos(Bufer1P);//ищем первое вхождение слова
if(pos){ //Если позиция есть в этой строке
for (int j3=1; j3<=Z.Length(); j3++) //Length() длина строки
{//Цикл4 Поиск в строке

А какие переменние тут вообше

@Garic_ · 07.06.2011, 17:45

Programmer., С экономлю ваше время, лучше его использовать на улучшении программы

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@n971030 188 / 120 / 4 Регистрация: 23.01.2010 Сообщений: 1,320

	Конвертер алгоритмов c++ Builder в delphi и обратно 30.04.2011, 18:25. Показов 37771. Ответов 198 Метки нет (Все метки) Проект конвертирования алгоритмов. Всем добры вечер, предлогаю к обсуждению такой интересный проект "Конвертер алгоритмов" c языка c++ builder в delphi и наоборот. Тема поднималась много раз и альтернативных конвертеров не существует а т что есть полная лажа. Я бы хотел предложить сдесь на странчке обсудить такой проектик. И если может у когота будет желание поучаствовать в его реализации. Я неплохо знаю delphi в этом языке помогу. Иметься статья:Автокнопка. Перевод кода исходника на delphi в С++ Builder 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	06.06.2011, 17:57
	если речь идет об удалении пробелов, то Trim , TrimLeft и TrimRight . 0

@Garic_ 72 / 72 / 5 Регистрация: 03.11.2009 Сообщений: 492
	06.06.2011, 18:43
	LK, Речь идет о Trunc - http://c2p.ru/c/trunc.html Наверно я думаю что Trunc в C++ не нужен, компилятор производит преобразование автоматически. Остается вопрос откуда в паскале в этом цикле берется, что здесь вот это сравнение <, и t переменная? Смотрите выше по тексту. 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	06.06.2011, 18:49
	int i = double d; и не будет дробной части 0

@n971030 188 / 120 / 4 Регистрация: 23.01.2010 Сообщений: 1,320
	06.06.2011, 20:01 [ТС]
	шаг в цикле for delphi - можно задать таким способом For i:=0 to Maximum do if i mod step = 0 then begin end; 0

@Programmer. Прогер 632 / 263 / 15 Регистрация: 17.11.2010 Сообщений: 1,371 Записей в блоге: 2
	06.06.2011, 21:25
	LK, У вы мне сегодня инет отключается к сажелению, и послезавтра включается, я сегодня попытаюс сделать маленкий пример в "offline" у себя и покажу послезавтра 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	06.06.2011, 21:31
	Programmer., дерзай 0

@n971030 188 / 120 / 4 Регистрация: 23.01.2010 Сообщений: 1,320
	06.06.2011, 23:48 [ТС]
	незапустилась - не найден bpl60 0

@Programmer. Прогер 632 / 263 / 15 Регистрация: 17.11.2010 Сообщений: 1,371 Записей в блоге: 2
	07.06.2011, 11:53
	Garic_, n971030, LK, Вот я начал писать прог но у меня малункий вопрос: как осушествляется пойск в движке или в в движке который загружается в мемо, или в движке который загружается TStringList? 0