• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

Помогите, пожалуйста реализовать программу в Netbeans

  • Автор темы Tashka
  • Дата начала
T

Tashka

Программу я написала в Delphi, нужно переписать в NetBeans, ничего не получается, вылезает куча ошибок. Не знаю как записать строчку:if RadioGroup1.ItemIndex=RadioGroup1.Tag
Вот код программы:
procedure TForm1.Button1Click(Sender: TObject);
const
marktext:array[0..1]of string=('Верных ответов-','Неверных');
Var
MarkV,MarkN:integer;
begin
MarkV:=0;
MarkN:=0;
if RadioGroup1.ItemIndex=RadioGroup1.Tag then inc(MarkV)
else inc(MarkN);
if RadioGroup2.ItemIndex=RadioGroup2.Tag then inc(MarkV)
else inc(MarkN);
if RadioGroup3.ItemIndex=RadioGroup3.Tag then inc(MarkV)
else inc(MarkN);
if RadioGroup4.ItemIndex=RadioGroup4.Tag then inc(MarkV)
else inc(MarkN);
if RadioGroup5.ItemIndex=RadioGroup5.Tag then inc(MarkV)
else inc(MarkN);
ShowMessage(MarkText[0]+IntToStr(MarkV)+MarkText[1]+IntToStr(MarkN));
end;
 
T

Tashka

Я уже сама написала, оказалось все очень просто.
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!