how to do things like procedure foo(A: string) is bar: string := A; begin; ...;end;

[Mehdi Saada <00120260a@gmail.com>]

DATA being strings components of the records LEFT and RIGHT, is the expression (LEFT.DATA & RIGHT.DATA)'Range possible ?
I try to implement something like
procedure foo(A: string) is
   bar: string := A;
begin
...
end;
but A'Length isn't known at compilation. In fact I want to use bar only like a macro, to avoid puting things like LEFT.DATA & RIGHT.DATA everywhere and not being able to use attributes (Range, length & co).