Delphi vs C++ , Часть 1

mo3r, #include <iostream> и using std::cin; using std::cout; забыл

Цитата Мяут @ 13.04.07, 13:38

давай не будем давать платформо-зависимые примеры, а?

Вот НЕ платформо-зависимый код

procedure DoExitMethod(V: Variant);
begin
  V.Quit;
end;

Цитата Мяут @ 13.04.07, 13:38

Alex Forth, если я могу лучше, нафига мне case/break?
Profi, давай не будем давать платформо-зависимые примеры, а?

Если C++ c Delphi сравнивать только по результату, то разницу фиг найдешь. Наверно по этому Profi и просил с case и без break.
А насчет activeX не все так плохо! Есть Qt. С ее помощью код получится аналогичный приведенному

Цитата Alex Forth @ 13.04.07, 14:07

Есть Qt. С ее помощью код получится аналогичный приведенному

а как это у них сделано?

А можно я еще пооффтоплю?
Вариант даже покороче, чем у mo3r, несмотря на то, что присутствуют пустые строки и я не умею пользоваться loop (пока).

(defparameter *pr* '("Морковь" "Картофель" "Помидоры" "Огурцы" "Капуста" "Яблоки" "Груши" "Сливы" "Персики" "Абрикосы"))
 
(defun get-item-id ()
  (let ((i 0))
    (dolist (item *pr*)
      (format t "~a. ~a~%" i item)
      (incf i)))
  (format t "Выберите продукт: ")
  (let ((result (parse-integer (read-line) :junk-allowed t)))
    (cond
      ((null result) (format t "Вы ввели не число!~%"))
      ((< 0 result (length *pr*)) result)
      (t (format t "Введенное число не входит в список!~%")))))
 
(do
  ((item (get-item-id) (get-item-id)))
  ((not (null item))
       (format t "~a~%"
               (if (< item 4) "Вы выбрали овощи!" "Вы выбрали фрукт!")))
  (format t "~%"))

P.S.: При том, что вариант mo3r, вообще говоря, не компилится даже, потому что #include нет, lisp одержал безоговорочную победу по лаконичности

linuxfan@tme /tmp $ wc fruit.lisp
 20  87 684 fruit.lisp
linuxfan@tme /tmp $ wc fruit.cpp
 22 116 672 fruit.cpp

Цитата Profi @ 13.04.07, 13:32

А как такой код:

program Project1;
{$APPTYPE CONSOLE}
uses
Variants,ComObj,ActiveX;
Var
v:variant;
begin
CoInitialize(nil);
v:=CreateOleObject('Word.Application');
v.visible:=true;
readLn;
v.quit;
end.

Хех...

#include <stdio.h>
#include <sysvari.h>
#include <comobj.hpp>
int main(int argc, char ** argv) {
   CoInitialize(NULL);
   Variant v = CreateOleObject("Word.Application");
   v.OlePropertySet("Visible",true);
   getch();
   v.OleProcedure("Quit");
}

Не проверял, но принципиальных проблем не вижу.

Цитата linuxfan @ 13.04.07, 14:15

А можно я еще пооффтоплю?

Ну если в эту тему ещё wormball заглянет, то хана Какие там Делфи и С++, лисп и форт! Ну а если я ещё пролог вспомню...

Цитата trainer @ 13.04.07, 14:20

Хех...

#include <stdio.h>
#include <sysvari.h>
#include <comobj.hpp>
int main(int argc, char ** argv) {
   CoInitialize(NULL);
   Variant v = CreateOleObject("Word.Application");
   v.OlePropertySet("Visible",true);
   getch();
   v.OleProcedure("Quit");
}

Не проверял, но принципиальных проблем не вижу.

Не, Builder не катит, т.к. использует все туже VCL!

Цитата Profi @ 13.04.07, 14:23

Не, Builder не катит, т.к. использует все туже VCL!

ну тогда и ты без VCL пиши

Цитата H.Iglesias II @ 13.04.07, 14:28

ну тогда и ты без VCL пиши

Почему же? Никто Flex'у не запрещал boost использовать! Просто C++ Builder - это тот же Delphi, только с C'шным синтаксисом!

Profi, ну если C++Builder предназначен для решения тех же задач, что и Delphi, почему бы не воспользоваться им?

Цитата Мяут @ 13.04.07, 14:44

Profi, ну если C++Builder предназначен для решения тех же задач, что и Delphi, почему бы не воспользоваться им?

Потому что мне Pascal'евский синтаксис больше нравиться (единственное чего не хватает, так это a+=b и т.д. и ++a a++).

Цитата Profi @ 13.04.07, 14:49

Потому что мне Pascal'евский синтаксис больше нравиться (единственное чего не хватает, так это a+=b и т.д. и ++a a++).

Паскалевский синтаксис тебе больше нравится, значит Delphi лучше чем C++Builder? Profi, не смеши

Цитата Мяут @ 13.04.07, 14:51

Паскалевский синтаксис тебе больше нравится, значит Delphi лучше чем C++Builder? Profi, не смеши

Я чего-то ничего смешного не вижу. По мне Delphi лучше, чем C++ Builder.

Profi, ну тут еще и аргументировать это надо. Видишь, скока букавок уже понаписали на предыдущих страницах