돌아가시기 일보직전에 글씁니다...



델파이 완전 생초짜라서 완전 개삽질한번 해볼라다가 머리에서 스팀이.....ㅡ.ㅡ;;;;



주차관리 소스 수정해볼려고 합니다



주차시간과 나간시간을 입력받아서 주차시간을 계산하는건데 문제는



주차시간이 입력되않아도  주차시간이 계산되길래 메시지 창하나 띄워서 메세지 보낼려고 하는게 생각인데

절대 안되내요 4시간동안 별쌩쑈를 다했는데 ㅡㅡ;;;;; 이 기분아시죠??



제~~~~~~~~~~~~~~~~발 해결 좀 간청드립니다....



코드는

<!--CodeS-->



unit Unit1;

interface

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


type

TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    Button2: TButton;
    Timer1timer: TTimer;
    procedure Edit3Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    EditTime1 : TDateTime;
    EditTime2 : TDateTime;
    EditTime3 : TDateTime;
    EditTime4 : TDateTime;



  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function DayBetween(Date1, Date2: TDateTime): integer;

var
   Day1, Day2 : TDateTime;

begin
   //Day1 := StrToDate( `2009-12-31` );
   //Day2 := StrToDate( `2009-11-30` );

   Day1 := StrToDate( FormatDateTime('YYYY-MM-DD', Date1) );
   Day2 := StrToDate( FormatDateTime('YYYY-MM-DD', Date2) );

   Result := integer( Trunc( Day1 - Day2 ));

   end;


procedure TForm1.Button1Click(Sender: TObject);

begin
     EditTime1  := Now;
  Edit1.Text := FormatDateTime('YYYY-MM-DD  HH:NN:SS', EditTime1);

end;
//begin

  // 들어온 시간
//  EditTime2  := EditTime1;
  //Edit2.Text := Edit1.Text;
//end;

procedure TForm1.Edit3Change(Sender: TObject);
begin

      edittime2 := edittime1;
      edit2.Text := edit1.text;

end;

procedure TForm1.Button2Click(Sender: TObject);
   begin

   // 나간 시간

  EditTime3  := now;
  Edit3.Text := FormatDateTime('yyyy-mm-dd HH:NN:SS', EditTime3);

// 주차한 시간

  EditTime4  := EditTime3 - EditTime2;
  Edit4.Text := FormatDateTime('HH:NN:SS', EditTime4);

// 날짜 차이

  Edit5.Text := IntToStr( DayBetween(EditTime3, EditTime2) );

end;



end.



<!--CodeE-->





입니다...





if edit2.text = '' then
   showmessage('들어온 시간을 입력해주세요')
   else



이런식으로 했는데 도통안되네요 ㅡ.ㅡ;;;;;; 그리고 값이 입력안됐을경우 메시지띄우고 다시 자료입력하게끔하는 방법을 알려주세요  



많은 델파이 고수들의 도움 지도 편달 부탁드립니다 (__)꾸벅;