Slice
Adam Boduch
Slice
Moduł: System
Poniżej znajduje się prosty przykład prezentujący działanie tej funkcji - pozostawienie i przekazanie do procedury Foo
jedynie pierwszych 5 elementów:
program Example;
{$APPTYPE CONSOLE}
uses SysUtils;
procedure Foo(A : array of String);
var
i : Integer;
begin
for I := Low(A) to High(A) do
Writeln(A[i]);
end;
var
Bar : array[0..10] of String;
I : Integer;
begin
for I := Low(Bar) to High(Bar) do
Bar[i] := 'Foo ' + IntToStr(i);
Foo(Slice(Bar, 5));
Readln;
end.
Zobacz też: