Категория
Информатика
Тип
реферат
Страницы
9 стр.
Дата
29.06.2014
Формат файла
.html — Html-документ
Архив
1035019.zip — 4.45 kb
  • bazy-dannyx-sozdanie-programmy-telefonnyj-spravochnik_1035019_1.html — 16.34 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы


--PAGE_BREAK--

    procedure N13Click(Sender: TObject);

    procedure N14Click(Sender: TObject);

    procedure N15Click(Sender: TObject);

    procedure N16Click(Sender: TObject);

    procedure ExitButtonClick(Sender: TObject);

    procedure SearchButtonClick(Sender: TObject);

    procedure HelpButtonClick(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

  private

    procedure CreatePopupFields;

    procedure UpdateStatusBar;

    procedure CalculateEditSize;

    procedure SortMode (Sender: tObject);

    procedure ReadIni;

    procedure WriteIni; // Ini-file

  public

  end;

var

  PhoneForm: TPhoneForm;

  Inputs: array [0..4] of TEdit;

  MyThread: DataThread;

  bool: boolean;

  ColumnIndex: integer;

const

  SortName: array[0..2] of string =('поТелефону','поИмени','поУлице');

  IndexName: array [0..2] of string =('ByNumTel','ByFamil','ByStreet');

  COPY_TO_CLIPBOARD = 'Копировать';

  PASTE_FROM_CLIPBOARD = 'Вставить';

function IndexOfItem(Item: string): integer;

implementation

uses IniFiles, DBITypes, DBIProcs, Graphics,ShellApi;

{$R *.dfm}

procedure TPhoneForm.FormCreate(Sender: TObject);

begin

  Table1.TableName := sDataFile;

  Table1.Open;



Ваше мнение



CAPTCHA