Работа функции

@elimpion · Регистрация: 19.01.2018

Author24 — интернет-сервис помощи студентам

При компиляции проекта возникают ошибки "не объявлен индикатор"

хотя все объявлено. Что не так?

Delphi

function TfrmEditCardProduct.StoreCardCheckComboBox(ctrl: TCheckedComboBox; attr: string): boolean;
var aStr : string;
    i    : integer;
begin
  aStr := '';
  result := true;
  with ctrl do begin
    for i := 1 to Items.Count do begin
      if Checked[i-1] then
        aStr := aStr + Trim(GetWord(1,Items[i-1],['-']))+',';
    end;
  end;
  if aStr <> '' then
    delete(aStr,Length(aStr),1);
  result := SetAttrValue(attr,IntToStr(FCardProductID),aStr,null,null);
end;

@krapotkin · 20.06.2018, 10:15

последняя строчка Incompatible Types говорит нам, что что-то у вас не так объявлено и не является тем, чем кажется

@krapotkin 5775 / 4519 / 1429 Регистрация: 14.04.2014 Сообщений: 20,139 Записей в блоге: 20
	20.06.2018, 10:15	2
	последняя строчка Incompatible Types говорит нам, что что-то у вас не так объявлено и не является тем, чем кажется 0

Опции темы