Цитата:
Код:
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]));
и не парься
