2015-12-28 14:25:15 +03:00
|
|
|
|
// Создание функции Concat с переменным числом параметров
|
2015-05-14 22:35:07 +03:00
|
|
|
|
|
|
|
|
|
|
function Concat(params strs: array of string): string;
|
|
|
|
|
|
begin
|
|
|
|
|
|
var sb := new System.Text.StringBuilder;
|
|
|
|
|
|
foreach x: string in strs do
|
|
|
|
|
|
sb.Append(x);
|
|
|
|
|
|
Result := sb.ToString;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
|
Writeln(Concat('Pascal','ABC','.NET'));
|
|
|
|
|
|
end.
|
