code editor lockup.
Original Reporter info from Mantis: parcel
-
Reporter name: Do-wan Kim
Original Reporter info from Mantis: parcel
- Reporter name: Do-wan Kim
Description:
below text to copy and paste code editor, lockup and no response.
procedure TForm1.EditExportSelExecute(Sender: TObject);
var
i,j: Integer;
newPo : TPoList;
itemp,etemp:TPoItem;
begin
if Assigned(mPo) then begin
//SaveDialogExport.FileName:=ExtractFileName(FileSaveAs1.Dialog.FileName);
if SaveDialogExport.Execute then
if ListBoxPO.Count>0 then begin
newPo:=TPoList.Create;
try
with newPo.AddItem do begin
Add('msgid ""');
Add('msgstr ""');
Add('"Export Selections from : '+ExtractFileName(FileOpen1.Dialog.FileName)+'"');
end;
for i:=0 to ListBoxPO.Count-1 do begin
itemp:=TPoItem(ListBoxPO.Items.Objects[i]);
if itemp<>nil then
if ListBoxPO.Selected[i] then begin
etemp:=newPo.AddItem;
//try
if itemp.Count>0 then
for j:=0 to itemp.Count-1 do begin
etemp.Add(itemp.StrItem[j]);
end;
(*
except
newPo.Delete(newPo.IndexOf(etemp));
end;
*)
end;
end;
try
newPo.Save(SaveDialogExport.FileName);
MRUManager1.Add(SaveDialogExport.FileName,0);
except
on e:exception do ShowMessage(e.Message);
end;
finally
newPo.Free;
end;
end;
end;
end;
Steps to reproduce:
just copy & paste code editor above text.
Mantis conversion info:
- Mantis ID: 25305
- OS: Windows
- OS Build: 7
- Build: 43419
- Platform: x86
- Version: 1.3 (SVN)
- Fixed in version: 1.4
- Fixed in revision: 43421 (#7187c047)
- Target version: 1.4