Главная страница

Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Вниз

помогите   Найти похожие ветки 


Катя   (2001-12-17 15:25) [0]

Я не могу понять, почему к проекту не присоединяется восьмая форма.Точнее , она присоединяется , но если написать какой -нибудь код, то выходит ошибка и седьмая форма (к которой присоединена 8-ая)тоже зависает.



gek   (2001-12-17 15:28) [1]

Сам вопрос непонятен.Конкретнее



MBo   (2001-12-17 15:45) [2]

Да это наверно, подружка Настеньки прикалывается



Юрий Зотов   (2001-12-17 15:51) [3]

Это недокументированная фича Delphi. Все дело в том, что в проекте не может быть 8 форм - должно быть или 7, или 9. Добавьте к проекту девятую форму - и все заработает. Правда при одном условии - ни в коем случае не пишите никакого кода ни в одной из форм. Для работоспособности проекта это крайне вредно.



Катя   (2001-12-17 16:00) [4]

//для MBo ©
Я не Настенька и не тем более ее подружка,я несчастная студентка , которой кровь из носа послезавтра сдавать курсач на Delphi




MBo   (2001-12-17 16:04) [5]

Тогда извиняюсь.
По всей вероятности (по сведениям из второй твоей ветки)
у тебя не существует форма и соответственно стринггрид на ней в тот момент, когда обращаешься к нему. Приведи код, относящийся к этому.



gek   (2001-12-17 16:05) [6]

Ну а какие проблемы

Form8:=TForm8.create(application);
try
// тута код заполнения Form8.stringgrid
Form8.ShowModal;
finally
Form8.free;
end;

А сообщение acces violation at address </> это ничто иное как проблемы с памятью.Прога пытается захватить память ей не принадлежащую.
Смотри все ли правильно освобождаешь и не обращаешься ли к объектам которые еще не созданы
>> Юрий Зотов
Круто про кол-во форм и код в формах



Катя   (2001-12-17 16:24) [7]

"тута код заполнения "не работает Еще вырианты есть?
На всякий случай приведу код
var
i,n,j:integer;
begin
Form8:=TForm.create(application);
try
n:=1;
for i:=1 to Stringgrid1.Rowcount-1 do begin
if strtoint(Stringgrid1.cells[9,i])=0 then
for j:=1 to n do begin
Form8.Stringgrid1.cells[0,j]:=inttostr(j);
Form8.Stringgrid1.cells[1,j]:=Stringgrid1.cells[1,j];
Form8.Stringgrid1.cells[2,j]:=Stringgrid1.cells[2,j];
Form8.Stringgrid1.cells[3,j]:=Stringgrid1.cells[9,j];
end;end;
Form8.ShowModal;
finally
Form8.free;
end;



Dmitriy(new)   (2001-12-17 16:28) [8]

Stringgrid1.Rowcount -- ?? сколько



gek   (2001-12-17 16:31) [9]

1.Зачем второй цикл j у тебя всегда = 1 ?
2.Совпадает ли количество колонок первого грида и второго
3.Где увеличение RowCount
RowCount:=RowCount + 1;//увеличить кол-во строк второго грида




MBo   (2001-12-17 16:35) [10]

вопросы
form8 - создается динамически. А в *.dpr она не создана?
создаешь ее конструктором TForm, а не TForm8 - значит, она по умолчанию, и Stringgrid на ней нет!
если в dpr нет
Application.CreateForm(TForm8, Form8);
то делай
Form8:=TForm 8.create(application);



Катя   (2001-12-17 16:38) [11]

а что разве есть разница совпадают количества столбцов в таблицах или нет?..у меня в одной 10, в другой 3 а код я конечно, ложовый послала-поторопилась .



Катя   (2001-12-17 17:14) [12]

спасибо вам большое -все заработало!!!



NickBat   (2001-12-17 17:19) [13]

А в проекте форму убрала из Auto-Create Forms? А то ведь она второй раз пытается создаться, вот и ругается.:))




Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];

Наверх

Top.Mail.Ru     Яндекс.Метрика













Память: 0.79 MB
Время: 0.029 c
1-22254
alina
2001-12-17 13:32
2002.01.08
Архивация данных


1-22259
Крыс
2001-12-12 17:55
2002.01.08
Дорисовка кривых (дубль 2)


1-22245
T2
2001-12-16 07:12
2002.01.08
Gost & best crypt


3-21981
Termik
2001-12-06 08:22
2002.01.08
Про ключевые поля и IDENTITY


4-22492
neverbee
2001-11-06 12:11
2002.01.08
Открытие вордового документа.(+)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский