Шығыс Қазақстан облысының білім басқармасы

drFile: array[0..256] of char

жүктеу/скачать 4,77 Mb.

Pdf көрінісі

бет	172/180
Дата	06.01.2022
өлшемі	4,77 Mb.
	#15026

1 ... 168 169 170 171 172 173 174 175 ... 180

     drFile: array[0..256] of char;
     XYPoint:TPoint;
nmComp:string;
  protected
    procedure WMDropFiles (var Msg: TMessage);message wm_DropFiles;
    public
    { Public declarations }
  end;
…………………………………………
3.
OnCreate формасының өңдеушісіне төменде қалың шрифтпен берілген жолды
қосыңыз:
procedure TfmMain.FormCreate(Sender: TObject);
var sbase:string;

159

begin
  sbase:=FindFileBD('BDMyWorld.mdb','MyWorld.INI',ConStr,dlgBD);
  if sbase<>'' then begin
   ADOQuery1.Active :=False;
   ADOQuery1.ConnectionString :=ConStr;
   ADOQuery1.Active :=True;
   NameSortField:=DBGrid1.Columns[0].FieldName;Desc:=False;
   NewQuerySQL;
  end else Application.Terminate;
  Application.HintPause :=0;

жүктеу/скачать 4,77 Mb.

Достарыңызбен бөлісу:

1 ... 168 169 170 171 172 173 174 175 ... 180