| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проблема с MessageDlg! [D7, XP]
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 - выдает ошибку, вопрос: в чем дело?
Заранее спасибо!
Amoeba (2006-04-13 09:38:00) [1]
> Зашибись.
> А как тут нах посылают?
Если надо кого либо туда послать, то посылай сюда: http://lleo.aha.ru/na/
Германн (2006-04-13 03:21:00) [2]
> Зашибись.
> А как тут нах посылают?
По разному. Как кому захочется.
А Вы собс-но об чём, Леонид?
Leonid Troyanovsky (2006-04-12 21:52:00) [3]
> Плохиш © (12.04.06 18:01) [24]
> http://ln.com.ua/~openxs/articles/smart-questions-ru.html
Зашибись.
А как тут нах посылают?
--
Regards, LVT.
Плохиш (2006-04-12 18:01:00) [4]http://ln.com.ua/~openxs/articles/smart-questions-ru.html
Dyakon_Frost (2006-04-12 17:42:00) [5]Как всегда все эллементарно: надо подключить модуль Controls.
И сразу всем совет: "Не создавайте себе и другим проблем помелочам."
Это почти ко всем присутствующим относится!
Спасибо!
Dyakon_Frost (2006-04-12 17:28:00) [6]Ладно народ придеться разбираться самому!
Dyakon_Frost (2006-04-12 17:17:00) [7]Он даже и невключится так как пишет что ошибка в
if MessageDlg('asdasd',mtConfirmation,[mbYes,mbNo],0) = mrYes then
Плохиш (2006-04-12 17:17:00) [8]Можно конечно спросить о используемых неизвестных переменных, да и о ошибке можно было бы спросить, только зачем? Совершенно не интересно.
unknown (2006-04-12 17:16:00) [9]
> Dyakon_Frost © (12.04.06 17:14) [18]
> > Нет, не в MessageDlg.
> Тогда в чем?
Скорее всего в этом:
AssignFile(f,OD1.FileName);
Reset(f);
for i := 1 to 5 do
for j := 1 to 5 do
read(f,b[i,j]);
Отладчиком пройтись не судьба?
Dyakon_Frost (2006-04-12 17:14:00) [10]
> Нет, не в MessageDlg.
Тогда в чем?
vovnuke (2006-04-12 17:13:00) [11]думаю дело в Screen-е
unknown (2006-04-12 17:12:00) [12]
> Dyakon_Frost © (12.04.06 17:10) [14]
> Какая разница, суть не в том, проблема в MessageDlg!
Нет, не в MessageDlg.
unknown (2006-04-12 17:11:00) [13]
> Dyakon_Frost ©
>
> if OD1.Execute then
> OD1.FileName;
Это что делает, интересно?
И где проверка валидности файла?
Dyakon_Frost (2006-04-12 17:10:00) [14]Какая разница, суть не в том, проблема в MessageDlg!
vovnuke (2006-04-12 17:09:00) [15]1) а вот это
> then
> OD1.FileName;
зачем?
2) а если не Execute, тогда что?
Dyakon_Frost (2006-04-12 17:08:00) [16]"Плохиш" - да суть не в том, это не проблема!
Плохиш (2006-04-12 17:08:00) [17]
> Dyakon_Frost © (12.04.06 17:04) [7]
> Вот модули которые подключаю:
К стиральной машине подключаешь? Попробуй к электроплите.
Dyakon_Frost (2006-04-12 17:07:00) [18]"Fay" - эту процедуру я пишу в dll - и именно в ней возникает ошибка, а если пишу MessageDlg в программе, то все ОК!
Плохиш (2006-04-12 17:07:00) [19]Оригинально, не зависимо от того, что нажал пользователь в диалог, даже если он не выбрал ни какого имени файла, всё-равно выполнить(попытаться выполнить) весь код. Я плякал.
Плохиш (2006-04-12 17:04:00) [20]
> Dyakon_Frost © (12.04.06 17:04) [4]
> "Плохиш" - указываю путь к файлу используя OpenDialog1 !
Правда?
| |
Страницы: 