Текущий архив: 2009.12.27;
Скачать: CL | DM;
Вниз
AddObject Найти похожие ветки
← →
1234567890 (2009-11-06 12:43) [0]В TStringList нужно хранить строковое и числовое значения. К примеру, делаю так:
procedure TForm1.Button1Click(Sender: TObject);
var
Num: Integer;
begin
Num := 1;
Memo1.Lines.AddObject("A", TObject(Num));
ShowMessage(IntToStr(Integer(Memo1.Lines.Objects[0])));
end;
Почему не сохраняется числовое значение. ShowMessage возвращает 0
← →
Amoeba © (2009-11-06 12:47) [1]Потому, что Memo.Lines, являясь наследником TStrings, не является таковым по отношению к TStringList
← →
Anatoly Podgoretsky © (2009-11-06 12:53) [2]> 1234567890 (06.11.2009 12:43:00) [0]
AddObject это функция, но ты почему то считаешь, что индекс 0
← →
1234567890 (2009-11-06 12:58) [3]Все разобрался, спасибо!!!
← →
Anatoly Podgoretsky © (2009-11-06 13:15) [4]> 1234567890 (06.11.2009 12:58:03) [3]
А у нас принято приводить решение, халявщиков у нас не любят.
Страницы: 1 вся ветка
Текущий архив: 2009.12.27;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.011 c
