+m2+ ha scritto:
Si fa prima a fare qualcosa del genere
stringa:="p"+"i";
stringa:=stringa+"p"+"p"+"o";
Proprio così no perché il compilatore è abbastanza intelligente e ricompone le stringhe costanti!
Ma qualcosa del genere che preveda un calcolo, anche molto semplice, da eseguire runtime va bene. Esempio:
Function Costruisci:string;
Var
a, b, c, d, e : integer;
begin
a := 66;
b := 4;
c := 3;
d := a + a + a + b * 17 + b + c;
Result := IntToStr(d);
a := Ord('c');
b := Ord('i');
c := Ord('a');
d := Ord('o');
e := Ord('!');
Result := Result + chr(a -1) + chr(b -2)+ chr(c -3)+ chr(d -4)+ chr(e -5);
a := 4;
b := 79;
Result := Result + IntToStr(a*21) + IntToStr(b div 2) + '0' + IntToStr(b +3);
end; //Costruisci