Programación General > Delphi
Empezando con Delphi
DriverOp:
Pues tocará buscar en la ayuda de la clase TCanvas. Me parece que sí hay algo así pero mejor checalo tú que eres quien sabe qué es lo que necesitas.
zany_666:
He usado pen.color:=clBlue para poner color azul.Gracias! Otra cosa he usado rectangle para hacer un rectangulo, pero puede hacerse de forma que sea sin relleno? :)
EDIT: Solucionado! Con Brush.Style:=bsClear; no pone relleno :lol:
zany_666:
Bueno, tengo alguna dudilla mas con delphi, est vez de como leer un archivo binario. No se muy bien como leer un campo de un registro, me explico:
- Tengo un tipo TRegistro con diferentes campos:
--- Código: Text ---TRegistro=RECORD campo1:string[1]; campo2:integer; end;
- Y un fichero binario que contiene los registros: miFichero: FILE OF TRegistro;
Como puedo leer cada campo de cada registro y avanzar por el fichero (posicionanndome de registro en registro y de cada registro leer todos sus campos????
He probado esto (suponiendo que las variables auxiliares tienen el mismo tipo que el campo del TRegistro):
--- Código: Text --- var registro:TRegistro; f:file of TRegistro;begin AssignFile (f,'fichero.fic'); Reset (f); while not EOF(f) do begin Read (f,registro.campo1); campoAuxiliar:=registro.campo1; {Aqui, seria correcto: campoAuxiliar:=campo1; ???} Read (f,registro.campo2); campoAuxiliar2:=registro.campo2;end;
Esta correcto?¿? Es que las instrucciones read creo que no están bien. He googleado pero no he visto ejemplos con registros de forma clara.
Gracias de antemano!
DriverOp:
Deberías haber creado un tema nuevo en el foro porque esta pregunta no tiene nada que ver con la original.
Pues nada, a lo nuestro:
--- Cita de: "zany_666" ---
--- Código: Text --- var registro:TRegistro; f:file of TRegistro;begin AssignFile (f,'fichero.fic'); Reset (f); while not EOF(f) do begin Read (f,registro.campo1); campoAuxiliar:=registro.campo1; {Aqui, seria correcto: campoAuxiliar:=campo1; ???} Read (f,registro.campo2); campoAuxiliar2:=registro.campo2;end;
Esta correcto?¿? Es que las instrucciones read creo que no están bien. He googleado pero no he visto ejemplos con registros de forma clara.
--- Fin de la cita ---
Pues no, no es así. Read() cuando lee un archivo con tipo lee un registro completo y no "campo a campo". Y luego de cada lectura avanza el puntero al siguiente registro, estonces según tu código deberías hacer:
--- Código: Delphi --- var registro:TRegistro; f:file of TRegistro;begin AssignFile (f,'fichero.fic'); Reset (f); while not EOF(f) do begin Read (f,registro); campoAuxiliar:=registro.campo1; { siempre y cuando campoAuxiliar sea del mismo tipo que .campo1 } campoAuxiliar2:=registro.campo2; { idem anterior } end; // while CloseFile(f); { no es educado dejar la puerta abierta cuando te marchas :D }end;
Saludos.
zany_666:
Gracias!
--- Citar ---Deberías haber creado un tema nuevo en el foro porque esta pregunta no tiene nada que ver con la original.
--- Fin de la cita ---
Mis disculpas. Pense que al ser de Delphi.. en fin pensé que más post serian molestos ^_^ me van surgiendo dudas de diferentes tipos...
Haré los post según el tema jejeje
Navegación
[#] Página Siguiente
[*] Página Anterior
Ir a la versión completa