シンタックスハイライト

時事

はてなダイアリーで入力されたソースコードに対して、構文に色づけしてくれる機能らしい。
ソースコードを色付けして記述する（シンタックス・ハイライト）

class CTinaGraphic {
public:
 CTinaGraphic();
 ~CTinaGraphic();
 Draw();
protected:
private:
};

面白い機能が付いたモンだ。

以下、id:Ko-Ta様、風来猫様id:cbc向け
Delphiでは「pascal」を指定すればOKのようですYO。


Ko-Taさん所からソース拝借(笑)

procedure TList.Insert(Index: Integer; Item: Pointer);
begin
  if (Index < 0) or (Index > FCount) then
    Error(@SListIndexError, Index);
  if FCount = FCapacity then
    Grow;
  if Index < FCount then
    System.Move(FList^[Index], FList^[Index + 1],  //※ココ注目
      (FCount - Index) * SizeOf(Pointer));
  FList^[Index] := Item;
  Inc(FCount);
  if Item <> nil then
    Notify(Item, lnAdded);
end;