Чтение из строки параметры чисел (парсер)

[VintProg]

Вот сделал такие вот функции:

function StrIsNumbers(C : Char) : boolean;
begin
 Result := False;

case c of
   '0' : result := true;
   '1' : result := true;
   '2' : result := true;
   '3' : result := true;
   '4' : result := true;
   '5' : result := true;
   '6' : result := true;
   '7' : result := true;
   '8' : result := true;
   '9' : result := true;
  end;

end;

function Read_Parametr_Str(Str : string; parametr : Word): string;
var
 I, I2 : word;
 _string : string;
 Wr : Word;

begin
 Wr := 0;

  for I:=1 to Length(Str) do
      begin

        if StrIsNumbers(Str[I]) then
           begin

             if Str[I-1] = ' ' then
                begin
                  Wr := Wr + 1;

                    for I2:=I to Length(Str) do
                       begin

                         if  (Str[I2] = ' ') and (Wr = parametr) then
                             begin
                               Result :=  _string;
                               Exit;
                             end;


                      if Wr = parametr then
                         begin
                          _string := _string + Str[I2];
                           Result :=  _string;
                         end;

                       end;


                end;

          end;

      end;

end;

StrIsNumbers(с : char) - проверяет является ли числом символ?
Read_Parametr_Str(Str : string; parametr : word) - читает из строки str
параметр parametr допустим первый 1.

Вопрос такой можно ли написать по проще этого и по лучше???

[Utkin]

function StrIsNumbers(C : Char) : boolean; Посмотри на коды цифр, они расположены рядом. Можно просто проверять удовлетворяет ли данный символ определенному диапазону.
Нет инициализации результата. Что если на входе будет пустая строка? Цикл не выполнится и что я получу в результате? В лучшем случае ошибку, а в худшем, какую-нибудь белиберду и прога будет дальше работать не правильно. Далее, аналогично, что будет если я задам отрицательный параметр или параметр, которого нет в строке? Допустим в строке три слова, а я хочу 128-е?
Далее полное отсутствие комментариев. К чему это приводит? Да вот хотя бы ко всему тому, что я уже написал выше. А в результате отлаживать такой код потом будет очень тяжело.

[bitSoft]

function StrIsNumbers(C : Char) : boolean;
begin
 Result := C in ['0'..'9'];
end;

[VintProg]

Ладно я поработаю над этим, как советует профессионал Utkin .

[rdama]

procedure Explode(Delimeter:string;SourceStri ng:string;DestList:TStrings);
var DPos, I:Integer;
Line:string;
begin
for I:=0 to Length(SourceString) do
begin
DPos:=AnsiPos(Delimeter,SourceStrin g);
if DPos=0 then
begin
DestList.Add(TrimLeft(TrimRight(Sou rceString)));
break;
end;
Line:=Copy(SourceString,0,DPos-1);
if Trim(Line)<>'' then DestList.Add(TrimLeft(TrimRight(Lin e)));
SourceString:=Copy(SourceString,DPo s+1,length(SourceString));
end;
end;
Функция написана для других целей но и тебе может помочь.

[VintProg]

C in ['0'..'9'];

Вот про это я не знал.

[Utkin]

Сообщение от VintProg

C in ['0'..'9'];

Вот про это я не знал.

Срочно ищем в гугле Дельфи множества

[VintProg]

Блин, в голову не приходит как написать парсер правильно.

[rdama]

Напиши сначала алгоритм парсера своего.
Если речь идет о той строке что ты выкладывал в другой ветке то.
По логике надо идти по пути...
Тебя не интересует что в строке до первого пробела. Т.к. там буквы.
AnsiPos(' ',твоя строка).
Выкидываешь то что до этой позиции нафиг.
Потом у тебя 2 цифры разделенных пробелом.
Опять же AnsiPos(' ', остаток твоей строки).
То что до позиции это одино число то что после второе.
Все.
И да trim не забывай.

[VintProg]

А так:

function Read_Parametr_Str(Str : string; parametr : Word): string;
var
 I, I2 : word;
 _string : string;
 Wr : Word;

begin
 Wr := 0;

if parametr <= 0 then
   exit;

  for I:=1 to Length(Str) do
      begin

        if StrIsNumbers(Str[I]) then
           begin

             if (Str[I-1] = ' ') or (Str[I-1] = '')  then
                begin
                  Wr := Wr + 1;

                    for I2:=I to Length(Str) do
                       begin

                         if  (Str[I2] = ' ') and (Wr = parametr) then
                             begin
                               Result :=  _string;
                               Exit;
                             end;


                      if Wr = parametr then
                         begin
                          _string := _string + Str[I2];
                           Result :=  _string;
                         end;

                       end;


                end;

          end;

      end;

end;