FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Crear clase. Basico de POO.
Buenas, estoy haciendo un programa que me identifique todos los recursos compartidos de red. Consigo localizarlos y demás, pero para trabajar con ellos necesitro crear una clase, TOrdenador, por ejemplo....
Seria de la siguiente forma... TOrdenador contendria: Ip:string; Hostname:string; Recursos:TStringList; No le veo mucha complicación, solo la mía porque no se POO... ni se donde colocar la clase, ni cómo acceder a ella. Gracias por adelantado, a todos.
__________________
:) |
#2
|
||||
|
||||
Hola
Primero que nada enviarte un fuerte abrazo, que hacía tiempo no te leía y ya se te estraña.
Con respecto a tu pregunta te diré que aunque no soy un maestro en el asunto trataré de ayudarte: Te puedes crear una nueva unidad para tu clase:
Bueno también puedes declarar métodos públicos para tu clase, pero no los comentas, pero básicamente es así, claro que puedo estar equivocado, pero de ser así ya alguien se encargará de rectificarme. Saludos
__________________
Lo importante no es llegar primero, sino saber llegar. Para que puedas llegar mejor lee la Guia de Estilo |
#3
|
||||
|
||||
Hola
Bueno pues ahora mismo parese que mi clase da un problema, en una prueba que hice:
Estoy investigando que es lo que está pasando, desde que de con el problemo te alumbro, si alguien sabe el por que ya seremos dos los agradecidos. Saludos.
__________________
Lo importante no es llegar primero, sino saber llegar. Para que puedas llegar mejor lee la Guia de Estilo |
#4
|
||||
|
||||
Hola
Nada era un problema con la palabra Recurso que se declaró mal por accidente, a continuación te pongo el código arreglado:
Bueno espero te ayude, Buena suerte AMIGO Saludos.
__________________
Lo importante no es llegar primero, sino saber llegar. Para que puedas llegar mejor lee la Guia de Estilo Última edición por yusnerqui fecha: 11-08-2005 a las 22:53:31. |
#5
|
||||
|
||||
¡Hombre yusnerqui! ¿Que hay?... ¿Donde esta el burro?... :s (antes tenias en el avatar el burro de shrek, si no empiezo a desvariar... :P)...
Pues si, hacía tiempo que no entraba... ya que he estado liado con C y C++... y Delphi lo he tocado poco... además he estado diseñando la página de mi madre (que aún la sigo diseñando... aunque ahora solo haya subido un fake para mientras tanto...)... por lo que no he tenido mucho tiempo. :\ Que se le va a hacer... es lo que hay... ... ¿que has estado haciendo tu mientras tantooo? que te tengo perdido :P Vaya, esa clase funciona fenomenal y me viene como anillo al dedo... Lo que no se es cómo declararla como un array... por ejemplo... .... supongo que seria algo asi, pero no se dónde colocarlo... ¿Debajo de quizás?... :s Gracias una vez más, simplemente por leer mis pesados tochos :\
__________________
:) |
#6
|
||||
|
||||
Un pequeño detalle que puede ser curioso.
Al declarar Recursos, creo que sería conveniente hacerlo así: Lo demás que da igual. ¿Por qué? porque así puedes usar algo como:
DarkByte mira este hilo sobre el TObjectList te olvidas de usar arrays directemente. Por supuesto busca por TobjectList, se ha explicado varias veces su uso. Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#7
|
|||||
|
|||||
Hola
Cita:
Cita:
Cita:
Cita:
Cita:
Saludos
__________________
Lo importante no es llegar primero, sino saber llegar. Para que puedas llegar mejor lee la Guia de Estilo |
#8
|
||||
|
||||
A ver... voy a practicarlo y a ver que tal... porque tantos conceptos nuevos... :s
Muchísimas gracias, informaré con el resultado de la "operación" :P
__________________
:) |
#9
|
||||
|
||||
Uf.. lo siento por mi torpeza... pero entre que estoy MUY verde en esto de POO y que hay un montón de cosas nuevas del tirón.. no me aclaro. He entendido más o menos el funcionamiento del TObject list, y lo de crear la var Lista:TObjectList y demás... pero no consigo entender el código como para aplicarlo a mi proyecto.
Gracias por vuestra ayuda una vez más.
__________________
:) |
#10
|
||||
|
||||
Pseudocodigo, pero creo que se entiende el método:
Listo, ya tenemos 6 ordenadores creados dentro del TObjectList. Para acceder al segundo ordenador usaríamos:
¿Ves algo raro? es la forma de trabajar en delphi con todas las instancias de objetos. Un saludo.
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#11
|
||||
|
||||
El código parece perfecto. Únicamente no encuentro la uses del TString :S
Gracias una vez más
__________________
:) |
#12
|
||||
|
||||
En el editor de código pon el cursor sobre la palabra TStrings y F1.
saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#13
|
||||
|
||||
Ya lo hice... y me encontré el TStringList.. pero no el TString :\
De todos modos, volveré a buscar :P
__________________
:) |
#14
|
||||
|
||||
TStrings
edito:Probado y sale del tiron la ayuda
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#15
|
||||
|
||||
Cita:
La solución es crear vectores dinámicos. Lo definis asi, sin declarar la cantidad
Luego en tu código especificas la cantidad que queres
si queres uno más
y los accedes igual que cualquier vector, pero recuerda que el primero es el indice cero. Cita:
__________________
[Crandel] |
#16
|
||||
|
||||
Se desperdicia memoria RAM según el valor de Max_Int.
TOrdenadores deriva de TObject, por tanto, cada elemento del Array es un puntero (4 Bytes), 1000 elementos serían 4kb de memoria. Eso sí, tiene más trabajo, inicializarlos a nil, comprobar que no es nil al acceder a ellos, y por último poner a nil cada elemento al liberarlo de memoria. Básicamente es lo que hace un TList, por eso es conveniente usar el TobjectList, aprovechando el resto de propiedades y métodos que trae (Count, Sort, Pack, etc.). Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#17
|
||||
|
||||
Muchisimas gracias. Funciona a la perfeccion.
Creo que de momento desperdiciare un poco de memoria... hasta que ya tenga claro los conceptos :\
__________________
:) |
#18
|
||||
|
||||
Cita:
son MAXINT*4 bytes = 8 Gb
__________________
[Crandel] |
|
|
|