запятая в массиве

[TemaLapushka]

Сообщение от Vanta11a

В гугл.

Потому что если запятых нет - будет -1. Если есть - позиция запятой.

почему именно "-1" а не "-3.141592653589793238..."

[TemaLapushka]

Сообщение от Vanta11a

В гугл.

Потому что если запятых нет - будет -1. Если есть - позиция запятой.

зачем в эдит вписывать var Key: Char?
"procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);"

[puporev]

зачем в эдит вписывать var Key: Char?

А я и не вписывал, это Делфи сам создает.

[puporev]

var
  Form1: TForm1;
  s:array of char; //динамический массив символов
  n:integer;//его длина
implementation

{$R *.dfm}
//заполнение массива
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
inc(n);//при вводе каждого символаувеличивается счетчик
setlength(s,n); //выделяем память под новый символв массиве
s[n-1]:=key;//записываем введенный символ в массив(на 1 мньше сем длина)
end;
//поиск первой запятой
procedure TForm1.Button1Click(Sender: TObject);
var i,k:integer;
begin
Edit2.Clear;
i:=0;//первый символ
k:=-1;//присваиваем к значение меньше 0
while(i<n)and(k=-1)do//пока не конец и не изменилось значение к
if s[i]=',' then k:=i //если запятая, запомним индекс
else inc(i);  //иначе дальше
if k=-1 then Edit2.Text:='Нет запятых'//если не изменился, нет запятых
else Edit2.Text:='Первая запятая имеет номер '+inttostr(k+1); //иначе номер(на 1 больше чем индекс)
n:=0;//обнуляем массив, можно снова вводить другой
end;

[TemaLapushka]

Сообщение от puporev

var
  Form1: TForm1;
  s:array of char; //динамический массив символов
  n:integer;//его длина
implementation

{$R *.dfm}
//заполнение массива
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
inc(n);//при вводе каждого символаувеличивается счетчик
setlength(s,n); //выделяем память под новый символв массиве
s[n-1]:=key;//записываем введенный символ в массив(на 1 мньше сем длина)
end;
//поиск первой запятой
procedure TForm1.Button1Click(Sender: TObject);
var i,k:integer;
begin
Edit2.Clear;
i:=0;//первый символ
k:=-1;//присваиваем к значение меньше 0
while(i<n)and(k=-1)do//пока не конец и не изменилось значение к
if s[i]=',' then k:=i //если запятая, запомним индекс
else inc(i);  //иначе дальше
if k=-1 then Edit2.Text:='Нет запятых'//если не изменился, нет запятых
else Edit2.Text:='Первая запятая имеет номер '+inttostr(k+1); //иначе номер(на 1 больше чем индекс)
n:=0;//обнуляем массив, можно снова вводить другой
end;

выводит при включении программы - Edit2.Clear;
"[Error] Unit1.pas(39): Undeclared identifier: 'Edit2'"

"s[n-1]:=key;//записываем введенный символ в массив(на 1 мньше сем длина)"
зачем это?

"while(i<n)and(k=-1)do//пока не конец и не изменилось значение к
if s[i]=',' then k:=i //если запятая, запомним индекс"
и это?

числа это я так понимаю,номер символов в массиве,
так а зачем мы их сравниваем с заданным числом,оно всяко будет меньше номера первого символа

[puporev]

А ап стену не пробовал?

[Vanta11a]

почему именно "-1" а не "-3.141592653589793238..."

Да хоть -100500. Не суть важно. Просто часть модулей при ошибке возвращает -1, соответственно по образу и подобию.

зачем это?

Для заполнения массива

и это?

Для выполнения задания

Тёма, ты выклевываешь мозг. Перечитай еще раз матчасть, только вдумчиво. А потом уже задавай вопросы, на которые я могу ответить что-то толковое, а не "Что курил чувак, ТАКИЕ вопросы задающий?". Ага?

[TemaLapushka]

Сообщение от Vanta11a

Да хоть -100500. Не суть важно. Просто часть модулей при ошибке возвращает -1, соответственно по образу и подобию.

Для заполнения массива

Для выполнения задания

Тёма, ты выклевываешь мозг. Перечитай еще раз матчасть, только вдумчиво. А потом уже задавай вопросы, на которые я могу ответить что-то толковое, а не "Что курил чувак, ТАКИЕ вопросы задающий?". Ага?

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

я понимаю что что написано в этих статьях,
я встаю в ступр когда после того как я понял что наисано в учебнике,мне показывают решенную задачу и я не вижу связи между тем что я читал и тем что я вижу

и я не задаюсь вопросом "Что курил чувак, ТАКИЕ вопросы задающий?",я интересуюсь
Вы лучше меня знаете как это "работает",яже в этом дуб дубом

[Vanta11a]

Да ладно? Вот например ошибка

"[Error] Unit1.pas(39): Undeclared identifier: 'Edit2'"

о чем тебе говорит? Ответил для себя? А теперь читай правильный ответ (выдели курсором) ниже:
Вообще первоначально эта программа рассчитана под GUI, т.е. программирование оконного интерфейса при помощи перетаскивания элементов. В данном случае на форму вытащено 2 TEdit и 1 TButton.
А ошибка говорит о том, что у тебя нет объекта с именем Edit2. Скорее всего, ты пытаешься собрать программу для консоли, что не подходит для данного кода.
Едем дальше. У тебя задача: найти позицию запятой в массиве. Что ты делаешь своим кодом - я не знаю, но он тупо не решает задачу. Вообще. Совсем. Тебе привели другой вариант.

В общем смотри еще матчасть по "графическому программированию" в Delphi. Конкретно: формы и элементы на форме.

[TemaLapushka]

Сообщение от Vanta11a

Да ладно? Вот например ошибка

о чем тебе говорит? Ответил для себя? А теперь читай правильный ответ (выдели курсором) ниже:
Вообще первоначально эта программа рассчитана под GUI, т.е. программирование оконного интерфейса при помощи перетаскивания элементов. В данном случае на форму вытащено 2 TEdit и 1 TButton.
А ошибка говорит о том, что у тебя нет объекта с именем Edit2. Скорее всего, ты пытаешься собрать программу для консоли, что не подходит для данного кода.
Едем дальше. У тебя задача: найти позицию запятой в массиве. Что ты делаешь своим кодом - я не знаю, но он тупо не решает задачу. Вообще. Совсем. Тебе привели другой вариант.

В общем смотри еще матчасть по "графическому программированию" в Delphi. Конкретно: формы и элементы на форме.

эммм....у меня 2 эдита....только они обозначенны ''edt1'',''edt2''
меняя в самой программе на ''edt2'' вылезает та же ошибка