FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Usando Delphi...
Hola a todos!!!
Esta es la primera vez que entro en la taberna.. y está bastante bien. Tendré que pasarme a menudo. Os invitaría a una cerveza, pero a los menores no nos venden, ¿qué tal un refresco? Quería poner este hilo para que los amigos del clubdelphi compartiéramos alguna anécdotilla que nos hubiera pasado usando Delphi, sobre todo en los primeros días, cuando no teníamos ni idea de programar (algunos, claro) o de cuando estuviéramos despistados. Quería empezar yo con algo que me pasó, estaba probando a hacer una pequeña calculadora (muchos empezamos con esas cosillas), y en el botón de sumar puse el código que yo creí necesario, pero al pulsar F9 (tengo la tecla desgastada) me salía un error. Estuve no sé cuánto tiempo intentando resolverlo, mi tío me sugirió que me diera de alta en el clubdelphi ("¿eso qué es?", pregunté) y lo preguntara. Suerte que finalmente me di cuenta del fallo y no hice tal ridículo (quizás me habríais tomado por un bromista). El código que tenía era este:
¿Alguien encuentra el fallo? Si no lo ve es que le pasa lo mismo que le pasó a mí. Asigno el nuevo número a "e" y se lo sumo a "a", lo normal, pero si aún no habéis visto el fallo, fijáos en la suma... Bueno, sin comentarios, y ya sabéis, no os cortéis contando esta clase de cosillas... (ya me pasaré a contar alguna más, que ahora tengo que irme) Salu2 y hasta la próxima |
#2
|
||||
|
||||
No eres el unico!
A mi me ha pasado lo mismo y cuando descubris que es te sentis un perfecto idiota
Saludos
__________________
Pascalizado ----------------------------- "Ser una pluma y por el viento dejarse llevar hasta donde nunca nadie pudo llegar..." |
#3
|
||||
|
||||
Jo! Qué poca gente se anima,
Bueno, contaré otra: Resulta que estaba yo maquinando cómo hacer una función o procedure para crear un directorio aunque el padre no existiera, es decir, crear "C:\archivos de programa\emp\soft" sin que existiera "emp". Tras tiempo dándole al bote llegué a esta conclusión:
¡¡¡ Y al poco descubrí que existía ya en Delphi una función que hacía eso !!! Por si alguien no la conoce, se llama ForceDirectories. Bueno, a ver si alguien se anima Salu2 |
#4
|
||||
|
||||
Esto si que es un desastre!!!
Hola amigos del foro, aqui posteo un viejo codigo que cuando quise programar un programa para borrar el '.' de la extensión un archivo, es un desastre, lo más gracioso fue que al otro dia me levante y lo reprograme de 0 y lo termine en 10 min, mientras que con este luche unos 30 min, jajaj.
bueno aqui tienen el codigo: Código:
program Hastaluego; uses Crt,SysUtils,StrUtils; var Dire:String; procedure Busco (Dir:String); var Datos: TSearchRec; procedure Reemplazo (Archivo:String); var ext:string[4]; aux:String; i:Integer; NotArch:String='.DOC .SXW .WBK .XLS'; begin aux:=''; ext:=Uppercase(ExtractFileExt(Archivo)); if findPart(ext,NotArch)<1 then begin aux:=DelChars(Archivo,'.'); RenameFile(Archivo,aux); writeln (aux + ' SE MODIFICO!!!'); end else writeln (Archivo + ' No se MODIFICO!!!'); end; begin //Comienza del procedimiento principal FindFirst(dir+'*.*',Faanyfile,Datos); if DirectoryExists(ExtractFilePath(dir)+Datos.name) then begin Busco(dir+Datos.Name) end else begin Reemplazo(dir+'\'+Datos.name); while FindNext(Datos)<>0 do begin if DirectoryExists(ExtractFilePath(dir)+Datos.Name) then begin Busco(dir+Datos.Name) end else Reemplazo(dir+'\'+Datos.Name); FindNext(Datos); end; end; findClose(Datos); end; //Comienza principal begin write ('INGRESE EL DIRECTORIO: '); readln(Dire); Busco(Dire); end.
__________________
Pascalizado ----------------------------- "Ser una pluma y por el viento dejarse llevar hasta donde nunca nadie pudo llegar..." |
#5
|
||||
|
||||
En mis comienzos, antes de Delphi, recuerdo que uno de mis primeros programas lo hice en un solo fichero con unas 15.000 líneas de código, hasta que descubrí aquello de divide y vencerás.
__________________
Saludos Emilio |
#6
|
||||
|
||||
Hola,
Cita:
Coincido con Al en que yo también me he percatado de que algo he mejorado desde entonces,... y no es por falsa modestia, sino porque ha pasado, creo, el suficiente tiempo (y el suficiente código fuente) como para darme cuenta. Es curioso y se agradece darse cuenta de estas cosas. Última edición por dec fecha: 16-09-2006 a las 23:59:34. |
#7
|
||||
|
||||
Mi primer programa en delphi ....
Mi primer programa en delphi fue el típico "Hola mundo", pero para hacerlo tuve que ir siguiendo paso a paso las instrucciones de una revista. Era una colección que te enseñaba a programar (si lo se, soy un lamer ...) y regalaba una versión MUY recortada y antigua de delphi. Acostumbrado a hacer programas en Turbo Pacal, el ver una ventanita de windows me pareció increíble Recuerdo que nunca había oído hablar de la programación orientada objetos, ni de los eventos, etc. Me empeñaba en hacer las cosas como en pascal, y aunque no conservo ningún código de aquel tiempo, si recuerdo que eran trozos de código inmensos con un montón de Proccessmessage por el medio, los eventos no ivan conmigo Pero bueno, mucho google después creo que lo voy controlando un poco. O eso pienso hasta que entro en este foro y veo algún código que me pone todo patas arriba y me demuestra que me queda mucho por aprender. |
#8
|
||||
|
||||
Vaya, creo qeu todos hemos pasado pro lo mismo. Yo apenas tengo 4 o 5 años en esto de la programacion (un chamaco), tengo par de proyectos universitarios (completos) qeu ni me atrevo a reutilizar.
Y cuando veo esa maraña de codigo, a decir verdad, preferiría rehacerlo entero, entonces despues me doy cuenta que he evolucionado un poco en analisis, organizacion y conocimientos. Aun falta mucho por hacer y aprender (seguro). Saludos
__________________
Van Troi De León (Not) Guía, Code vB:=Delphi-SQL, ¿Cómo? Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto! Última edición por vtdeleon fecha: 17-09-2006 a las 01:12:41. |
#9
|
|||
|
|||
Bueno, al ver los códigos de mis comienzos, no me explico como los entendía en aquel entonces. En verdad que estaban llenos de innumerables líneas en las que me perdía a cada instante.
Saludos |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Usando Query en delphi 7 | quja | SQL | 2 | 16-10-2005 07:05:37 |
Usando un TActionList | android_beat | Varios | 2 | 07-09-2005 20:21:47 |
Convertir Delphi a HTML usando XML | estrellita | Internet | 4 | 19-04-2004 13:47:14 |
Crear BD en Delphi usando Interbase? | whiti | Conexión con bases de datos | 2 | 14-01-2004 13:57:17 |
usando el registro | redlyon13 | API de Windows | 2 | 01-12-2003 10:47:07 |
|