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
Что здесь неясного?
П.С. Код - дурной.
П.П.С. Ветку зарежут.

> имеет:

имеем

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

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

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