Новые книги
 Это первое руководство по маркетингу в социальных сетях от российского практика. Книга написана на примерах из опыта продвижения в рунете более 700 компаний и брендов.Здесь вы найдете минимум теории и максимум практической информации – кейсы, примеры, пошаговые алгоритмы работы, четкие рекомендации о том, как продвигать ваш бизнес в социальных сетях: готовить и проводить эффективные SMM-кампании, оценивать их результаты, увеличивать продажи с помощью SMM-стратегий. Большую практическую ценность представляет рассказ автора об особенностях продвижения в отечественном интернет-пространстве, где ведущей социальной сетью является «ВКонтакте», а поведение пользователей Twitter и Facebook отличаются рядом характерных черт. Для руководителей и менеджеров компаний, маркетологов и рекламистов. |
 Impact Mapping – практическое пособие по картам влияния, простому, но очень эффективному методу разработки программного обеспечения. Он помогает еще на стадии стратегического планирования организовать сотрудничество различных специалистов и в результате создавать эффективные программные продукты. |
Вопрос и Ответ 29
Вопросы и Ответы
29. Как преобразовать в текст содержимое переменных любого типа, причем, тип и их количество заранее не известно?
Во первых, необходимо в функцию передавать открытый массив, чтобы обеспечить передачу любого количества разнотипных переменных. Во вторых, проверять тип каждой полученной переменной и преобразовывать ее в текстовую строку функцией, предназначенной конкретно для этого типа.
В примере ниже приведен алгоритм преобразования наиболее часто используемых типов.
Пример:
............
{Функция
преобразования разнотипных данных в строку} i:
Integer; BEGIN Result
:= ''; WITH
TVarRec(Value[i]) DO BEGIN CASE
VType OF vtInteger
: S := IntToStr(VInteger); END; END; END; ............ {Пример
использование функции AllToStr} a
:= 10; b := 20; end; ............
FUNCTION TForm1.AllToStr(CONST Value: ARRAY OF CONST):
STRING;
CONST BString: ARRAY [Boolean] OF STRING = ('False',
'True');
VAR
S: STRING;
FOR i := Low(Value) TO High(Value) DO
vtBoolean : S := BString[VBoolean];
vtChar : S := VChar;
vtExtended : S := FloatToStr(VExtended^);
vtString : S := VString^;
vtPointer : S := IntToHex(LongInt(VPointer), 8);
vtPChar : S := StrPas(VPChar);
vtObject : S := vObject.ClassName;
vtClass : S := vClass.ClassName;
AppendStr(Result, S);
procedure TForm1.Button1Click(Sender: TObject);
VAR a, b: Integer;
begin
Label1.Caption := AllToStr([ a, '+', b, '=', a+b, #9, a,
'/', b, '=', a/b ]);
...предыдущая страница следующая...
оглавление