Richedit line insertion error

← →
ESergey (2003-04-27 11:33) [0]

Почему этот код вызывает исключительную ситуацию "Richedit line insertion error"?

...
Var
Strs:TStrings;
begin
if OpenDialog.Execute then
begin
Strs:= TStringList.Create;
Strs.LoadFromFile(OpenDialog.FileName);
RichEdit1.Lines.Assign(Strs);
end;
...

← →
Palladin © (2003-04-27 12:13) [1]

ну вот
копая исходники (за тебя между прочим) выяснилось что класс EOutOfResources
исключение генерируется в этой строке
if RichEdit.SelStart <> (Selection.cpMax + Length(Str)) then
raise EOutOfResources.Create(sRichEditInsertError);

делай выводы
ComCrtls.pas 10932

Richedit line insertion error Найти похожие ветки