|
Что за ошибка???
|
|
| Me1issaCherry | Дата: Четверг, 23.04.2009, 13:46 | Сообщение # 1 |
 Лейтенант
Группа: Друзья
Сообщений: 46
Статус: Offline
| http://pic.ipicture.ru/uploads/090423/UnJWQRFPdu.jpg
Сообщение отредактировал Me1issaCherry - Четверг, 23.04.2009, 13:46 |
| |
| |
| DxT | Дата: Четверг, 23.04.2009, 17:27 | Сообщение # 2 |
 Генерал-полковник
Группа: Администраторы
Сообщений: 70
Статус: Offline
| а на какой строчке вылетает?
В одном метре 1024 километра
|
| |
| |
| Me1issaCherry | Дата: Четверг, 23.04.2009, 20:38 | Сообщение # 3 |
|
Лейтенант
Группа: Друзья
Сообщений: 46
Статус: Offline
| Code program AlBook;
uses
Forms,
unMain in 'unMain.pas' {Form1},
unBook in 'unBook.pas' {Form2},
unEditDB in 'unEditDB.pas' {Form3},
unTest in 'unTest.pas' {Form4},
TCV in 'TCV.pas',
unArh in 'unArh.pas' {Form5},
unTerm in 'unTerm.pas' {Form6};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4); <-------вот тут!!
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm6, Form6);
Application.Run;
end. |
| |
| |
| DxT | Дата: Четверг, 23.04.2009, 21:26 | Сообщение # 4 |
|
Генерал-полковник
Группа: Администраторы
Сообщений: 70
Статус: Offline
| в тексте программы (не тут, где изображено, а на картинке) замени Application.CreateForm(TForm4, Form4); на Form4.Show;
В одном метре 1024 километра
|
| |
| |
| DxT | Дата: Четверг, 23.04.2009, 22:53 | Сообщение # 5 |
|
Генерал-полковник
Группа: Администраторы
Сообщений: 70
Статус: Offline
| Кстати, меня очень коробят использования GoTo
это довольно древний и неудобочитаемый стиль программирования.
В одном метре 1024 километра
|
| |
| |
| Me1issaCherry | Дата: Четверг, 23.04.2009, 23:22 | Сообщение # 6 |
|
Лейтенант
Группа: Друзья
Сообщений: 46
Статус: Offline
|  не пахает
|
| |
| |
| DxT | Дата: Четверг, 23.04.2009, 23:42 | Сообщение # 7 |
|
Генерал-полковник
Группа: Администраторы
Сообщений: 70
Статус: Offline
| Что пишет??? Какая ошибка?
В одном метре 1024 километра
|
| |
| |
| Me1issaCherry | Дата: Четверг, 23.04.2009, 23:43 | Сообщение # 8 |
|
Лейтенант
Группа: Друзья
Сообщений: 46
Статус: Offline
| Тщательно проанализировав порядок своих действий я пришел к выводу что такая херня вылетает после того как я добавляю новые TabSheet к PageControl. Что бы это могло быть. вобщес суть алгоритма такова. В форме есть PageControl из 15 TabSheet в каждой вкладке есть поле мемо которое посредством цикла заполняется из файлов. Code begin
for i := 1 to 15 do
begin
TMemo(FindComponent('Memo' + IntToStr(i))).Lines.SaveToFile(GetCurrentDir + '\db\' + IntToStr(i) + '.vo');
end; |
| |
| |
| DxT | Дата: Четверг, 23.04.2009, 23:48 | Сообщение # 9 |
|
Генерал-полковник
Группа: Администраторы
Сообщений: 70
Статус: Offline
| Извращенец! а тебе не судьба изспользовать одно мемо без табконтрола и грузить в это ОДНО мемо файлы, допустим, по нажатию кнопки?
В одном метре 1024 километра
|
| |
| |
| Me1issaCherry | Дата: Четверг, 23.04.2009, 23:53 | Сообщение # 10 |
|
Лейтенант
Группа: Друзья
Сообщений: 46
Статус: Offline
| там фишка в том что каждое мемо это отдельный вопрос и отдельный текстовый файл с возможностью его редактирования
|
| |
| |
| DxT | Дата: Пятница, 24.04.2009, 09:21 | Сообщение # 11 |
|
Генерал-полковник
Группа: Администраторы
Сообщений: 70
Статус: Offline
| а не судьба через одно мемо делать? скрин проги в этом месте сделай
В одном метре 1024 километра
|
| |
| |
| DxT | Дата: Среда, 29.04.2009, 11:55 | Сообщение # 12 |
|
Генерал-полковник
Группа: Администраторы
Сообщений: 70
Статус: Offline
| Ни скрина, ни ответа... я так понимаю, проблема решилась?
В одном метре 1024 километра
|
| |
| |
| Me1issaCherry | Дата: Среда, 29.04.2009, 16:41 | Сообщение # 13 |
|
Лейтенант
Группа: Друзья
Сообщений: 46
Статус: Offline
| Всё. тему клоз. Я разобрался Эта херня вылетала из-за того что файл содержал 15 строк а в цикле было больше.. 
|
| |
| |
| DxT | Дата: Среда, 29.04.2009, 19:11 | Сообщение # 14 |
|
Генерал-полковник
Группа: Администраторы
Сообщений: 70
Статус: Offline
| о_О ну ладно) для таких случаев нужно проверку делать)
В одном метре 1024 километра
|
| |
| |
