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. |
|
|
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 |
|