FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Manejo de Archivos Delphi 7
Hola, estoy haciendo un trabajo para la universidad, pero me he trabado con un error de código, si alguien me ayuda a encontrarlo se lo agradecería mucho
Código:
var Form2: TForm2; CAlta,CMedia,CBaja: integer; RAlta,RMedia,RBaja:Real; implementation uses Unit1; {$R *.dfm} procedure TForm2.Button3Click(Sender: TObject); begin Form2.Close; end; procedure TForm2.Button1Click(Sender: TObject); begin Seek(Archivo,0); While Not Eof(Archivo) DO Begin Read(Archivo,Res); IF (Res.Temporada='Alta') THEN Begin CAlta:= CAlta+1; RAlta:= RAlta+ Res.Tarifa; end else IF (Res.Temporada='Media') THEN Begin CMedia:= CMedia+1; RMedia:= RMedia+ Res.Tarifa; End else IF (Res.Temporada='Baja') THEN Begin RBaja:= RBaja+ Res.Tarifa; CBaja:= CBaja+1; End; End; Listbox1.items.Add(IntToStr(CAlta)); End; end. |
#2
|
||||
|
||||
Hola napsterk89, bienvenido a Club Delphi
Como es costumbre con los que se inician, te invitamos a que leas nuestra guía de estilo. No sé la finalidad del código y si la cumple, pero sintácticamente es correcto. Es decir, si las declaraciones del registro y archivo son las adecuadas, el código compila y ejecuta. Para verificarlo crea una nueva aplicación, pone un TButton y un TListBox y realiza esta simple prueba:
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
||||
|
||||
¿Cómo está definido el registro?
¿Podrías poner un pequeño archivo de ejemplo para poder probarlo?
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
manejo de archivos | Neg90 | Varios | 3 | 03-04-2013 02:45:09 |
Necesito ayuda con el manejo de archivos usando delphi 7 | mauser1985 | Impresión | 40 | 14-07-2008 00:14:00 |
Necesito ayuda con el manejo de archivos usando delphi 7 | mauser1985 | Varios | 1 | 13-07-2008 00:08:44 |
Manejo de archivos binarios en Delphi | rodrigo19 | Varios | 6 | 26-05-2007 02:36:52 |
manejo de archivos | Egar | Varios | 0 | 24-03-2005 01:57:13 |
|