OT - Prosim o radu s C

[Jan Waclawek]

Delphi v tomto ponati samozrejme nema s Wirthom absolutne nic spolocne.

wek

Delphin wrote:
>>void test( int* );
> 
> 
>>velikost pole soucasti typu = pascalfujovina ;o)
> 
> 
> Tvurcum Delphi nezustalo ani "test ( int* )" svate, takze jestlize je "type 
> t = array [0..2] of integer" pascalfujovina, potom "array of integer" musi 
> byt jista pascalapokalypsa :-) :-) :-)
> (Funkce Test zere jak staticke, tak dynamicke pole integeru libovolne 
> velikosti, zmeni ho, vytvori nove dynamicke pole, naplni ho a vrati ho jako 
> vysledek funkce).
> 
> type TPole=array of integer;
> 
> function Test(var A:array of integer):TPole;
> var i:integer;
> begin
>  SetLength(Result,Length(A));
>  for i:=Low(A) to High(A) do
>  begin
>   Result[i]:=A[i]*2;
>   A[i]:=A[i]*5;
>  end;
> end;
> 
> var Pole:array [20..22] of integer;
>       DynPole,RDP:TPole;
> begin
>  Pole[20]:=1;
>  ...
>  RDP:=Test(Pole);
>  ...
>  SetLength(DynPole,2);
>  DynPole[0]:=2;
>  ...
>  RDP:=Test(DynPole);
>   ...
> end; 
> 
> _______________________________________________
> HW-list mailing list  -  sponsored by www.HW.cz
> Hw-list@list.hw.cz
> http://list.hw.cz/mailman/listinfo/hw-list
>