>>223854692 (OP)Я ни разу не кодил на Дельфи, тебе показывает что ошибка в той строке что у тебя красная?
>>223854692 (OP)ты зачем в 2к20 учишь это говно?судя по ошибке походу либо в кастинге проблема либо в N
>>223855276я вообще ассемблер учил, но он реально дает представление об общей работе железа, байты,биты,регистры вот это всеа этот питон как я вижу высокоуровневый язык, нахуя его то учить?
>>223854692 (OP)Ты дурак?У тебя прям в первой строке твоего говнокода i,j не инициализированы, о чем тебя прямо предупредил компилятор. Исправляй.
>>223855278У тебя массив 100 на 200, а ты сравниваешь A(i,j) с самим собой, то есть массив там должен быть 100 на 100 или 200 на 200, может в этом проблема?
>>223854692 (OP)У тебя в редакторе кода нет кнопки автоформатирования? Там ведь действительно легче читать код
>>223855532Нет, не норма, поэтому долбоеб Оп и получает ошибку, ебаные деграданты. Благо он Делфи учит, хуй куда с ним устроится. Хотя у меня в конторе веб - 100к, делфи - 150к, но это редкость. Проще найти целу ебабельную в 30.
>>223855673Проще переходить с паскаля именно на него. Сам же паскаль хорош для обучения, но плох в ООП и ежи с ним
>>223855679Где они задаются по вводу? как я понял, N это приватная переменная и из вне ее никто не задает нигде. Если я не прав, пруфаните скинами, где она задается
>>223855754А в делфи, насколько помню, к тому же, ООП не работает, лол. Ну то есть, вроде как ООП есть, но оно не работает как должно. И всем похуй
>>223855865Пизда твоей мамаши там задается. Где ты блять обращаешься к этой n, даун? Ты пишешь var N L integer; вот твоя N ЗАДАЧАно ты её не заполняещь ниче, она НЕ ОПРЕДЕЛЕНА.Напиши ты сука тупая над циклом N:=100; или какойй у вас там синтаксис не помню уже и уебывай
>>223855896>Орнул с этой каши говнокода. Где такому учат? Что за парашный язык вообще?А через несколько лет он начнет пытаться найти работу и удивляться, почему его не берут даже на стажера.
>>223855809>>223855891unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;type TForm1 = class(TForm) StringGrid1: TStringGrid; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject); var M,N,I,J:Integer;beginStringGrid1.Cells[0,0]:='стр.\столб.';M:=StrToInt(Edit1.Text);N:=StrToInt(Edit2.Text);StringGrid1.RowCount:=M+1;StringGrid1.ColCount:=N+1;for I:=1 to M+1 doStringGrid1.Cells[0,I]:=IntToStr(I);for J:= 1 to N+1 doStringGrid1.Cells[J,0]:=IntToStr(J);end; procedure TForm1.Button2Click(Sender: TObject); var A: array [1..100,1..200] of real; M,N,I,J:Integer; Num:real;beginA[I,J]:= StrToInt(Form1.StringGrid1.Cells[I,J]);for I:= 1 to M-1 dobeginif (A[1,J]<> A[1,J]) then Num:= 1 elseif (A[I,J] <> A[I,J]) then Num:= Num +1;for J:= 1 to N dobeginif (A[1,J]<> A[1,J]) then Num:= 1 elseif (A[I,J] <> A[I,J]) then Num:= Num +1;Label1.Caption:= 'номера строк + FloatToStr(Num)';end;end;end;end.не подавись
>>223854692 (OP)У тебя в касте проблема. Ты пробуешь взять из таблицы элемент с индексами I,J, но они у тебя не определены. Видимо таблица в этом случае возвращает пустую строку и каст на этой пустой строке соответственно падает. И отформатируй, пожалуйста, код, а то глаза текут когда на него смотришь
>>223855965Есть, но не работает корректно. Ну условно приватные или защищенные методы могут быть вызваны откуда угодно. Это точно было в делфи 7, сам это проверял лет 15 назад.
>>223855865А когда ты запускаешь код, у тебя в таблице есть эти значения или код пытается работать с пустой N?
>>223855953Брат, значения на форме записываются в Edit1 и Edit2, но с них нигде не считываются. Енто не норм. Укажи типо N:=StrToInt(Edit1.value)Могу ошибаться.
>>223855865Попробуй прописать N и M := 2, например, чтобы если ты не задал значения, они хотя бы были. И если всё начнёт работать, значит проблема в этом >>223856081
>>223856114Это ты сука ебло тупое, это в БАТТОН 1 КЛИК, А У ТЕБЯ ОШИБКА в БАТТОН 2 КЛИК И В БАТТОН 2 КЛИК ТУПОЕ ТЫ ЕБЛО НЕТ ТАКОГО КОДА ТУПОЕ ТЫ ЕБЛО
>>223856152Сука ты тупая, у тебя в батоон 2 клик нет этого кода, гнида ебаная.где блят ья не прав, сука? ты протри глаза от спермы свое бати гандона
ОП, если ты тут.Скинь проект исходником.Дэлфи качать не буду, но чисто по файлам могу посмотреть.мимо начинал кодить на дэлфи на заводе 5 лет назад, кек
Вы ебанутые весь тред варнинги обсуждать? Ошибки нет никакой, компилятор просто предупреждает о потенциальной проблеме.
>>223854692 (OP)Проверь то что пихаешь в StrToIntВероятно едитбокс не содержит ничего соответственно вылетает исключение.Либо обрабатывай его (рекомендую) либо чекай на пустоту и соответственно вместо вызова функции присваивай 0 или что там у тебя.
А вас не учат пользоваться отступами чтоли? Ты же с таким стилем никогда не поймёшь где у те я проблема
>>223856663Ну а там сказано что пустая строка, внезапно, не подходит для конвертации в Integer. Надо найти этот StrToInt и проверять что в него передается.
>>223856797Это-то понятно. Я ему об этом и писал.Пусть заархивирует проект и скинет.Но мне теперь уже пора идти.
>>223858150Да я уже исправил эту ошибку, но, сука считает не то, так что еще чутка осталось поебаться
>>223858767Да я аутист, забыл, что сам массив в string grid не вставил, вот он и орал, что не из чего числа брать.
>>223859290Я застал времена, когда код пейсали в тетрадочку, на комплюктере работать нельзя, сломаете.
>>223859163Лол, вчера как раз сдал делфи. Предмет называется "Разработка приложений в визуальных средах"На самом деле я нахуячил лабы на пайтоне по другому предмету и сделал полторы лабы из 14 по делфи. Преподу сказал, что нет смысла ебать друг другу мозги. С сетью, с файлами, с хуйнёй, малафьёй я работать умею, это видно по пайтону, синтаксис делфи я знаю, это видно по полутора лабам на делфи. И вместо того, чтобы ебать друг другу мозги мы можем закончить этот разговор и пойти оба работать, поднимая ввп страны. Препод макнул меня в говно на вопросе про разложение в ряд тейлора не знал, что оператор синусов/косинусов через тейлора на пк работает, после чего поставил мне хорошо по обоим предметам и мы разошлись
>>223855953В циклах ты используешь переменную которая не используется в первом цикле. Данная логическая структура неоч. И по сути ты делаешь 2 действия там где можно было сделать одно. На это делфи тебе накатало ворнингов в логе.А вот ошибка у тебя возникает от того что у тебя нет проверки ввода на эдитпах. И введи проверку num.
Плюс, ты берешь переменные i и j для массива, основываясь на том что что? Откуда в них данные при нажатии кнопки2?
>>223855953В частности. Откуда ты берешь значение I и J тут?> A[I,J]:= StrToInt(Form1.StringGrid1.Cells[I,J]);Типа остались после выполнения циклов в прошлой функции? Такая себе хуйня.Далее, откуда ты взял M и N если у тебя все переменные объявлены локально? Это в целом неоч практика. Исправляй.> for I:= 1 to M-1 do> beginЗачем у тебя одно и то же действие выполняется до цикла и в цикле, особенно если учесть что переменную j конкретно тут, ты не переобъявил еще?И зачем у тебя всегда, каждый шаг, проверяется ячейка в первой строке сама с собой, а затем та что в цикле? Я не пойму логику того что ты проверяешь. В данном неравенство вседа даст фолс.> if (A[1,J]<> A[1,J]) then Num:= 1 else> if (A[I,J] <> A[I,J]) then Num:= Num +1;> for J:= 1 to N do> begin> if (A[1,J]<> A[1,J]) then Num:= 1 else> if (A[I,J] <> A[I,J]) then Num:= Num +1;> Label1.Caption:= 'номера строк + FloatToStr(Num)';> end;> end;> end;> end.Короче знание синтаксиса нулевое. Алгоритмизацию я так понимаю, вам еще не преподавали.
>>223859633Если ты автор кода, то мне тебя жаль, ибо ты тешишь себя себя иллюзиями что никогда не будут явью. И в то же время мне жаль твоего препода. Ибо он видит что ты тупой, но завалить тебя ему не даст требование показателей от деканата.