FreePascal.ru

мда.... я занёс начальное задание длины массива "1" в form activate, вместо form create. В результате, как только я отключался \ переключался снова на основную форму, весь массив слетал до размера 1.
И вот из за этих 2 вонючих строк в не тех events я парил себе мозг 2 дня. Класс.
На ошибках ...

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


procedure TForm1.N911Click(Sender: TObject);
var i2,j,i1,check:byte;
yes:boolean;
begin
for i2:=0 to ...

Спасибо за аргументы.

Но понимаете в чём дело...
Когда я жму выполнить алгоритм, я же говорю, происходит только ЧТЕНИЕ из массива, который при этом еще и на основной форме отображается, и запись в другой. Как может быть выход за предел массива, если до алгоритма OnPaint вполне себе отображал ...

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

Replicator писал(а):Может, я чего-то не помню, но
function GetOzenka(var aOzenka:ozen):ozen;
стоило бы написать так:
function GetOzenka: ozen;

Код: Выделить всё

function TStudent.GetOzenka(var aOzenka:ozen):ozen;
var i:byte;
begin
  Result := Fozenka;
end;

таки да. дал дубу. спасибо ))

кароче, нужно создать класс. одно из полей класса, полюбому массив из 5 элементов. ну ввёл я его отдельно как тип. но он выводит ошибку. как решить проблему? заранее спасиб.
interface
uses SysUtils;
type ozen=array[0..4] of real;
type TStudent=class
private
Ffio:string ...

что в вашем примере означает p^.next, у меня в Типе такого не прописано. вы мне говорите что это хрестоматийный пример, а сами его вручную написать не можете, откуда-то копируете.
Я не копирую, а пишу по памяти без проверки, если включишь соображалку, то поймешь что вместо p^.next должно было быть ...

Мне показалось, что динамический массив является частным случаем
линейного списка. Поправте, те кто знает точно.
мне нужно создать линейный список именно через динамический массив.
вот процедура. программа почемуто просто зависает и жрет 50% процессора. ошибка гдето в цикле. компилятор ничего ...

60 просмотров темы... неужели так тяжело ответить.... последняя прога которая у меня не выходит, и я свободен по ООП...
Это хрестоматийный пример. Полистал бы лекции, если они у тебя есть (хотя полагаю и у тебя их нет) и сам написал бы.

Дабы жизнь совсем мёдом не казалась покажу лишь как ...

При условии, что в конце строк не более одного пробела.

muchenik.pas
{$RANGECHECKS ON}{$H+}{$SMARTLINK ON}
uses sysutils;

var
s : string;
l, f, om : LongInt;
a : array of LongInt;

begin

SetLength(a, 0);

while not eof do begin

om := 1 ...

ну я к примеру не знаю что есть линейный список
,а ради примера искать в нете не хочется =)

и форматирования у тя в сообщении не было =)

в общем если хочешь чтоб я подумал, тогда давай 2 примера файлов
и что должно получится =)
ну например текстовый файл а в нём инфа такого рода
4 5 4 545 54 ...

60 просмотров темы... неужели так тяжело ответить.... последняя прога которая у меня не выходит, и я свободен по ООП...

помогите, пожалуйста.
задача процедуры, при её активации открывается окно выбора файла ( текстового ) затем с выбранного файла создается линейный список. файл может быть не однострочный, а иметь несколько строк. в файле целые числа.

TPtr = ^Elem;
Elem = record
inf: integer;
link&#58 ...

дружище, ты что, какие 5000 штук ))

Разве много???

я первокурсник

Это понятно


разве за такой примитив дадут такие деньги?

Если бы это был примитив, то ты бы не просил помощи....


грамотное описание класса- это то что ты сделал, за что тебе повторное спасибо
Я бы с этим определением ...

вобщем, задали мне программу по созданию класса. я, дурень, лекции не слушал, писал не всё- и теперь сижу, просто неоткуда отступать, недостаток информации
Отступать всегда есть куда, например в армию
А бы перефразировал:

вобщем, дали мне проект на 5000$.
Не могли бы вы его сделать за меня.
PS ...