Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.06.14;
Скачать: 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 вся ветка

Текущий архив: 2005.06.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.036 c
6-1111596524
redlord
2005-03-23 19:48
2005.06.14
не отрабатывает try clientsocket.Open; finally


14-1117115965
Lisichka
2005-05-26 17:59
2005.06.14
А что обозначает красное зачеркнутое имя?


3-1115283652
Phenix2005
2005-05-05 13:00
2005.06.14
Доступ к серверу Interbase с нескольких клиентов


1-1117036352
Masta Hookah
2005-05-25 19:52
2005.06.14
Свойства файлов...


14-1117003571
Игорь Лан
2005-05-25 10:46
2005.06.14
Глюк коде-експлорера в Д5