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

[Vanta11a]

Значит надо изменить объявление

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

на

procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);

, а

Edit2

на

edt2

Если ошибки - смотри, что у твоих Edit`ов указано в поле свойства Name

[TemaLapushka]

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

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

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

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

так
хорошо
запустил
при вводе в эдит1,выводит "запятых нет"
в эдит1 нужно ведь цифры вводить?так?

[TemaLapushka]

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

Значит надо изменить объявление

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

на

procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);

, а

Edit2

на

edt2

Если ошибки - смотри, что у твоих Edit`ов указано в поле свойства Name

это я уже делал
выводило тоже самое
сейчас уже всё нормально

[Аватар]

в эдит1 нужно ведь цифры вводить?так?

Чего хочешь вводи

[TemaLapushka]

Сообщение от Аватар

Чего хочешь вводи

что бы не вводил
показывает в эдит2 "запятых нет"
естественно вводил что угодно с запятыми

[Аватар]

Покажи полностью свой код

[Vanta11a]

В 1й эдит нужно ввести строку (массив символов), в которой будешь искать запятую. Номер запятой в строке определиться по индексу элемента.

[TemaLapushka]

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

[TemaLapushka]

Сообщение от Аватар

Покажи полностью свой код

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;

end.

тот же код который написан ранее

[Vanta11a]

Ставьте точку останова на линию

else inc(i); //иначе дальше

и смотрите, какое значение у переменной i, переменной k и символа s[i]