|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.06.2017, 17:33 | #1 |
Пользователь
Регистрация: 07.05.2009
Сообщений: 36
|
Ошибка External: SIGSEGV по адресу 7333F15A
232232.jpg23223233.jpg
procedure TfrmMain.FormCreate(Sender: TObject); begin LoadOptions; application.CreateForm(tdm, dm); if (dm.ConnectDB) then begin sb.Panels[0].Text := 'База ' + dm.MSCon.Database + ' подключена'; sb.Panels[1].Text := 'Пользователь ' + dm.MSCon.User; end else begin sb.Panels[0].Text := 'База не подключена'; sb.Panels[1].Text := 'Пользователь '; end; end; procedure TfrmMain.MenuItem4Click(Sender: TObject); begin application.CreateForm(TfrmMonth, frmMonth); try frmMonth.ShowModal; finally frmMonth.Free; end; end; procedure TfrmMain.MenuItem5Click(Sender: TObject); begin application.CreateForm(TfrmNark, frmNark); try frmNark.ShowModal; finally frmNark.Free; end; end; procedure TfrmMain.MenuItem7Click(Sender: TObject); begin // отображение списка сотрудников application.CreateForm(TfrmSotr, frmsotr); try frmsotr.ShowModal; finally frmsotr.Free; end; end; //////////////// procedure TfrmMain.ProcessOMS(datest: Tdatetime; Dateen: Tdatetime); begin dm.OmsQuery.Close; dm.OmsQuery.SQL.Clear; dm.OmsQuery.SQL.Add('SELECT k.vra, sum (u.sumo) AS summa FROM kart' + GetYear(datest) + ' k , usl' + GetYear(datest) + ' u '); dm.OmsQuery.SQL.Add('WHERE k.nn1 + k.nn2 = u.nn1 + u.nn2 AND k.ttreatmnt = 1 AND k.vra <> 777'); dm.OmsQuery.SQL.Add('AND k.data_end BETWEEN s AND e'); dm.OmsQuery.SQL.Add('GROUP BY k.vra'); dm.OmsQuery.SQL.Add('ORDER BY k.vra;'); dm.OmsQuery.ParamByName('ds').AsDat e := datest; dm.OmsQuery.ParamByName('de').AsDat e := dateen; dm.OmsQuery.Open; if dm.OmsQuery.RecordCount = 0 then begin ShowMessage('За указанный период ничего не найдено. Проверьте правильность дат.'); dm.OmsQuery.Close; exit; end; end; procedure TfrmMain.GridToClipboard(dst: tzquery); var ////////////////////////////////////////////////////////////////////////// list: TStringList; s: string; clp: TClipboard; i: integer; begin dst.First; list := TStringList.Create; while not dst.EOF do begin s := ''; for i := 0 to dst.FieldCount - 1 do begin s := s + dst.Fields[i].AsString + #9; end; list.Add(s); dst.Next; end; clp := TClipboard.Create; clp.AsText := list.Text; list.Free; clp.Free; end; function TfrmMain.GetYear(dt: Tdatetime): string; begin Result := IntToStr(YearOf(dt)); end; function TfrmMain.GetMname(dt: Tdate): string; begin Result := FormatDateTime('mmmm', dt); end; procedure TfrmMain.Button1Click(Sender: TObject); begin case pagecontrol1.ActivePageIndex of 0: // o begin ProcessOMS(datastart.Date, dataend.Date); end; end; В какой строчке ошибка ? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ошибка External: SIGSEGV в файле .\Include\rasterimage.inc | Armageddets | Lazarus, Free Pascal, CodeTyphon | 0 | 15.05.2017 15:19 |
Ошибка "External: sigsegv" при нажатии на кнопку | голова | Lazarus, Free Pascal, CodeTyphon | 4 | 30.06.2015 16:22 |
Для чтения из файла хотел использовать TStringLis. Лазарус и External: SIGSEGV | Костян Пират | Lazarus, Free Pascal, CodeTyphon | 6 | 02.07.2014 08:39 |
C++ ошибка по адресу | nick999 | Помощь студентам | 2 | 07.04.2014 23:46 |
ошибка приложения инструкция по адресу "0х00400000" обратилась к памяти по адресу "0х00400000". Память не может быть "wr | sanalia | Помощь студентам | 0 | 30.09.2011 22:20 |