Timer
2008-07-24 10:17:26
Me and my dad have been playing the stock market lately, making some good cash with the tool in scar i made, but I'm only going to post what i need help with… :D
Would That Time Out Work..? (24hrs)
And Whats The Proper Enter In NotePad? Its Not Chr(13) xD
Function TimeOver: Boolean;
Var
Hour, Mins, Sec, MSec,
Year, Month, Day: Word;
M, LT: String;
HO, MI, SE, MS,
MO, DA, T: Integer;
Begin
DecodeDate(Date, Year, Month, Day);
DecodeTime(Now, Hour, Mins, Sec, MSec);
T := OpenFile('C:\Documents and Settings\Joe\Desktop\Stocks\Time.txt', False);
ReadFileString(T, LT, FileSize(T));
CloseFile(T);
HO := Between('[HO]', '[/HO]', LT);
MI := Between('[MI]', '[/MI]', LT);
SE := Between('[SE]', '[/SE]', LT);
MS := Between('[MS]', '[/MS]', LT);
MO := Between('[MO]', '[/MO]', LT);
DA := Between('[DA]', '[/DA]', LT);
If (Day > DA) Then
Result := True;
If ((Month > MO) And (Not (Result))) Then
Result := True;
If (Result) Then
Result := (Hour - HO) < 1;
If (Result) Then
Result := (Mins - MI) < 1;
If (Result) Then
Result := (Sec - SE) < 1;
If (Result) Then
Result := (MSec - MS) < 1;
If (Result) Then
Begin
T := RewriteFile('C:\Documents and Settings\Joe\Desktop\Stocks\Time.txt', False);
WriteFileString(T, '[HO]' + Hour + '[/HO]' + '[MI]' + Mins + '[/MI]' + '[SE]' + Sec + '[/SE]' + '[MS]' + MSec + '[/MS]' + '[MO]' + Month + '[/MO]' + '[DA]' + Day + '[/DA]');
CloseFile(T);
End;
End;Would That Time Out Work..? (24hrs)
And Whats The Proper Enter In NotePad? Its Not Chr(13) xD