ты загоняешь. скорее всего у парнишки есть *.pas модуль, но он вне области видимости компилятора, то есть в разделе uses объявлен а в папке проекта его нету. Вот компилятор и ругается что не найден соответствующий *.dcu. Надо просто перетащить *.pas файл в папку с проектом (или в папку C:\Program Files\Borland\Delphi7\Projects\Bpl\) и нажать CTRL+F9, компилятор автоматически сгенерирует dcu из pas и линковщик подключит его к exe.
Люди, подскажите как в паскале сделать двумерный массив 1000*1000. Code: var m: array [1..1000, 1..1000] of byte; Проблема в том, что для размешения в памяти такого массива потредуется больше 64К, ну и паскаль ругается.. Помогите, плиз!
Пробывал вот так: Code: program Big_Mas; CONST N1= 1000; N2= 1000; type M1= array [1..N1 ] of REAL; M2= array[1..N2] of ^M1; var a1, a2: M2; i, j: word; BEGIN for i:=1 to N2 do New(a1[i]); for i:=1 to N2 do New(a2[i]); for j:= 1 to N1 do for i:= 1 to N2 do begin a1[i]^[j]:= j + i*3; a2[i]^[j]:= j - i*5; end; for i:= 1 to N2 do Dispose(a1[i]); for i:= 1 to N2 do Dispose(a2[i]); Readln; END. Вылетает ошибка 203: Heap overflow error! на девятой строке (for i:=1 to N2 do ), а если N1=10, N2=10. То всё норм!
Помоему такого свойства нет (точно не знаю), т.к. этот компонент забирает себе на время загрузки весь поток - чтобы не подвисать, можно кинуть на форму TIdAntiFreeze или запускать IdHttp в отдельных потоках - взависимости от задачи... З.Ы. насчет глючности хз - не замечал глюков - все пашет прекрасно =)
Proger10 если ты в паскале пишешь, то вполне вероятно что может памяти не хватать, я думал тебе на делфи надо. Я с такой проблемой не сталкивался и на паскале уже года 4 не писал, могу тебе две вещи посоветовать, либо в настройках поройся, либо промежуточные значения сохраняй в типизированный файл на диске.
У StringGrid'a есть свойство Selection, там хранится информация о выделенном диапозоне: номера левого и правого столбцов, а также верхней и нижней строки. Если выделена 1 ячейка, то значения StringGrid1.Selection.Left и StringGrid1.Selection.Right совпадают. Аналогично с StringGrid1.Selection.Top и StringGrid1.Selection.Bottom. Code: procedure TForm1.Button1Click(Sender: TObject); var i, j: integer; begin // с учетом того, что в Cells первый индекс закреплен за столбцом j := StringGrid1.Selection.Left; i := StringGrid1.Selection.Top; showmessage('Выделена ячейка [' + IntToStr(j)+ ', ' + IntToStr(i) + ']. Ее значение: ' + StringGrid1.Cells[j, i]); end;
Вопрос по Delphi 7 Есть абстрактный класс TCrypt и несколько его потомков TVigenereCrypt, TEnigmaCrypt и TAESCrypt. В каждом из потомков описаны внутренние методы. Можно ли каким-либо способом получить доступ к методам потомков (разумеется к тем, которые не являются реализацией абстрактных методов TCrypt), если переменная описана как Code: var Crypt: TCrypt и при этом используется контруктор одного из потомков класса TCrypt, например, TAESCrypt?
Можете глянуть две задачки на pascale ? 1)Определить сумму элементов, массива целых чисел размерностью 15, элементов с 1 по 12 и с 8 по 15.И найти произведения этих сумм с использованием функций. 2)Найти min элемент одномерного массива описав процедуры ввода элементов массива, процедура нахождения min элемента массива.
1 задача - решил от делать нечего Code: function multiple(const a,b:Integer):Integer; begin result := a*b; end; var A:Array [1..15]of integer; i,sum1,sum2,mult:integer; begin // предполагается что массив уже заполнен Sum1 := 0; Sum2 := 0; for i := 1 to 12 do Inc(Sum1,a[i]); for i := 8 to 15 do Inc(Sum2,a[i]); mult := multiple(sum1,sum2); WriteLn(Mult);// Это твой ответ end; 2 лень чё то стало писать, с такой задачей даже ребенок 3го класса справится, поднапряги мозги.
2 t04 ты видел в API chаrt? или на консоли?) Извиняюсь за офтоп, не у кого нет исходничка по решению транспортной задачи методом фогеля?
