| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с MessageDlg! [D7, XP]

Страницы:   < 1 2 >

Dyakon_Frost ©   (2006-04-12 16:53:00) 

Здравствуйте!
Есть проблема:
Вот простенькая процедура:

Procedure Lab3Record(SG1: TStringGrid; SD1: TSaveDialog; OD1: TOpenDialog); stdcall;
var i,j: integer;
begin
if OD1.Execute then
 OD1.FileName;

AssignFile(f,OD1.FileName);
Reset(f);
for i := 1 to 5 do
for j := 1 to 5 do
 read(f,b[i,j]);

if MessageDlg('Хотите транспонировать матрицу',mtConfirmation,[mbYes, mbNo],0) = mrYes then

for i := 1 to 5 do
for j := 1 to 5 do
 c[i,j] := b[j,i];

for i := 1 to 10 do
for j := 1 to 10 do
 SG1.Cells[j-1,i-1] := FloatToStr(c[i,j]);

CloseFile(f);
end;


Проблема с MessageDlg - выдает ошибку, вопрос: в чем дело?

Заранее спасибо!

---

Dyakon_Frost   (2006-04-12 17:04:00) [21]

Вот модули которые подключаю:
 ShareMem,
 SysUtils,
 StdCtrls,
 Grids,
 Mask,
 ExtCtrls,
 Dialogs,
 Classes

---

Fay   (2006-04-12 17:04:00) [22]

2 Dyakon_Frost ©   (12.04.06 17:02) [3]
> когда в dll-ке
ЧТО "в dll-ке" ? "Писать" или ЧТО ?

---

Плохиш   (2006-04-12 17:04:00) [23]

ShareMem?

---

Dyakon_Frost   (2006-04-12 17:04:00) [24]

"Плохиш" - указываю путь к файлу используя OpenDialog1!

---

Dyakon_Frost   (2006-04-12 17:02:00) [25]

Ну это понятно! Дело в том, что если писать в программе, то все нормально, а когда в dll-ке выдает ошибку. Видимо не подключил какой-то модуль, а вот какой вопрос!

---

Плохиш   (2006-04-12 17:02:00) [26]

> if OD1.Execute then
>  OD1.FileName;

Это ещё что-такое?

---

Fay   (2006-04-12 16:59:00) [27]

Если выдаёт ошибку, значит ты что-то где-то не так написал.

---

Страницы:   < 1 2 >

Наверх