Перевод кона на C++ Builder

@shilovec5377 · Регистрация: 26.05.2011

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

Помогите плиз перевести код из Delphi в C++ Builder/ Вот код:
var
i,j: integer;
s: string;
begin
if combobox1.ItemIndex <0 then exit;
i:=0;
while stringgrid1.Cells[combobox1.ItemIndex,i]<>'' do begin
s:=stringgrid1.Cells[combobox1.ItemIndex,i];
if s=edit1.Text then begin
for j:=0 to 4 do begin
if j<>combobox1.ItemIndex then messagebox(0,pchar(stringgrid1.Cells[j,i]),pchar(stringgrid1.Cells[j,0]),0);
end;
end;
inc(i);
end;
messagebox(0,pchar('поиск завершён'),'',0);
end;

@Programmer. · 07.06.2011, 21:58

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
int i,j;
String s;
{
if(ComboBox1->ItemIndex<0)
return;
while(StringGrid1->Cells[ComboBox1->ItemIndex,i])
 {
if(s==Edit1->Text)
 {
  for(j=0;j<4;j++)
    {
     if(j!=ComboBox1->ItemIndex)
        MessageBox(NULL,(StringGrid1->Cells[j,i],pchar(StringGrid1->Cells[j,0],0);
    }
 }
inc //не знаю ето что такое
}
MessageBox(NULL,pchar("Поиск завершен"),"",0);
}

Думаю так както

cpp_developer · 07.06.2011, 22:09

C++
1
2
3
4
5
return;
i = 0; // где потерял ?
while(StringGrid1->Cells[ComboBox1->ItemIndex][i] != "")
//...
Application->MessageBox(StringGrid1->Cells[j][i], StringGrid1->Cells[j][0], 0);

молодец
З.Ы.

PChar указатель на символы 32 бита unsigned char *

@Programmer. · 07.06.2011, 22:22

LK,
АА понятно шас, я думаю если знаеш синтаксис C++(или delphi) то знаеш и delphi(или c++),Ну чут-чут отличается кодом

cpp_developer · 07.06.2011, 22:25

Ну чут-чут пашты

.

@Programmer. · 07.06.2011, 22:32

LK,

Не по теме:

Киндзмараули будеш? :D :rofl:

@shilovec5377 · 07.06.2011, 22:38 **[ТС]**

что-то выдает ошибку в этой строке:
Application->MessageBox(StringGrid1->Cells[j][i], StringGrid1->Cells[j][0], 0);
Ошибка:
E2034 Cannot convert 'AnsiString' to 'const char *'
E2342 Type mismatch in parameter 'Text' (wanted 'const char *', got 'AnsiString')
[E2342 Type mismatch in parameter 'Caption' (wanted 'const char *', got 'AnsiString')

Помогите плиз, ато не понимаю((((((((((

cpp_developer · 07.06.2011, 22:46

Programmer., киндзмараули много ? да

...

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

C++
1
2
3
4
AnsiString S1, S2;
S1 = StringGrid1->Cells[j][i];
S2 = StringGrid1->Cells[j][0];
Application->MessageBox(S1.c_str(), S2.c_str(), 0);

@QVO · 07.06.2011, 22:54

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

inc

Это в c++ выглядит как

C++
1
int i = i + 1 ;

или

C++
1
i++ ;

Там вроде еще можно писать

C++
1
inc(i,5);

будет считать как

C++
1
i = i + 5;

Если не напутал.

@shilovec5377 · 07.06.2011, 22:58 **[ТС]**

Нет не напутал. Можно писать (i++).
inc в Delphi означает увеличение на (1)!!!

cpp_developer · 07.06.2011, 23:01

shilovec5377, а шо ж ты сам не перевел, коль все знаешь

?

@shilovec5377 · 07.06.2011, 23:25 **[ТС]**

я к сожелению не так и много знаю как хотелось бы, но это я знаю!!!!
LK ты учишься или работаешь!!!
Просто ты так много знаешь? Во многом мне помог. Большое спасибо, я бы сам не справился!!!

cpp_developer · 07.06.2011, 23:33

Не по теме:

учусь на подготовительном отделении дорожно-строительного ПТУ

@shilovec5377 · 07.06.2011, 23:59 **[ТС]**

а откуда так программирование знаешь?

cpp_developer · 08.06.2011, 00:08

а туда без сдачи экзамена по С++ и по С++ Билдеру не принимают

Не по теме:

ПТУ - профессинально-техническое училище, ниже учебного заведения не бывает, только школа

@shilovec5377 · 08.06.2011, 00:15 **[ТС]**

хорошая шутка, а если серьезно

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

@QVO · 08.06.2011, 00:16

Не по теме:

shilovec5377, Что же ты пристал к человеку? :D еще адрес возьми... :rofl:

@shilovec5377 · 08.06.2011, 00:21 **[ТС]**

А чеж с умным человеком да не пообщаться

cpp_developer · 08.06.2011, 00:26

Полностью с Вами согласен, уважаемый товаристчь Nouko

.

Добавлено через 54 секунды
В данном контексте с Вами тоже, уважаемый товаристчь shilovec5377

.

@Programmer. · 08.06.2011, 12:33

LK,

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

киндзмараули много ? да

как много? не понял

"ШУт-ШУт"

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@shilovec5377 33 / 58 / 13 Регистрация: 26.05.2011 Сообщений: 756

	Перевод кона на C++ Builder 07.06.2011, 20:57. Показов 1239. Ответов 19 Метки нет (Все метки) Помогите плиз перевести код из Delphi в C++ Builder/ Вот код: var i,j: integer; s: string; begin if combobox1.ItemIndex <0 then exit; i:=0; while stringgrid1.Cells[combobox1.ItemIndex,i]<>'' do begin s:=stringgrid1.Cells[combobox1.ItemIndex,i]; if s=edit1.Text then begin for j:=0 to 4 do begin if j<>combobox1.ItemIndex then messagebox(0,pchar(stringgrid1.Cells[j,i]),pchar(stringgrid1.Cells[j,0]),0); end; end; inc(i); end; messagebox(0,pchar('поиск завершён'),'',0); end; 0

@Programmer. Прогер 632 / 263 / 15 Регистрация: 17.11.2010 Сообщений: 1,371 Записей в блоге: 2
	07.06.2011, 22:22
	LK, АА понятно шас, я думаю если знаеш синтаксис C++(или delphi) то знаеш и delphi(или c++),Ну чут-чут отличается кодом 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	07.06.2011, 22:25
	Ну чут-чут пашты . 0

@Programmer. Прогер 632 / 263 / 15 Регистрация: 17.11.2010 Сообщений: 1,371 Записей в блоге: 2
	07.06.2011, 22:32
	LK, Не по теме: Киндзмараули будеш? :D :rofl: 0

@shilovec5377 33 / 58 / 13 Регистрация: 26.05.2011 Сообщений: 756
	07.06.2011, 22:38 [ТС]
	что-то выдает ошибку в этой строке: Application->MessageBox(StringGrid1->Cells[j][i], StringGrid1->Cells[j][0], 0); Ошибка: E2034 Cannot convert 'AnsiString' to 'const char ' E2342 Type mismatch in parameter 'Text' (wanted 'const char ', got 'AnsiString') [E2342 Type mismatch in parameter 'Caption' (wanted 'const char *', got 'AnsiString') Помогите плиз, ато не понимаю(((((((((( 0

@shilovec5377 33 / 58 / 13 Регистрация: 26.05.2011 Сообщений: 756
	07.06.2011, 22:58 [ТС]
	Нет не напутал. Можно писать (i++). inc в Delphi означает увеличение на (1)!!! 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	07.06.2011, 23:01
	shilovec5377, а шо ж ты сам не перевел, коль все знаешь ? 0

@shilovec5377 33 / 58 / 13 Регистрация: 26.05.2011 Сообщений: 756
	07.06.2011, 23:25 [ТС]
	я к сожелению не так и много знаю как хотелось бы, но это я знаю!!!! LK ты учишься или работаешь!!! Просто ты так много знаешь? Во многом мне помог. Большое спасибо, я бы сам не справился!!! 0

cpp_developer
	07.06.2011, 23:33
	Не по теме: учусь на подготовительном отделении дорожно-строительного ПТУ 0

@shilovec5377 33 / 58 / 13 Регистрация: 26.05.2011 Сообщений: 756
	07.06.2011, 23:59 [ТС]
	а откуда так программирование знаешь? 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	08.06.2011, 00:08
	а туда без сдачи экзамена по С++ и по С++ Билдеру не принимают Не по теме: ПТУ - профессинально-техническое училище, ниже учебного заведения не бывает, только школа 1

@shilovec5377 33 / 58 / 13 Регистрация: 26.05.2011 Сообщений: 756
	08.06.2011, 00:15 [ТС]
	хорошая шутка, а если серьезно Добавлено через 1 минуту сколько тебе лет 0

@QVO
	08.06.2011, 00:16
	Не по теме: shilovec5377, Что же ты пристал к человеку? :D еще адрес возьми... :rofl: 1

@shilovec5377 33 / 58 / 13 Регистрация: 26.05.2011 Сообщений: 756
	08.06.2011, 00:21 [ТС]
	А чеж с умным человеком да не пообщаться 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	08.06.2011, 00:26
	Полностью с Вами согласен, уважаемый товаристчь Nouko . Добавлено через 54 секунды В данном контексте с Вами тоже, уважаемый товаристчь shilovec5377 . 0