Функция Format. Проблема, однако...

← →
BlackTiger (2003-05-02 19:51) [0]

Есть такая замечательная функция Format. Принимает она два параметра - строку-шаблон (а ля C) и массив параметров. Все дело в том, что этот массив типа array of TVarRec.
А я хочу предварительно сформаровать массив моих значений и только потом передать его этой функции.

Т.е. вместо

Format("%-20s %-50s %15.2f",["aaa","asdasdasd",568.25])

написать что-то вроде

var MyArray: array of TVarRec; begin //... MyArray[0] := MyTable.Fields[0].AsString; // "aaa" MyArray[1] := MyTable.Fields[0].AsString; // "asdasdasd" MyArray[2] := MyTable.Fields[0].AsFloat; // 568.25 //... ResultStr := Format("%-20s %-50s %15.2f",MyArray); end;
Проблема вылезла в типах данных. При попытке сделать
MyArray[0] := TVarRec(MyTable.Fields[0].AsString); ругается на невозможность такого преобразования ( invalid typecast).

Можно ли это обойти? Или может есть аналог, работающий с "array of variant" (в моем случае, данные вообще OleVariant)?

← →
vuk © (2003-05-02 20:39) [1]

Попробовать сделать можно, но я не до конца уверен, что будет правильная работа со строками (подсчет ссылок).

В принципе, можно заставить работать Ваш вариант. Для этого нужно точно знать как для каждого типа данных производится упаковка в TVarRec. В Вашем примере нужно писать не

MyArray[2] := MyTable.Fields[0].AsFloat;

а, например, так:

MyArray[2].VExtended := MyTable.Fields[0].AsFloat;

Можно также сделать следующее:

type TVarRecArray = array of TVarRec; function VarRecArray(const Args : array of const ) : TVarRecArray; var i : integer; begin SetLength(Result, length(Args)); for i := Low(Args) to High(Args) do Result[i] := Args[i]; end; function Test : string var Args : TVarRecArray; begin Args := VarRecArray([123,"123"]); ResultStr := Format("%d, %s", Args); end;

← →
evvcom © (2003-05-04 00:55) [2]

Во-первых, в TVarRec может храниться любой тип данных, поэтому надо конкретизировать, какой тип хранится в данный момент, например:
MyArray[0].VType := vtExtended
И во-вторых, не надо забывать, что не для каждого типа в поле данных записи TVarRec хранится значение, очень часто там хранятся указатели. Например для vtExtended:
MyArray[0].VExtended := @Extended(MyTable.Fields[0].AsFloat) // Преобразование к Extended обязательно! Так как Extended и Double занимают разное количество байт.

Естественно не надо забывать про SetLength для динамических массивов и научиться пользоваться кроме F1 еще и "Find Declaration"

← →
vuk © (2003-05-04 02:51) [3]

to evvcom:

>MyArray[0].VExtended := @Extended(MyTable.Fields[0].AsFloat)

А вот с этим, если не ошибаюсь, компилятор вообще куда подальше пошлёт. Адрес-то чей брать хотите?

> А вот с этим, если не ошибаюсь, компилятор вообще куда подальше
> пошлёт. Адрес-то чей брать хотите?

Не буду спорить, возможно. Скорее всего да, компилятор пошлет. AsFloat вроде метод. Значит сделать присваивание локальному Extended, его адрес и присваивать. Подобные мелочи быстро выявляются после F9, главное указать идею.

Функция Format. Проблема, однако... Найти похожие ветки