[elfer]

1) На каждой строке в мемо есть число, как найти минимальное число и узнать на какой строке оно находится.
2) если найдено несколько одинаковых значении, например нулевых, и находящимся к примеру на строках 2, 7 и 10. Как сделать так чтобы оператор рандом выбрал одно из этих чисел (2,7 или 10)

[Страдалецъ]

Пока пара встречных вопросов.
1. Как представлено число? Арабские,Римские или прописью.
2. Используется ли разделитель в числах, какой?

[lmikle]

Найти через цикл. Обычно выдается первое или последнее число, соответствующее условию поиска. Можно пройтись вторым циклом и найим позиции всех чисел, равных найденному в первом проходе и выбрать одну из них. Код писать не буду - сам думай, задача элементарная.

[elfer]

Все цифры арабские. Если можно напишите листинг

[Страдалецъ]

Вот вам такое решение:

PHP код:

procedure TForm34.Button1Click(Sender: TObject);
function CustomSort(List: TStringList; Index1, Index2: Integer): Integer;
begin
 Result := 0;
 if StrToInt(Copy(List[Index1],1,Pos('_',List[Index1])-1)) > StrToInt(Copy(List[Index2],1,Pos('_',List[Index2])-1)) then Result := 1;
 if StrToInt(Copy(List[Index1],1,Pos('_',List[Index1])-1)) < StrToInt(Copy(List[Index2],1,Pos('_',List[Index2])-1)) then Result := -1;
end;

var
  i: Integer;
  Source: TMemo;
  List: TStringList;
begin
 Source := TMemo.CreateParented(Self.Handle);
 Source.Lines.Add('1 2 3 4 5 6');
 Source.Lines.Add('7 8 9 0 10');
 Source.Lines.Add('11 12 13 20 14');
 Source.Lines.Add('15 16 17 18 19');
 Memo1.Text := Source.Text;

 List := TStringList.Create;
 List.Text := '';
 for i := 0 to Source.Lines.Count - 1
 do List.Text := List.Text + StringReplace(WrapText(Source.Lines[i]+' ',#13#10,[#32],1),#32,'_'+IntToStr(i),[rfReplaceAll]);
 List.CustomSort(@CustomSort);
 Memo2.Text := List.Text;
end;