Скачать: CL | DM;

function SearchParam   Найти похожие ветки 

← →
Bondar   (2005-05-28 15:08) [0]

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

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-28 15:08) [1]

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

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

---

← →
TUser ©   (2005-05-28 15:18) [2]

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

---

← →
Virgo_Style ©   (2005-05-28 15:23) [3]

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

---

← →
Просто Джо ©   (2005-05-28 15:30) [4]

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

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

---

← →
Просто Джо ©   (2005-05-28 15:30) [5]

> имеет:

имеем

---

← →
Bondar   (2005-05-30 16:48) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c