| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

function SearchParam [D7]

Bondar ©   (2005-05-28 15:08:00) 

Если не сложно объясните следующее:

function SearchParam(const KeyWord: String; var A : TParams ):integer;
 var
    i : integer;
    TempStr : String;
 begin

    Result := Pos(KeyWord, s);
    if Result <> 0 then // нашли скорость
       try   // код который может не сработать
          i := Result;

          while s[i] <> ' ' do i:=i+1;
          i:=i+1;
          while s[i] <> ' ' do
             begin
                   if (s[i] >= '0') and (s[i] <= '9') then
                   begin
                      TempStr := TempStr + s[i];
                      i:=i+1
                   end
                else
                   exit;

             end;

          SetLength( A, Length( A ) + 1);
          A[ High(A) ] := TempStr;
       finally     // код удачного завершения
          s[Result] := '_';
       end;
 end;

---

Bondar   (2005-05-30 16:48:00) [1]

чем дурной??????

---

Просто Джо   (2005-05-28 15:30:00) [2]

> A[ High(A) ] := TempStr;

High(A) - номер последнего элемента в массиве A, итого имеет:
Последний элемент массива := TempStr
Что здесь неясного?
П.С. Код - дурной.
П.П.С. Ветку зарежут.

---

Просто Джо   (2005-05-28 15:30:00) [3]

> имеет:

имее м

---

Virgo_Style   (2005-05-28 15:23:00) [4]

Bondar   (28.05.05 15:08) [1]
Собственно все остальное тоже в справке есть.

---

TUser   (2005-05-28 15:18:00) [5]

Посмотри в справке по поводу оператора :=

---

Bondar   (2005-05-28 15:08:00) [6]

SetLength( A, Length( A ) + 1);
        A[ High(A) ] := TempStr;

вот это особенно нуждается в пояснеии

---

Наверх