Transcript
BENEMERITA UNIVERSIDAD AUTONOMA DE PUEBLA FACULTAD DE CIENCIAS DE LA COMPUTACIÓN. PRACTICA # 8 APERTURA DE ARCHIVOS CON DELPHI PARA EL CURSO DE GRAFICACION M. C. Graciano Cruz Almanza OBJETIVO: El alumno comprenderá la estructura de una aplicación gráfica desarrollada en Delphi con la característica de ser guiado por eventos y basado en la Apertura, Lectura y Cierre de Archivos de Texto. Aplicará en el pintado de un Mapa usando un Form, Label, Button e Image. Se crearan los procedimientos asociados a la apertura y lectura de datos de un archivo. ACTIVIDADES: 1. 2. 3. 4. 5. 6. 7. 8.
Crear una Forma VCL. Incluir una región para imágenes (TImage) de 500 por 500. Incluir un Panel (TPanel). Incluir en el panel dos editores (TEdit) para leer el nombre del archivo y el segundo para dar información. Incluir en el panel, un botón para que abra el archivo, lea y pinte los datos. Asociar el código del boton. Incluir un botón para limpiar la zona de trabajo y un botón para terminar (close). Fin.
CODIGO
procedure TForm1.Button1Click(Sender: TObject); var a, b: Integer; g : TextFile; begin a := 5; b := 3; AssignFile(g, 'salida.txt'); Rewrite(g); Writeln( g,'a= ', a,' b= ', b); CloseFile(g); end; // Lee mapa y lo pinta procedure TForm1.Button3Click(Sender: TObject); var a, b, cont : Integer; f : TextFile; begin cont := 0; Nom := Edit1.Text ; AssignFile(f, Nom); Reset(f); while not Eof( f ) do begin Readln( f, a, b ); Image1.Canvas.Pixels[a,b] := clBlue; cont := cont + 1; end; CloseFile(f); Edit2.Text := IntToStr(cont) + ' Puntos'; end; // Limpia procedure TForm1.Button4Click(Sender: TObject); begin Image1.Canvas.Rectangle(0,0,500,500); end; // Constructor procedure TForm1.FormCreate(Sender: TObject); begin Image1.Canvas.Rectangle(0,0,500,500); end; end.