TStrings implementation in combo objects - TObject not working
Original Reporter info from Mantis: ivansb
-
Reporter name:
Original Reporter info from Mantis: ivansb
- Reporter name:
Description:
Try some code like this...
procedure TfrmPrincipal.Memo1MouseDown(Sender: TOBject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
r:integer;
umObjeto:TObject;
umaLista:TStrings;
begin
Memo1.Lines.clear;
TStringList(Memo1.Lines).AddObject('13', TObject(13));
Memo1.lines.add('-'+InttoStr(Integer(TStringList(Memo1.Lines).Objects[0])));
TStringList(Memo1.Lines).Objects[0]:=TObject(14);
Memo1.lines.add('-'+InttoStr(Integer(TStringList(Memo1.Lines).Objects[0])));
umaLista:=TStringlist.create;
umaLista.AddObject('15', TObject(15));
Memo1.lines.add('--'+InttoStr(Integer(umaLista.objects[0])));
umaLista.Objects[0]:=TObject(16);
Memo1.lines.add('--'+InttoStr(Integer(umaLista.objects[0])));
end;
The result is
13
-0
-0
15
--15
--16
and not
13
-13
-14
15
--15
--16
as it should be.
Mantis conversion info:
- Mantis ID: 9366
- Version: 0.9.22
- Fixed in version: 1.4
- Fixed in revision: r48347 (#fe49ab66)
- Monitored by: » luizamerico (Luiz Americo)
- Target version: 1.4