Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=498576 Mon, 01 Nov 2004 17:50:59 +0000 System Error. Code: 1400. https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=498576 Mischka,
Естественно. Привычная дельфовая подсказка не выскачела, вот и забыл.]]> PalR Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=497762 Mon, 01 Nov 2004 03:48:07 +0000 System Error. Code: 1400. https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=497762 Цитата PalR, 30.10.04, 23:47
MessageBox(Form1,'Текст сообщения','Заголовок окна', MB_ICONINFORMATION);

корректнее будет
    MessageBox(Form1.Handle, 'текст сообщения', 'Caption', MB_ICONINFORMATION or MB_OK);

Первый параметр - Handle окна, а не указатель на класс формы, в последнем - MB_OK это явное задание кнопки ОК]]> Mischka Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=496911 Sat, 30 Oct 2004 17:47:05 +0000 System Error. Code: 1400. https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=496911 MessageBox(Form1,'Текст сообщения','Заголовок окна', MB_ICONINFORMATION);
MB_ICONINFORMATION - иконка.

Если текст сообщения будет содержать переменные типа String, то не забудьте преобразовать их в PChar
MessageBox(Form1,PChar('Найдено '+ IntToStr(z)+ ' записей.'),'Результат', MB_ICONINFORMATION);

Всем спасибо. Тема закрыта.]]> PalR Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=496838 Sat, 30 Oct 2004 15:36:48 +0000 System Error. Code: 1400. https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=496838 MessageDlg.
Закоментировал эти месседжи и всё стало нормально.
Теперь думаю чем заменить. ShowMessage тоже не катит.
P.S.Для модера.Что то теги не работают.]]> PalR Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=496249 Fri, 29 Oct 2004 15:33:34 +0000 System Error. Code: 1400. https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=496249 зы. Может кто может исходники глянуть и найти ошибку.

Переделал. Не помогло.]]> PalR Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=495769 Fri, 29 Oct 2004 08:29:06 +0000 System Error. Code: 1400. https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=495769 Хома Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=495758 Fri, 29 Oct 2004 08:24:50 +0000 System Error. Code: 1400. https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=495758 Mischka Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=495659 Fri, 29 Oct 2004 07:20:38 +0000 System Error. Code: 1400. https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=495659 Цитата Хома @ 29.10.04, 09:31
созданные рантаймом объекты.

Добавлено Сегодня, 09:32
Или пытался разрушить несколько раз один и тотже.

F это что такое?]]> Guest Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=495600 Fri, 29 Oct 2004 06:31:56 +0000 System Error. Code: 1400. https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=495600
Добавлено
Или пытался разрушить несколько раз один и тотже.]]> Хома Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=495466 Thu, 28 Oct 2004 21:54:16 +0000 System Error. Code: 1400. https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=495466 Vit Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=495363 Thu, 28 Oct 2004 18:46:07 +0000 System Error. Code: 1400. https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=495363
Цитата

...............................
тут поиск
...............................
Form1.ProgressBar1.Max := 100;
Form1.ProgressBar1.Position := 100;
Form1.RichEdit1.Text := ResFls.Text;
ResFls.SaveToFile(Form1.Edit1.Text+'_'+FormatDateTime('ddmm', Date)+'.TXT');// последний выполненный код
MessageDlg('Найдено '+ IntToStr(z)+ ' записей, которые сохранены в файл '+
Form1.Edit1.Text+'_'+FormatDateTime('ddmm', Date)+'.TXT', mtInformation,[mbOk], 0);
except
MessageDlg('Неизвестная ошибка. Выполнение программы прервано !', mtError,[mbOk], 0);
end;
Form1.Button1.Enabled := True;;
Form1.DateEdit1.Enabled := True;
Form1.DateEdit2.Enabled := True;
Form1.Edit1.Enabled := True;
Form1.RichEdit1.Enabled := True;

Что интересно. Файл сохраняется и после этого прога подвисает.
P.S. Как оказалось под дельфями тоже подвисает иногда.]]> PalR Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=495328 Thu, 28 Oct 2004 17:56:14 +0000 System Error. Code: 1400. https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=495328 Покажи код завершения...]]> Rouse_ Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=495309 Thu, 28 Oct 2004 17:35:38 +0000 System Error. Code: 1400. https://forum.sources.ru/index.php?showtopic=70739&view=findpost&p=495309 Если просто запускаешь, в конце подвисает с сообщением.
Цитата

Exception EOSError in module Project1.exe at 0000E3D6.
System Error. Code: 1400.
Недопустимый дескриптор окна.

А за ней
Цитата

Access violation at address 74E10B09. Read of address 74E10B09.

В 98 тоже всё нормально. Никаких коммерческих компонентов не используется, кроме Rx. Работает в два потока. У кого какие соображения.]]> PalR Delphi: Общие вопросы