Strings

[ Delphi ] – Highlight HTML-Tags in TRichEdit

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 >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...

[ Delphi ] – Validate a float number

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 >

 

Very PoorPoorRegularGoodVery Good ( 1 votes, Rate this post ! )
Loading ... Loading ...

[ Delphi ] – Format Seconds as (hh:mm:ss)

const
  SecPerDay = 86400;
  SecPerHour = 3600;
  SecPerMinute = 60;
function SecondToTime(const Seconds: Cardinal): Double;
var

  ms, ss, mm, hh, dd: Cardinal; More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...