[Ванька]

Помогите исправить прогу.
Она работает но только один раз а поменяв значение комбобокс нужно поменять все остальное!!!

procedure TForm2.Button2Click(Sender: TObject);
begin
assignfile(f,'d:\3');
reset(f);
i:=0;
t:=0;
j:=0;
while not eof(f) do
begin i:=i+1;
readln(f,s);
b[i]:=s;
j:=j+1;
end;
for i:=1 to j do
if b[i]='Свободен' then
combobox1.AddItem(b[i-5],form2);



end;

procedure TForm2.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
label12.Caption:=combobox1.Text;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
i:=1;
while J<>0 do
begin if b[i]=label12.Caption then
begin label7.Caption:=b[i];
label8.Caption:=b[i+1];
label9.Caption:=b[i+2];
label10.Caption:=b[i+3];
label11.Caption:=b[i+4];
memo1.Lines.Add(b[i+6]);
j:=0

end
else i:=I+7;
end;
end;

[Burka]

ты бы еще задание сказал, что прога должна делать? и коментарии бы добавил к коду, а то я вот не понял что ты хотел сделать последней процедурой.

[Ванька]

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

[Burka]

Код:

procedure TForm2.Button3Click(Sender: TObject);
begin
i:=1;
while J<>0 do
begin if b[i]=label12.Caption then
begin label7.Caption:=b[i];
label8.Caption:=b[i+1];
label9.Caption:=b[i+2];
label10.Caption:=b[i+3];
label11.Caption:=b[i+4];
memo1.Lines.Add(b[i+6]);
j:=0

end
else i:=I+7;
end;
end;

В лебеле у тебя покажется только последние значения массива, нужно либо задержку делать либо по кнопке продолжать перебор массива.

Код:

Memo1.Clear;
for i:=1 to Count do
 Memo1.Lines.Add(IntToStr(A[i]));

и не парься

[Ванька]

большое спасибо