Как переместить курсор в конец только что открытого файла, т.е. дописать текст в конец?
Falk0ner, вс, 06/07/2008 - 15:35.
Как переместить курсор в конец только что открытого файла, т.е. дописать текст в конец? Используем объект Selection. Объект Selection имеет поля Start и End. Эти поля имеют тип Integer и содержат номера символов начальной и конечной позиции выделенного текста. Если выделить весь документ, а затем считать значения этих полей, то сможем определить объем документа как количество символов. Если в поле Start объекта Selection записать значение из поля End этого же объекта, то курсор будет перемещен в конец документа. Используем это обстоятельство для перемещения курсора в конец документа. В Delphi это выглядит следующим образом:
Function EndOfDoc:boolean;
begin
EndOfDoc:=true;
try
W.ActiveDocument.Range.Select;
W.Selection.Start:=W.Selection.End;
except
EndOfDoc:=false;
end;
End;
begin
EndOfDoc:=true;
try
W.ActiveDocument.Range.Select;
W.Selection.Start:=W.Selection.End;
except
EndOfDoc:=false;
end;
End;
Отправить комментарий