Конвертер алгоритмов 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., С экономлю ваше время, лучше его использовать на улучшении программы

Новые блоги и статьи Все статьи Все блоги /
Знание — сила: Доктрина интенциональности знаний против массовых профанаций Hrethgir 01.08.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11957&stc=1&d=1785567302 Знаменитый афоризм Фрэнсиса Бэкона «Знание — сила» (Scientia potentia est) в массовой культуре принято понимать. . .	SUNO Ai - Река Без Дна zorxor 31.07.2026 Автор стихотворения - астрофизик Марина Катыс Ссылка на сгенерированную музыкальную композицию: https:/ / suno. com/ song/ 6f6e5464-b290-4650-be6c-44c85f8d8013 Я говорю, что Время- как вода течет. . .	Из невошедшего на форум (диалог с ИИ-гугла) zorxor 29.07.2026 А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .	Был праздник вчера, а я и не знал. kumehtar 28.07.2026 27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Салют, шампанское, овации! :drink:
Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .	тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .

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

	Конвертер алгоритмов c++ Builder в delphi и обратно 30.04.2011, 18:25. Показов 38193. Ответов 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