Перевод кода из Delphi в C++ Builder

@Victor35 · Регистрация: 21.04.2009

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

Кто нибудь сможет помочь перевести проект с делфи на билдер? Выкладываю исходники на делфи.

@Victor35 · 13.05.2009, 21:06 **[ТС]**

Что такое в делфи Exit?

Delphi
1
If MinPathFound Then Exit;

И чем это можно заменить в билдере?

@MrAndrey_ka · 13.05.2009, 21:19

exit в делфи выходит с процедуры или функции в с++ return

Добавлено через 7 минут 50 секунд

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

1
If MinPathFound Then Exit;

на си гдето так:

C++
1
If(MinPathFound) return;

@Victor35 · 13.05.2009, 21:24 **[ТС]**

Спасибо. А <> в делфи что такое?

@MrAndrey_ka · 13.05.2009, 21:28

это значит не равно в си !=

@Alexiski · 13.05.2009, 21:29

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

Спасибо. А <> в делфи что такое?

Не равно. В С++ !=

@Victor35 · 13.05.2009, 21:33 **[ТС]**

А вот совсем какая то страшная строчка

Delphi
1
ShowMessage('Найден минимальный путь.'+#13#10+'Он равен  '+IntToStr(MinPath)+'.');

Что она обозначает?

@MrAndrey_ka · 13.05.2009, 21:37

Alexiski, а я что нитак сказал?

Добавлено через 3 минуты 39 секунд

Delphi
1
ShowMessage('Найден минимальный путь.'+#13#10+'Он равен  '+IntToStr(MinPath)+'.');

+#13#10+ переход на другую строку
выведется примерно такое:
Найден минимальный путь.
Он равен 35.
#ХХХ - означеет символ с номером ХХХ

@Victor35 · 13.05.2009, 21:45 **[ТС]**

А еще билдер ругается на строчку

C++
1
if ((Lab->Cells[X, Y]!=' ') And (Lab->Cells[X, Y]!='O')) return;

Что в ней не так? А в с++ и пишется как And?

Добавлено через 2 минуты 39 секунд

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

Alexiski, а я что нитак сказал?

Добавлено через 3 минуты 39 секунд

Delphi
1
ShowMessage('Найден минимальный путь.'+#13#10+'Он равен  '+IntToStr(MinPath)+'.');

+#13#10+ переход на другую строку
выведется примерно такое:
Найден минимальный путь.
Он равен 35.
#ХХХ - означеет символ с номером ХХХ

А как мне эту комбинацию +#13#10+ заменить в билдере? Он ругается на нее.

@MrAndrey_ka · 13.05.2009, 21:55

в си and выглядит как &&

Добавлено через 8 минут 33 секунды

А как мне эту комбинацию +#13#10+ заменить в билдере? Он ругается на нее.

ясно ругатся будет он такого не поймет,
можно так
const char NS=13;
ShowMessage('Найден минимальный путь.'+NS+'Он равен '+IntToStr(MinPath)+'.');
хотя в сии можно это и по другому реализовать, но я не помню

@DanUnited · 13.05.2009, 22:01

Хана жесть вы переводите...

@Victor35 · 13.05.2009, 22:07 **[ТС]**

Ну я сижу построчно разбираюсь. Я ж не понимаю ничё а лабу надо делать

Добавлено через 1 минуту 26 секунд

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

в си and выглядит как &&

Добавлено через 8 минут 33 секунды

ясно ругатся будет он такого не поймет,
можно так
const char NS=13;
ShowMessage('Найден минимальный путь.'+NS+'Он равен '+IntToStr(MinPath)+'.');
хотя в сии можно это и по другому реализовать, но я не помню

Он ругается. Пишет invalid pointer addition

@Somebody · 13.05.2009, 22:09

Code
1
ShowMessage(Format("Найден минимальный путь.\r\nОн равен  %d.", MinPath));

@DanUnited · 13.05.2009, 22:09

В ShowMessage пишутся не прификсы а ковычки.

@Victor35 · 13.05.2009, 22:22 **[ТС]**

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

Code
1
ShowMessage(Format("Найден минимальный путь.\r\nОн равен  %d.", MinPath));

Я всё понимаю конечно, но у меня по моему руки не оттуда растут. У меня опять ошибка. Пишет cannot convert 'int' to 'const TVarRec *'

@Somebody · 13.05.2009, 22:31

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

Я всё понимаю конечно, но у меня по моему руки не оттуда растут. У меня опять ошибка. Пишет cannot convert 'int' to 'const TVarRec *'

Это я по аналогии с Delphi написал. А Гугл подсказывает сейчас, что в Builder'е это несколько хуже:

Code
1
2
ShowMessage(Format("Найден минимальный путь.\r\nОн равен  %d.",
  OPENARRAY(TVarRec, (MinPath))));

Билдера нет, не проверял

@MrAndrey_ka · 13.05.2009, 22:32

Я всё понимаю конечно, но у меня по моему руки не оттуда растут. У меня опять ошибка. Пишет cannot convert 'int' to 'const TVarRec *'

ShowMessage(Format("Найден минимальный путь.\r\nОн равен %d.", ARRAYOFCONST(((int)MinPath))));

так работает!

но по моему вариант
ShowMessage("Найден минимальный путь."+NS+"Он равен "+IntToStr(MinPath)+'.');
лучше

@Victor35 · 13.05.2009, 22:46 **[ТС]**

О! Так работает! Спасибо! Теперь правда ругается на строчку

C++
1
if ((Lab->Cells[X, Y]!=" ") && (Lab->Cells[X, Y]!='O')) return;

Пишет too few parameters in call to 'fastcall TStringGrid::GetCells[int,int]'

Добавлено через 5 минут 21 секунду
А сострочками типа

C++
1
Lab->Cells[X, Y]=#159;

мне поступать вот так?

C++
1
2
const char NS=159;
Lab->Cells[X, Y]=NS;

@mirso · 13.05.2009, 22:52

C++
1
Lab->Cells[X][Y]

@Victor35 · 13.05.2009, 23:43 **[ТС]**

а в си как объявить переменную типа файл?

Добавлено через 28 минут 16 секунд
И еще как его открыть потом на чтение и потом закрыть.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Victor35 0 / 0 / 0 Регистрация: 21.04.2009 Сообщений: 25
	13.05.2009, 21:24 [ТС]
	Спасибо. А <> в делфи что такое? 0

@MrAndrey_ka 79 / 79 / 20 Регистрация: 13.05.2009 Сообщений: 537 Записей в блоге: 1
	13.05.2009, 21:28
	это значит не равно в си != 0

@DanUnited Программист TH 292 / 147 / 12 Регистрация: 06.01.2009 Сообщений: 537
	13.05.2009, 22:01
	Хана жесть вы переводите... 0

@DanUnited Программист TH 292 / 147 / 12 Регистрация: 06.01.2009 Сообщений: 537
	13.05.2009, 22:09
	В ShowMessage пишутся не прификсы а ковычки. 0

@MrAndrey_ka 79 / 79 / 20 Регистрация: 13.05.2009 Сообщений: 537 Записей в блоге: 1
	13.05.2009, 22:32
	Я всё понимаю конечно, но у меня по моему руки не оттуда растут. У меня опять ошибка. Пишет cannot convert 'int' to 'const TVarRec *' ShowMessage(Format("Найден минимальный путь.\r\nОн равен %d.", ARRAYOFCONST(((int)MinPath)))); так работает! но по моему вариант ShowMessage("Найден минимальный путь."+NS+"Он равен "+IntToStr(MinPath)+'.'); лучше 1

@Victor35 0 / 0 / 0 Регистрация: 21.04.2009 Сообщений: 25
	13.05.2009, 23:43 [ТС]
	а в си как объявить переменную типа файл? Добавлено через 28 минут 16 секунд И еще как его открыть потом на чтение и потом закрыть. 0