Поиск наименьшего и самого редкоповторяющегося числа в Memo (Delphi)

[giga_person]

Уважаемые программисты!

Дан такст в Memo: например:

----

20 10 15
10 30 40
20 17 11

----
1. Как найти наименьшее(-ие) из данных чисел? Они разделены пробелами, и записаны в несколько строк.
2. Как найти самое редкоповторяющееся из введённых значений?

Заранее спасибо!

[Google2010]

1) парсим текст вытаскиваем числа
2) заводим 2 мерный массив 1 число значение второе - сколько раз
3) ищем минимум во 2 строке запоминаем позицию - выводим число [индекс,1]- это и есть искомое

[giga_person]

..... А то я не догадался. 2) и 3) сам знаю как, ... как перегнать в массив "текст"?

[Google2010]

как перегнать в массив "текст"?

в поиск по форуму 100500 раз было, догадливый))

[russian-stalker]

Что-то типа:

procedure TForm1.Button1Click(Sender: TObject);
var
 i,m,t:integer;
 s:string;
begin
 if pos(' ',memo1.Text)=0 then
 exit;
 s:=memo1.Text;
 s:=StringReplace(s,chr(13)+chr(10),' ', [rfReplaceAll]);
 m:=strtoint(copy(s,1,pos(' ',s)-1));
 delete(s,1,pos(' ',s));
 while length(s)<>0 do
 begin
  if pos(' ',s)<>0 then
  begin
     t:=strtoint(copy(s,1,pos(' ',s)-1));
     delete(s,1,pos(' ',s));
  end else
  begin
     t:=strtoint(copy(s,1,length(s)));
     delete(s,1,length(s));
  end;
     if t<m then
       m:=t;
 end;
  memo1.Text:=inttostr(m);
end;

[giga_person]

russian-stalker, снова спасибо, Google2010 - если бы всё обходилось поиском и безграничным временем, таких форумов не было бы