TMemo.Insert(0,SomeString) AV in certain conditions
Original Reporter info from Mantis: Anna
-
Reporter name:
Original Reporter info from Mantis: Anna
- Reporter name:
Description:
SigSeg error.
Steps to reproduce:
Add on form button and write in onClick handler and run:
procedure TForm1.Button1Click(Sender: TObject);
var
memo1,
memo2:tmemo;
begin
memo1:=tmemo.create(nil); memo1.Lines.Clear;
memo2:=tmemo.create(nil); memo2.Lines.Clear;
memo1.Lines.Add('aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
memo1.Lines.Add('aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
memo1.Lines.Add('aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
memo1.Lines.Add('aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
memo2.Lines.Insert(0,'1');
end;
Additional information:
Adding memo1 lines overwrite some memory , which memo2 uses.
Lazarus: Lazarus-1.1-42006-fpc-2.7.1-20130707-win32.exe
Mantis conversion info:
- Mantis ID: 24718
- OS: WinXP Pro SP3 Russian
- OS Build: 5.1.2600
- Build: Lazarus-1.1-42006-fpc-2.7.1-2013
- Platform: x86
- Version: 1.1 (SVN)
- Fixed in revision: 42032 (#d7840abe)
- Monitored by: » @flyingsheep (Bart Broersma)