freepascal.ru

Код: Выделить всё

  PFileList = ^TFileList;
  TFileList = Class Public 
    list    : array of ListRec;
    StartDIR ,    CurrentDir : AnsiString;
    Function AllDirInList(Var Pos : LongWord) : boolean;
  end;

Код: Выделить всё

    type 
      date = class 
      private 
        dd, mm, yy: integer; 
      public 
        procedure init (d, m, y: integer); 
        function month: integer; 
        function day: integer; 
        function year: integer; 
      end;

Код: Выделить всё

{$mode objfpc}{$H+}
uses Classes;

Код: Выделить всё

{$mode objfpc}

Код: Выделить всё

{$mode delphi}