[Делфи]Самое маленькое число. Как вычислить?

[SERG1980]

Конечно это можн овсё учесть но автор же привёл пример строки

Есть числа такого плана:

4120,9947,21,412,10,82.

.

[Nester]

Вот исправил (про точку в конце не досмотрел)

Procedure TForm1.Button1Click(Sender: TObject);
  Var Stroka:String;
      I,Min:Integer;
      S:String;
  Begin
   //Собственно строка
   Stroka:='100,2,500,-6,10,0,-100,-500,15,7.';
   //Удалим последний символ (точку)
   Delete(Stroka,Length(Stroka),1);
   //Минимальное число по умолчанию
   Min:=0;
   //Проходим по всем символам строки
   For I:=1 To Length(Stroka) Do
    Begin
     //Если найден не допустимый символ то EXIT
     If Not (Stroka[I] In ['0'..'9','-',',']) Then Exit;
     //Если не разделитель то добавляем символ
     If Stroka[I]<>',' Then S:=S+Stroka[I]
     Else
      //Если символ разделитель
      Begin
       //Если в между разделителями нет числа то EXIT
       If (Length(S)=0) Or (S='-') Then Exit;
       //Если число меньше чем Min то Min=Число
       If StrToInt(S)<Min Then Min:=StrToInt(S);
       //Очищаем
       S:='';
     End;
  End;

  Label1.Caption:=IntToStr(Min)
 End;

[Serge_Bliznykov]

А вот мне понравился код Виталия Stilet!
я голосую за него!
Просто, эффективно и надёжно! (чтобы добавить возможность обработки отрицательных чисел, достаточно указать в перечне допустимых символов знак минус: (s[i] in ['0'..'9','-'])

[Consol]

var
  S,S2: string;
  i:integer;
begin
  S:='234,555,333,123.';
  s2:='';
  i:=0;
  
  while (s[1] in ['0'..'9']) do
   begin
      s2:=s2+s[1];
      i:=i+1;
     delete(s,1,1);
   end;

i:=strtoint(s2);

  while length(S)<>0 do
  begin

    if s[1] in ['0'..'9'] then
      s2:=s2+s[1]
    else

    begin
      if strtoint(s2)<i then i:=strtoint(s2);
      s2:='';
    end;

    delete(s,1,1);
  end;
  ShowMessage(inttostr(i));
end;

[zotox]

Сообщение от Скандербег

В отладке посмотреть "почему" слишком сложно?

Я отладчиком пользоватся не умею. Ага?

Всем спасибо за хорошие ответы, тема закрыта

[Stilet]

Я отладчиком пользоватся не умею. Ага?

"Учись, студент".