Graphe d'une fonction

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 function MakeStr(const Args: array of const): string; 
// Exemple, en partant de la fonction MakeStr ci-dessus, l'instruction 
//    S := MakeStr(['Test ', 100, '-', True, '-', 3.14159]); 
//   génère la chaîne suivante :  'Test 100-T-3.14159' 
const 
 BoolChars: array[Boolean] of Char = ('F', 'T'); 
var 
 I: Integer; 
begin 
 Result := ''; 
 for I := 0 to High(Args) do 
   with Args[I] do 
     case VType of 
       vtInteger:    Result := Result + IntToStr(VInteger); 
       vtBoolean:    Result := Result + BoolChars[VBoolean]; 
       vtChar:       Result := Result + VChar; 
       vtExtended:   Result := Result + FloatToStr(VExtended^); 
       vtString:     Result := Result + VString^; 
       vtPChar:      Result := Result + VPChar; 
       vtObject:     Result := Result + VObject.ClassName; 
       vtClass:      Result := Result + VClass.ClassName; 
       vtAnsiString: Result := Result + string(VAnsiString); 
       vtCurrency:   Result := Result + CurrToStr(VCurrency^); 
       vtVariant:    Result := Result + string(VVariant^); 
     end; 
end;