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

[Fenex]

А что по-вашему лежит в массиве team? И на какой строчке определяется то, что лежит в team?

[TemaLapushka]

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

А что по-вашему лежит в массиве team? И на какой строчке определяется то, что лежит в team?

честно,не знаю

[Vanta11a]

как понять пустой?

Да так и понимать. Пусто в нем. Каждый элемент - ''. Т.е. пустота.

и что сделать нужно что бы он не был пустым

Заполнить. Например

team[1] := 'a';

[TemaLapushka]

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

Да так и понимать. Пусто в нем. Каждый элемент - ''. Т.е. пустота.

Заполнить. Например

team[1] := 'a';

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

при включении программы,вылезает ошибка

[Vanta11a]

Вы матчасть не знаете. Изучайте: http://pascal.guti.ru/array.html

[TemaLapushka]

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

Вы матчасть не знаете. Изучайте: http://pascal.guti.ru/array.html

читал это
на другом сайте
но тоже самое

я понял что они хотят сказать
и какую информацию донести

[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;
end;
//поиск первой запятой
procedure TForm1.Button1Click(Sender: TObject);
var i,k:integer;
begin
Edit2.Clear;
i:=0;
k:=-1;
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);
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;
end;
//поиск первой запятой
procedure TForm1.Button1Click(Sender: TObject);
var i,k:integer;
begin
Edit2.Clear;
i:=0;
k:=-1;
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);
n:=0;
end;

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

"inc(n);
setlength(s,n);
s[n-1]:=key;"
что такое - inc,setlength,key

почему в кнопке стоят знаки больше/меньше
зачем они?
почему к=-1?

[Vanta11a]

что такое - inc,setlength,key

В гугл.

почему к=-1?

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