Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

ajudar Encontre agências semelhantes


Катя   (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 </> это ничто иное как проблемы с памятью.Прога пытается захватить память ей не принадлежащую.
Смотри все ли правильно освобождаешь и не обращаешься ли к объектам которые еще не созданы
>> Yuri Zotov
Круто про кол-во форм и код в формах



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

"тута код заполнения "не работает Еще вырианты есть?
На всякий случай приведу код
var
i,n,j:integer;
começar
Form8:=TForm.create(application);
tentar
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;
finalmente
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]

Questões
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 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.85 MB
Hora: 0.04 c
1-22133
Verme de areia
2001-12-19 14:55
2002.01.08
quadro


14-22398
Jey
2001-11-10 18:55
2002.01.08
Aqui foi para o cliente de IRC fazer ....


14-22352
Esmerilhão
2001-11-02 13:04
2002.01.08
Nós temos todos os movimentos registrados !!!


14-22386
Denso
2001-11-08 21:13
2002.01.08
É interessante Quanto custa?


1-22052
avr555
2001-12-17 19:54
2002.01.08
Componente arrastável





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol