Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 27-03-2009
velezbunzl velezbunzl is offline
Miembro
 
Registrado: feb 2009
Posts: 16
Poder: 0
velezbunzl Va por buen camino
aqui esta la undiad tipos

Código:
unit Tipos;


interface

uses
  Controls;

type


  TPeriodoMedicion = (Manhana, Tarde, Noche);
  TTipoMedicion = (Diastolica, Sistolica);

  TMedicionPresion = record
    ValorMedicion: Integer;
    PeriodoMedicion : TPeriodoMedicion;
    TipoMedicion : TTipoMedicion;
    Fecha  : TDate;
  end;

implementation

end.
aqui esta la unidad de los datos que es doden lso ingreso

Código:
unit U_Datos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Tipos, ComCtrls;

type


  TFrm_Datos = class(TForm)
    Rdg_presionesart: TRadioGroup;
    Label1: TLabel;
    Label2: TLabel;
    Tcom_estadodeldia: TComboBox;
    Edt_ValorPresion: TEdit;
    Btn_Guardar: TButton;
    DateTimePicker1: TDateTimePicker;
    Label3: TLabel;
    procedure Rdg_presionesartClick(Sender: TObject);
    procedure Btn_GuardarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Datos: TFrm_Datos;

implementation

{$R *.dfm}

procedure TFrm_Datos.Rdg_presionesartClick(Sender: TObject);
begin
  if Frm_Datos.Rdg_presionesart.ItemIndex = 0 then
    begin
       Frm_Datos.Label1.Caption :=  'Sistolica:';
    end
  else
    begin
       Frm_Datos.Label1.Caption :=  'Diastolica:';
    end

end;

procedure TFrm_Datos.Btn_GuardarClick(Sender: TObject);
var
  LaMedicionPresion :   TMedicionPresion;
  F : TextFile;
  SArchivo: String;
begin

   LaMedicionPresion.ValorMedicion := StrToInt(Edt_ValorPresion.text);

   LaMedicionPresion.Fecha := self.DateTimePicker1.Date;

   if frm_Datos.Rdg_presionesart.ItemIndex = 0 then
      begin
         LaMedicionPresion.TipoMedicion := Sistolica;
      end
   else
      begin
       LaMedicionPresion.TipoMedicion := Diastolica;
      end;

     if frm_Datos.Tcom_estadodeldia.ItemIndex = 0 then
         LaMedicionPresion.PeriodoMedicion := Manhana
     else if frm_Datos.Tcom_estadodeldia.ItemIndex = 1 then
         LaMedicionPresion.PeriodoMedicion := Tarde
     else if frm_Datos.Tcom_estadodeldia.ItemIndex = 2 then
         LaMedicionPresion.PeriodoMedicion := Noche;

   sArchivo := ExtractFilePath( Application.ExeName ) + 'Registros.txt';
   AssignFile(F, 'Registros.txt');

   if FileExists( sArchivo ) then
      Append( F )
    else
      begin
        Rewrite( F );
   // Escribir una linea
        Writeln(F, 'Registro Dato Presion');
       end;
   Writeln(F, '');
   Writeln(F, IntToStr(LaMedicionPresion.ValorMedicion) );

   if LaMedicionPresion.PeriodoMedicion = Manhana  then
      Writeln(F, 'Mananha' )
   else if LaMedicionPresion.PeriodoMedicion = Tarde  then
      Writeln(F, 'Tarde' )
   else if LaMedicionPresion.PeriodoMedicion = Noche  then
      Writeln(F, 'Noche' );

   if LaMedicionPresion.TipoMedicion = Diastolica  then
      Writeln(F, 'Diastolica' )
   else if LaMedicionPresion.tipoMedicion = Sistolica  then
      Writeln(F, 'Sistolica' );

   Writeln(F, DateToStr(LaMedicionPresion.Fecha ) );


   CloseFile(F);

   self.Edt_ValorPresion.Clear;

end;

end.
y aqui esta dodne lso cargo apra utilizarlos en las oepraciones+ç

Código:
unit U_Acerca_De;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, tIPOS;

type
  TFrm_Acerca_de = class(TForm)
    Label1: TLabel;
    Image2: TImage;
    StaticText1: TStaticText;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Acerca_de: TFrm_Acerca_de;
    Numero_datos_A_Analizar: integer;
  DatosMedicion : array of   TMedicionPresion;

implementation

{$R *.dfm}

procedure TFrm_Acerca_de.FormCreate(Sender: TObject);
var
F : TextFile;
  linealeida: String;

begin
    assignfile(F, 'registros.txt');
     Reset(F);
     Readln(F, LineaLeida);
     while not Eof(F) do
     begin
       // Leer las variables X y Y del punto desde el archivo
       Readln(F, LineaLeida);
       LineaLeida := Trim(LineaLeida);
       //  Necesito que no me tenga en cuenta los espacios
       if Length(LineaLeida) > 0 then
          begin

            Numero_datos_a_Analizar := Numero_datos_a_Analizar + 1;
             //  Ingresar a la matriz de puntos
             SetLength(DatosMedicion, Numero_datos_a_Analizar);
             Datosmedicion[Numero_datos_a_Analizar - 1].ValorMedicion := StrToInt(LineaLeida);
             Readln(F, LineaLeida);
             LineaLeida := Trim(LineaLeida);
             if LineaLeida = 'Mananha' then
                Datosmedicion[Numero_datos_a_Analizar - 1].PeriodoMedicion := Manhana
             else if LineaLeida = 'Tarde' then
                Datosmedicion[Numero_datos_a_Analizar - 1].PeriodoMedicion := Tarde
             else if LineaLeida = 'Noche' then
                Datosmedicion[Numero_datos_a_Analizar - 1].PeriodoMedicion := Noche;

             Readln(F, LineaLeida);
             LineaLeida := Trim(LineaLeida);
             if LineaLeida = 'Sistolica' then
             Datosmedicion[Numero_datos_a_Analizar - 1].TipoMedicion := Sistolica
             else if LineaLeida = 'Diastolica' then
                Datosmedicion[Numero_datos_a_Analizar - 1].TipoMedicion := Diastolica;

            Readln(F, LineaLeida);
            LineaLeida := Trim(LineaLeida);
            Datosmedicion[Numero_datos_a_Analizar - 1].Fecha := StrToDate(linealeida);
//   TTipoMedicion = (Diastolica, Sistolica);

          end;
     end;
end;



end.
el problema es que si cierro el archivo en esta unidad al final se soluciona el problema de entrada y saldia de datos pero si agrego mas datos y quiero hacer las operaciones no tiene en cuetna los datos nuevos

Última edición por jachguate fecha: 28-10-2014 a las 21:05:38. Razón: Añadir la etiqueta [code]
Responder Con Cita
  #2  
Antiguo 19-10-2010
cyberpablis cyberpablis is offline
Registrado
 
Registrado: ago 2006
Posts: 2
Poder: 0
cyberpablis Va por buen camino
Jeje

Estas tratando de leer un archivo que esta abierto por otro proceso.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Error al generar instalador con installshield (error 6173) jangel_ramirezm Varios 4 09-12-2008 00:07:54
dbexpress Error: unknown error Code '101' raorre Conexión con bases de datos 3 13-10-2008 07:53:49
Error General Sql Error lock conflict ...deadlock Patricio Varios 1 19-03-2008 14:52:14
error:[Fatal Error] Unit1.pas(7): Unit ZDbcConnection was compiled with a different.. karaoke Conexión con bases de datos 2 19-12-2007 10:22:36
¿Por qué me da este error?Error creating cursor manejador nuri SQL 2 01-08-2005 17:30:28


La franja horaria es GMT +2. Ahora son las 12:32:01.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi