Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Сравнение массивов

Автор: SPAUN1 14.12.2012, 22:43

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

Автор: Чучмек 14.12.2012, 22:58

Код


for i:=0 to count-1 do
 if m1[i]<>m2[i] then
  begin
  form2.RadioGroup1.Items[0]:=типмассивавстроку(m1[i]) ;
  form2.RadioGroup1.Items[1]:=типмассивавстроку(m2[i]) ;
  form2.ShowModal;
  if form2.RadioGroup1.ItemIndex=0 then m2[i]:=m1[i] else m1[i]:=m2[i];
  end;

Автор: SPAUN1 14.12.2012, 23:32

Автор: Чучмек 15.12.2012, 01:09

---