[dinamo0]

Помогите написать часть програмы! Нужно со списка ComboBox взять подряд каждого ученика и сравнить однажды с кем-то рендомно, кто лучше.
ПРимер: Иванов 10 8
Петров 9 7
Сидоров 11 11
Сравнить сперва Иванова первая оценка(10) с Сидоровым со второй оценкой(11). Потом Петрова первая оцека(9) с кем то со второй оценкой и т.д.
Возможно ли такую прогу написать? Заранее благодарен.

[angvelem]

Возможно.

Код:

procedure TForm2.Button3Click(Sender: TObject);
var
  I, J : Integer;
  St :   String;
begin
  for I := 0 to Combobox1.Items.Count - 1 do
  begin
    St := ComboBox1.Items[i];
    while True do
    begin
      J := Random(ComboBox1.Items.Count);
      if J = I then
        Continue
      else
      begin
        St := St + ComboBox1.Items[J];
        Break;
      end;
    end;
  end;
end;

Тут показан только перебор, значения, думаю, сам "выкусишь".

[dinamo0]

С текстового файла могу только первую оценку с первой сравнить, а как первую оценку со второй сравнить другого ученика? этого понятия неимею.... и как прыстыкувать рендомный выбор списка со значениями с текстового файла?

[angvelem]

Как хранятся записи?

[dinamo0]

в текстовом файле:
Иванов-12-10
Петров-10-8
Сидоров-7-10

[angvelem]

Так, ещё раз. Что загружено в ComboBox, соответствует ли порядок загруженного с порядком в текстовом файле? Что точно хочется получить, по пунктам. Подкинь текстовый файл.