Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.06.2017, 17:33   #1
mnbvcxz11
Пользователь
 
Аватар для mnbvcxz11
 
Регистрация: 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;

В какой строчке ошибка ?
mnbvcxz11 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка 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