Feeds:
Posts
Comments

Archive for the ‘Code’ Category

Source code Test

function AddThousandSeparator( S: string; Chr: char ): string;
{ Add Thousand Separator to a string }
var
  i: integer;
begin
  Result := S;
  i := Length( S ) - 2;
  while i > 1 do
  begin
  Insert( Chr, Result, i );
  i := i - 3;
  end;
end;

Read Full Post »

Prevent Delphi Version Compiler Warnings between Delphi 2007 and Delphi 2010 by adding
unit uMain;
{$WARN SYMBOL_PLATFORM OFF}
{$WARN UNIT_PLATFORM OFF}
to each unit in the application where necessary

Read Full Post »