Download all you need here
Strings
[ Delphi ] – Highlight HTML-Tags in TRichEdit
May 4th
procedure HTMLSyntax(RichEdit: TRichEdit; TextCol, TagCol, DopCol: TColor); var i, iDop: Integer; s: string; Col: TColor; isTag, isDop: Boolean; begin iDop := 0; isDop := False; isTag := False; More >
[ Delphi ] – Validate a float number
Apr 4th
function StrIsReal(AString: string): Boolean; var I: Extended; Code: Integer; begin Val(AString, I, Code); Result := Code = 0; end; procedure TForm1.Button1Click(Sender: TObject); More >
[ Delphi ] – Format Seconds as (hh:mm:ss)
Apr 4th
const SecPerDay = 86400; SecPerHour = 3600; SecPerMinute = 60; function SecondToTime(const Seconds: Cardinal): Double; var ms, ss, mm, hh, dd: Cardinal; More >


