Nope it dosen't work the way I want.
This does though.
Just requires a little extra work and takes longer tho :/.
SCAR Code:
Program New;
type
variable = record
name : string;
contents : variant;
end;
var
variables : array [0..1] of variable;
procedure SetVars;
begin
variables[0].name := 'var1';
variables[0].contents := 'var1contentsbefore';
variables[1].name := 'var2';
variables[1].contents := 'var2contentsbefore';
end;
procedure SetVar(name : string; towhat : variant);
var
i : integer;
begin
for i := 0 to high(variables) do
begin
if variables[i].name = name then
begin
writeln('Before: ' + variables[i].contents);
variables[i].contents := towhat;
writeln('After: ' + variables[i].contents);
exit;
end;
end;
end;
begin
setvars;
setvar('var2', 'var2contentsafter');
writeln('');
setvar('var1', 'var1contentsafter');
end.