Results 1 to 5 of 5

Thread: Fixed, delete Post.

  1. #1
    Join Date
    Oct 2009
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Fixed, delete Post.

    - The following code produces a Type mismatch on the last line of the InitForm procedure and i cannot find out why.

    Code:
    procedure RunOnce;
    begin
    Date:= Explode(':',NxTimeEdit1.Text);
    if(pos('PM',Date[2])>0)then
    begin
    Date[0]:=IntToStr(StrToInt(Date[0])+12);
    end;
    ClearDebug;
    Writeln(NxMonthCalendar1.Day);
    Writeln(NxMonthCalendar1.Month);
    Writeln(NxMonthCalendar1.Year);
    SetArrayLength(Date,5);
    Date[2]:=GetDebugLine(0);
    Date[3]:=GetDebugLine(1);
    Date[4]:=GetDebugLine(2);
    ClearDebug;
    frmDesign.ModalResult := mrOK;
    end;
    
    procedure InitForm;
    begin
    frmDesign := CreateForm;
    frmDesign.SetBounds(250,114,184,144);
    frmDesign.Visible := False;
    NxMonthCalendar1 := TNxMonthCalendar.Create(frmDesign);
    NxMonthCalendar1.Parent := frmDesign;
    NxMonthCalendar1.SetBounds(0,0,0,0);
    NxTimeEdit1 := TNxTimeEdit.Create(frmDesign);
    NxTimeEdit1.Parent := frmDesign;
    NxTimeEdit1.SetBounds(0,0,0,0);
    Label1 := TLabel.Create(frmDesign);
    Label1.Parent := frmDesign;
    Label1.SetBounds(8,8,156,23);
    Label1.Caption := 'Crew Tracker';
    Label1.Font.Color := clBlack;
    Label1.Font.Height := -21;
    Label1.Font.Name := 'Courier New';
    Label1.Font.Style := [fsBold];
    Label2 := TLabel.Create(frmDesign);
    Label2.Parent := frmDesign;
    Label2.SetBounds(8,32,93,13);
    Label2.Caption := 'By <name>';
    Button1 := TButton.Create(frmDesign);
    Button1.Parent := frmDesign;
    Button1.SetBounds(8,48,153,25);
    Button1.Caption := 'Start Program';
    Button1.OnClick := @RunOnce;
    end;
    I just need scar to pull a Date and time out of its @$$ for me to manage and then i can finish the rest of it.

    Any help will be appreciated if there are any functions that'll help me extract the exact time or anything similar (But easier than this) will be helpful
    + I simply forgot to add the "sender :TObject" to the procedure dumb dumb dumb
    Last edited by YoHoJo; 05-08-2010 at 08:46 PM. Reason: I figured it out after i posted

  2. #2
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    When you figure something out it's better to just add a post to your thread with the solution someone might have a similar difficulty soon, for which your post would've been helpful.

    ~RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  3. #3
    Join Date
    Oct 2009
    Location
    Stockton, CA
    Posts
    2,040
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Rasta Magician View Post
    When you figure something out it's better to just add a post to your thread with the solution someone might have a similar difficulty soon, for which your post would've been helpful.

    ~RM
    How about editing his post? Reverting it or something.
    Join the IRC! irc.rizon.net:6667/srl | SQLite (0.99rc3+) | SRL Doc | Simba Doc | Extra Simba Libraries (openSSL & sqlite3)
    Quote Originally Posted by #srl
    10:45 < Toter> daphil when can get sex anyday I want
    10:45 < Toter> he is always on #SRL
    "A programmer is just a tool which converts caffeine into code"

  4. #4
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    Quote Originally Posted by Sex View Post
    How about editing his post? Reverting it or something.
    That's the point of my post..

    DONT REVERT.
    POST ANSWER.

    ~RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  5. #5
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Reverted post back to original post.
    Left answer on bottom.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •