22 lines
424 B
ObjectPascal
22 lines
424 B
ObjectPascal
// Îáîáùåííûå ôóíêöèè
|
|
// Âûâåäåíèå òèïà T ïî òèïàì ïàðàìåòðîâ
|
|
|
|
function IndexOf<T>(a: array of T; val: T): integer;
|
|
begin
|
|
Result := -1;
|
|
for var i:=0 to a.Length-1 do
|
|
if a[i]=val then
|
|
begin
|
|
Result := i;
|
|
exit;
|
|
end;
|
|
end;
|
|
|
|
var a: array of string := ('Âàíÿ', 'Êîëÿ', 'Ñàøà', 'Ñåðåæà');
|
|
|
|
begin
|
|
var s := 'Ñåðåæà';
|
|
writelnFormat('Èíäåêñ ýëåìåíò ñî çíà÷åíèåì ''{0}'' ðàâåí {1}',s,IndexOf(a,s));
|
|
end.
|
|
|