Текущий архив: 2011.05.29;
Скачать: CL | DM;
Вниз
Напомните как можно (?) перечислить тип array of в параметр Найти похожие ветки
← →
Гость (2011-02-16 15:11) [0]TColGrid = record
sField: string;
sNameC: string;
Width: Integer;
end;
function TfrmEditPrice.ToColGrid(sField, sNameC: string; Width: Integer): TColGrid;
begin
Result.sField := sField;
Result.sNameC := sNameC;
Result.Width := Width;
end;
procedure GridView(Col: array of TColGrid);
сейчас сделал
GridView([
ToColGrid( "REAL_NAME", "НАИМЕНОВАНИЕ", 200),
ToColGrid( "NORMAL_NAME", "НОРМАЛЬ", 200),
ToColGrid( "LCURRENCY", "Ед.Изм.", 80),
ToColGrid( "LMEASURE", "Валюта", 80),
ToColGrid( "LTYPEOFFER", "ТипПредл", 80),
ToColGrid( "ADDRESS", "Адрес", 350)
]);
а без ToColGrid( вызвать GridView можно?
← →
TColGrid (2011-02-16 15:23) [1]const
ColGridValues: array[0..1] of TColGrid = (
(sField: "REAL_NAME"; sNameC: "НАИМЕНОВАНИЕ"; Width: 200),
(sField: "NORMAL_NAME"; sNameC: "НОРМАЛЬ"; Width: 200));
// и т.д.
begin
GridView(ColGridValues);
← →
Гость (2011-02-17 10:22) [2]спасибо
Страницы: 1 вся ветка
Текущий архив: 2011.05.29;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.008 c