|
|
 |
 |
|
FTP | |
|
CCD | |
|
Buscar | |
|
Trucos | |
|
Trabajo | |
|
Foros | |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
 |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#21
25-04-2013
|
||||
|
||||
|
Cita:
 Me parto de la risa.... o de la vergüenza por recomendar Delphi y que vean el precio y una de dos, que me manden a la mierda o que lo prueben "gratis", dicen que esta bien pero con herramientas gratuitas o mas baratas se puede hacer y me manden a la mierda... Desde luego embarcadero no escucha a los usuarios desde hace tiempo...
__________________
Donde Trabajo ahora --> http://cct-inc.co.jp/ 
|
|
#22
26-04-2013
|
|||
|
|||
|
Estan re locos con los precios, asi como va la verdad no me arrepiento haber dejado delphi por c#/c++ de la mocosoft, nose porque cobran tanto si la syntax de delphi la encuentro demasiado primitiva y mala (por mi) despues de trabajar con c# o c++ la verdad que es incomparable :/
Cuando vuelvo a delphi la syntax es horrible y da la impresion de estar volviendo a algo viejo :S, pero tengo buenos recuerdos de el. Podrian empezar a mejorar la syntax de delphi, o vamos a llegar al año 3000 y vamos a seguir con lo antiguo..
|
|
#23
26-04-2013
|
||||
|
||||
|
¿Es un chiste lo de la sintaxis?, no lo he entendido.
__________________
 La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código Únete al grupo Teaming clubdelphi | Colabora mediante Paypal
|
|
#24
26-04-2013
|
||||
|
||||
|
cmm07,
Cita:
 Nelson.
|
|
#25
26-04-2013
|
||||
|
||||
|
Al troll ni vale la pena responderle. No alimentemos a los trolls.
Volviendo al tema de precios, tengo una licencia de Delphi 2007 Professional y de pura curiosidad se me ocurre consultar (a Unisolutions, el único que vende licencias en Argentina) cuánto cuesta un upgrade. Y...¡ sorpresa !...solamente se puede hacer upgrades desde Delphi 2010 o versiones posteriores. En mi caso debería comprar una licencia nueva, que cuesta la friolera de U$S 1305 (con IVA incluído). Entonces les da lo mismo que hubiese estado trabajando con una copia sin licencia o que hubiera sido un desarrollador que en su vida tocó Delphi: pague una licencia nueva. ¿ Saben que ? Hace rato que noto como Embarradero no está tomando el pelo. Después que no se quejen de que cada día menos gente usa sus productos. Dejé de lado Delphi para empezar a usar Lazarus y la verdad, no me arrepiento en absoluto. 
__________________
Lazarus Codetyphon : Desarrollo de aplicaciones Object Pascal, libre y multiplataforma. Última edición por rretamar fecha: 26-04-2013 a las 18:09:45.
|
|
#26
26-04-2013
|
||||
|
||||
|
Cita:
Lo que probablemente no fue politicamente correcto, es la forma de como expresó su idea el amigo cmm07. 
__________________
Ya tengo Firma!
|
|
#27
26-04-2013
|
||||
|
||||
|
Cita:
Cita:
Hay que tener encuenta sentimientos y experiencias como estas, además el compañero cmm07 no llego ayer a este foro: nov 2007 y 512 mensajes, (por lo menos es mas de lo que yo tengo) Sin embargo, amigo cmm07, creo que el tema de sintaxis es cuestión de gustos y adaptación... Aunque mas que a sintaxis yo creo que te refieres a la estructuración o reglas del lenguaje.... Pero como te digo, puede ser cuestion de adaptación. A mi personalmente me pasaba que la mayor parte de los problemas que tenía mientras programaba en Java eran por errores de sintaxis... (escribia en Pascal)... Desde mi punto de vista, delphi es uno de los lenguajes mejor estructurados... Bueno,
|
|
#28
26-04-2013
|
|||
|
|||
|
Cita:
Hoal quisas use palabras muy fuertes y directas, sorry por eso no quise insultar a nadie solo que se pasan cobrar tanto por solo agregar ios, quice decir que a la sintax podrian mejorarle que bueno segun mi apreciacion personal luego de un año trabajar con lo de la microsoft (c++ no es de la microsoft ojo jeje) lo encontre demasiado antiguo "primitivo" por asi llamarlo. Ayer hice un ejercicio despues de mucho sin ocupar delphi y realmente me senti como volver al pasado a una epoca antigua.. Solo eso, se que cada uno tiene su apreciacion de las cosas y las respeto, pero embarcaderos solo hace agregar componentes y quitar cosa y poner y quitar y poner..... Pero no mejoran la syntax que es el lenguaje en si a grandes pasos...... Perdonen que lo diga pero ni javascript lo encuentro tan antiguo como fue cuando ayer hice un ejercicio en delphi.. Y tampoco pueden decir " aa un troll no le hagan caso" ya que mi opinion es tan valida como otros, trabaje mas de 7 años en delphi y ahora llevo 1 año en c#/c++ y esa fue mi experiencia... Si exagere en la forma de decirl las cosas y me disculpo a quienes ofendi Última edición por cmm07 fecha: 26-04-2013 a las 21:11:41.
|
|
#29
26-04-2013
|
||||
|
||||
|
Cita:
Te pongo un ejemplo: El idioma alemán está muy bien, pero tiene una sintaxis muy primitiva, deberían de cambiar la sintaxis para que sea más moderno, que se parezca al japonés. Pues eso, que el alemán es alemán, el ruso es el ruso. El pascal es el pascal y el C es el C. Si hacemos un pascal como C, ¿qué tenemos?, un pascalc, un cpascal... sería otro lenguaje.
__________________
La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código Únete al grupo Teaming clubdelphi | Colabora mediante Paypal
|
|
#30
26-04-2013
|
|||
|
|||
|
Cita:
|
|
#31
26-04-2013
|
||||
|
||||
|
Pero eso no tiene nada que ver con la sintaxis.
De todas formas, creo que lo que pides se puede hacer, si mal no recuerdo.
__________________
La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código Únete al grupo Teaming clubdelphi | Colabora mediante Paypal
|
|
#32
26-04-2013
|
|||
|
|||
|
Cita:
|
|
#33
26-04-2013
|
||||
|
||||
|
Cita:
Cita:
__________________
"constructive mind, destructive thoughts"
|
|
#34
26-04-2013
|
||||
|
||||
|
Cita:
Estudio donde se denuncie esa aberración de usar el operador "!=", de C y sus lenguajes derivados, cuando en todo el mundo y en muy distintas materias, en las que es aplicable una comparación de datos, suele utilizarse el elegante operador "<>" (mismo de Pascal) para indicar diferente de. Si alguien considera saludable leer código que lleve signos aislados de vital importancia para la ejecución del programa y tan poco legibles como las escuálidas llaves de C, está, en mi opinión, bastante equivocado. Impedirle a un programador escribir ANSIUpperCase porque el nombre "real" de esa función es AnsiUpperCase, es casi franquista. He programado en C, C++ y C#, y no pongo objeciones cuando debo hacer algo con esos tristes lenguajes (a fin de cuentas a los programadores nos gusta programar en lo que sea), no obstante mi preferencia está en la sintaxis de Pascal / Delphi porque:
Al González. Última edición por Al González fecha: 26-04-2013 a las 22:28:46.
|
|
#35
26-04-2013
|
|||
|
|||
|
Bueno como dije cada uno tiene su opinión y la respeto
 , bueno algo de razón debo tener por algo estan haciendo "rescatando a delphi", en fin, esto se va a convertir en una discusión laaaargaaa, asi que sigamos comentando lo de los precios jeje
|
|
#36
26-04-2013
|
||||
|
||||
|
Cita:
Cita:
__________________
La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código Únete al grupo Teaming clubdelphi | Colabora mediante Paypal
|
|
#37
26-04-2013
|
||||
|
||||
|
Cita:
Confío en que llegarás a comprender la analogía.
|
|
#38
27-04-2013
|
|||
|
|||
|
Hola foro.
Como docente universitario durante muchos años en las areas de programación especialmente estructuras de datos llegué a pensar (una idea mal comprada) que los lenguajes C/ C++ son elegantes por su sintaxis simplificada, construcciones interesantes que resumian varias lineas de código en una sola, etc. En algún momento olvidé y logré "rescatar" que los lenguajes de programación deben ser lo más cercanos posible a nuestro lenguaje natural. Pascal / Object Pascal (Delphi) son cercanos a nuestro lenguaje natural por eso se han utilizado para la enseñanza/aprendizaje de programación; lo que sucede es que muchas personas piensan que mientras mas sofisticado sea un lenguaje lo hace mejor y otros peinsan que un lenguaje diseñado originalmente para la enseñaza no debe ser utilizado para desarrollo de proyectos reales. Un desarrollo en lenguaje C/C++ exige mayores esfuerzos en documentación, he llegado a ver segmentos de código extremadamente complejos de entender en aras de la reducción de código que ralentiza el entendimenito y mantenimiento de esos códigos; curiosamente hacer lo mismo en Pascal es más dificil y si uno lo encuentra deduce malas prácticas de programación. Bueno, aunque muchos aspectos son de gusto, he sentido que mi productividad con Pascal / Object Pascal es más alta que en C/C++ y también cuando transfiero conociemiento sobre uso de bibliotecas y mi propio framework se facilita muchísmo precisamente por el lenguaje.
__________________
Luis Fernando Buelvas T.
|
|
#39
27-04-2013
|
|||
|
|||
|
Hola bueno si no me refiero tanto a c++ que tiendo es mas difícil y también es antiguo ( lo puse mas que nada porque están de otro de la misma rama que c# o son similares), yo hable mas que nada comparándolo con c#, ese si que es un lenguaje súper estructurado, al principio yo lo miraba en huevo jjeje pero me asombra saber como esta todo estructurado es algo que realmente sorprendente programar en c#..
|
|
#40
27-04-2013
|
||||
|
||||
|
No me resistí a colocar un trozo de código fuente en C++ (sacado de http://www.cprogramming.com ), creo que una imagen vale más que mil palabras:
Código:
//**************************************
//INCLUDE files for :crypt.c
//**************************************
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
//**************************************
// Name: CryptCode.c
// Description:Encrypts file and outputs it to a file or stdout
// By:Praveena M
//
//
// Inputs:CryptCode.exe <infile> <outfile> <key>
//
//**************************************
#define cypherbits 256 /* encryption strength in bits */
#define cypher cypherbits/(sizeof(int)*8)
int seed[cypher];
void modseed() {
int x;
for(x=1;x<cypher;x++)seed[x]=seed[x]*0x81772012+seed[x]+0x49122035+seed[x+1];
for(x=1;x<cypher;x++)seed[0]=seed[0]^seed[x];
}
int seedsum() {
int n,x;
n=0x80379251;
for(x=0;x<cypher;x++)n=n^seed[x];
return((n>>24)^((n>>16)&255)^((n>>8)&255)^(n&255));
}
char strequ(char *s1,char *s2) {
int p;
p=0;
while((s1[p]==s2[p])&&(s1[p]!=0)&&(s2[p]!=0))p++;
if(s1[p]==s2[p])return(1); else return(0);
}
int main(int argc,char *argv[]) {
char
banner[]="\x43\x6f\x64\x65\x64\x20\x62\x79\x20\x50\x72\x61\x76\x65\x65\x6e\x61"
"\x20\x6f\x66\x20\x49\x6e\x64\x69\x61"
"\x20\x28\x70\x76\x6e\x63\x61\x64\x40\x6b\x72\x65\x63\x2e\x65\x72\x6e\x65\x74\x2e\x69\x6e\x29";
char buf[2048];
int p,r,l,i,t,s,x;
char b,c,pct,lpct;
FILE *infile=NULL,*outfile=NULL;
fprintf(stderr, "%s\n", banner);
if(argc!=4){
fprintf(stderr,"use: %s <infile> <outfile> <key>\n",argv[0]);
return -1;
}
if(strequ(argv[1],"stdin"))infile=stdin; else
if((infile=fopen(argv[1],"r"))==NULL){
fprintf(stderr,"failed to open %s\n",argv[1]);
return -1;
}
if(strequ(argv[2],"stdout"))outfile=stdout; else
if((outfile=fopen(argv[2],"w"))==NULL){
fprintf(stderr,"failed to create %s\n",argv[2]);
return -1;
}
if(infile!=stdin) {
fseek(infile,0,SEEK_END);
l=ftell(infile);
rewind(infile);
} else l=0;
s=l;
t=0;
pct=0;
if(l<1)fprintf(stderr,"Encrypting data.. (%d bit cypher)\n",cypher*sizeof(int)*8);
else fprintf(stderr,"Encrypting %d bytes.. (%d bit cypher)\n",l,cypher*sizeof(int)*8);
/* bzero(seed,sizeof(seed)); */
modseed();
p=0;
while(argv[3][p]!=0){
modseed();
seed[0]=seed[0]+argv[3][p];
modseed();
p++;
}
i=0;
if(l>0){
fputc('[',stderr);
x=(l/sizeof(buf));
if(l-x*sizeof(buf)!=0)x+=1;
if(x>38)x=38;
for(p=0;p<x;p++) fputc(32,stderr);
fputc(']',stderr);
fputc(13,stderr);
fputc('[',stderr);
fflush(stderr);
}
c=1;
while(c){
r=fread(&buf,1,sizeof(buf),infile);
if(r>0) {
t+=r;
if(l>0){
lpct=pct;
pct=t/(l/x);
if(pct>lpct) {
fputc(88+32*i,stderr);
fflush(stderr);
i=1-i;
}
} else {
fputc(88+32*i,stderr);
fflush(stderr);
i=1-i;
}
p=0;
while(p<r) {
modseed();
buf[p]=buf[p]^seedsum();
p++;
}
if(fwrite(&buf,1,r,outfile)!=r) {
fprintf(stderr,"\nerror writing data\n");
return -1;
}
} else c=0;
}
if(l>0)fputc(']',stderr);
fprintf(stderr,"\nDone. Wrote %d bytes.\n",t);
}
Aquí otro código más legible: Código:
/*
XOR.cpp
Matthew Costuros
snoborder420@yahoo.com
AIM: Rpi Matty
Proper usage is XOR.exe filename Key
Encrypt the file with a key 324
XOR.exe plain.txt 324
Decrypt that file
XOR.exe plain.enc 324
Encrypt a top secret file
XOR.exe keepsafe.txt 56765
Decrypt that secret file
XOR.exe keepsafe.end 56765
*/
#include <iostream.h>
#include <string.h>
#include <stdio.h>
int XOR(char * filename, unsigned long key);
int main(int argv, char ** argc)
{
unsigned long key;
char filename[100];
//if they used command line arguments pass the filename and key to xor function
if( argv == 3)
{
if( XOR(argc[1],(unsigned int)atol(argc[2]) ) )
{
cout << "There was an error trying to encrypt/decrypt the file " << argc[1] << endl;
}
}
//other wise prompt for the key and filename
else
{
cout << "What is the filename?" << endl;
cin.getline(filename,99,'\n');
cout << "What is the key?" << endl;
cin >> key;
//tell the user about command line then call xor function
cout << "Next time you can use the command line, the format is " << argc[0] << " filename key" << endl;
if( XOR(filename,key) )
{
cout << "There was an error trying encrypt/decrpyt the file " << filename << endl;
}
}
return 0;
}
int XOR(char * filename, unsigned long key)
{
FILE * input = NULL , *output = NULL;
char * outfilename = NULL;
int len = strlen(filename);
unsigned char buffer;
if( (filename[len-4] == '.') && (filename[len-3] == 'e') && (filename[len-2] == 'n') && (filename[len-1] == 'c') )
{
// our input file is encoded then we will create a file without the .end extension
outfilename = new char[len+1]; //make room for the name+\0
strcpy(outfilename,filename); //copy the string name
outfilename[len-4] = '\0'; //put the \0 before the .enc extension to cut it off
}
else
{
outfilename = new char[len+5]; //make room for the name + .enc + \0
strcpy(outfilename,filename); //copy the file name
strncat(outfilename,".enc",4); //add the .enc extension
}
input = fopen(filename,"rb");
if( input == NULL)
{
cout << "Error opening file " << filename << endl;
delete [] outfilename; //free the memory before leaving
outfilename = NULL;
return 1;
}
output = fopen(outfilename,"wb");
if( output == NULL )
{
cout << "Error creating output file " << outfilename << endl;
delete [] outfilename; //free the mem before leaving
outfilename = NULL;
return 1;
}
while( ! feof(input) )
{
//get some data
if( fread(&buffer,sizeof(unsigned char),1,input) != 1 )
{
//if we didnt get any data, but we are not at the eof, then an error has occured
if( ! feof(input) )
{
delete [] outfilename;
outfilename = NULL;
fclose(input);
fclose(output);
return 1;
}
}
else
{
//xor that data
buffer ^= key;
//write some data
fwrite(&buffer,sizeof(unsigned char),1,output);
}
}
//close the files and free that memory
fclose(input);
fclose(output);
delete [] outfilename;
return 0;
}
(igual sigo prefiriendo la sintaxis de Object Pascal, la encuentro mucho más amigable "programación para seres humanos" ).
__________________
Lazarus Codetyphon : Desarrollo de aplicaciones Object Pascal, libre y multiplataforma. Última edición por rretamar fecha: 27-04-2013 a las 17:44:47.
|
|
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Tema para la próxima reunión de delphi en México. | poliburro | Debates | 11 | 25-09-2008 16:39:07 |
| Sacar fecha mas proxima | VRO | MySQL | 1 | 26-06-2008 10:09:40 |
| fecha mas proxima | VRO | Varios | 1 | 04-10-2007 13:31:20 |
| Avanzar a la próxima línea de error | Crandel | Varios | 5 | 27-11-2006 17:35:49 |
| La proxima versión de Delphi será compatible con la VCL y el .NET | SMTZ | Noticias | 0 | 30-05-2004 09:34:16 |
 |
|
Mode Lineal
