Witam,
chciałbym przekazać tablicę jako parametr funkcji, a następnie zmienić wartości tej tablicy.
private
obrazWejsciowy : array of double;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
SetLength(obrazWejsciowy, 25);
WypelnijTablice(obrazWejsciowy);
showmessage(floattostr(obrazWejsciowy[1])); // TUTAJ POKAZUJE MI 0
end;
procedure TForm1.WypelnijTablice(Tablica: array of Double);
var i:integer;
begin
for I := 0 to length(Tablica)-1 do
begin
Tablica[i]:=-1;
end;
end;
Niestety dane nie zostają zmienione na wartości -1.
Nie wiem wogólę czy tak można ?
Proszę o pomoc.