Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Поиск в массиве, переписать код с Delphi - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Связный список и наследование классов http://www.cyberforum.ru/cpp-beginners/thread673998.html
есть задание,суть которого в создании связного списка для добавления элементов,которые будут находится в производных классах. //односвязный список class Node { public: char type; char name;...
C++ Как изменять значения переменной уже скомпилированного кода Всем привет)есть код class MyClass { int i; public: MyClass() { i=100; } http://www.cyberforum.ru/cpp-beginners/thread673997.html
C++ Наследуемым классом для комплексного числа объявить класс "радиус-вектор", имеющий данные "длина" и "угол"
кто то напишите пожалуйста, вот программа: наследуемым классом для комплексного числа объявить класс "радиус-вектор", имеющий данные "длина" и "угол". Определить конструктор радиус-вектора. Вывести...
C++ Даны два массива
Даны два массива. Найти наименьшее число из первого массива среди чисел, которые не входят в первый массив.
C++ Выполнить транспонирование квадратной матрицы http://www.cyberforum.ru/cpp-beginners/thread673954.html
Здравствуйте дали такое задание. Объявите двумерный целочисленный массив, в котором n  n элементов. Выполните транспонирование полученной квадратной матрицы. Распечатайте массив в виде таблицы...
C++ Как перевести десятичное число в двоичную Зравствуйте, значит проблема у меня такая 1.Есть у меня число представленная в десятичной системе Допустим 35, мне его нужно перевести в двоичную систему(в консольном приложении) 2.Ещё у меня... подробнее

Показать сообщение отдельно
Staalker
0 / 0 / 0
Регистрация: 11.12.2010
Сообщений: 58

Поиск в массиве, переписать код с Delphi - C++

18.10.2012, 11:14. Просмотров 226. Ответов 0
Метки (Все метки)

Переписать код с DELPHI на С++
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button3Click(Sender: TObject);
var result:variant;
begin
  result:=Students.Lookup ('FIO', Edit2.Text, 'FIO;BAL');
  if VarType (result) = varNull then
    ShowMessage ('Нет студента' + Edit2.Text)
  else
    if VarType (result) = varEmpty then
      ShowMessage ('Поиск не произведен')
    else
      if VarIsArray (result) then
        begin
            Label1.Caption:= result[0];
            Label2.Caption:= result[1];
        end;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru