Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.02.2017, 21:27   #1
lich king
Пользователь
 
Регистрация: 19.02.2017
Сообщений: 19
По умолчанию перевод каретки через определеное количество символов

перевод коретки через определеное количество символов как перевести коретку через некоторое количество симвлов.

Код:
 procedure TForm1.N801Click(Sender: TObject);
var
a,b,I:integer;
 S,sf:string;
begin
 a:=0;
 while b=length(form1.RichEdit1.Text) do
   begin
   b:=b+1;
if AnsiPos(#10#13,RichEdit1.Text)=0 then
 begin
 a:=a+1;
 label1.Caption:=a.ToString;
 end;

end;

end;

Последний раз редактировалось lich king; 19.02.2017 в 21:30.
lich king вне форума Ответить с цитированием
Старый 20.02.2017, 02:56   #2
kropotkina-alice
Форумчанин
 
Аватар для kropotkina-alice
 
Регистрация: 27.10.2014
Сообщений: 594
По умолчанию

Перевод кАретки:
Код:
with RichEdit do 
begin
SelLength := 0;
SelStart := (указать новую позицию)
//SelStart := Length(Text); если в конец текста
Perform(EM_SCROLLCARET,0,0);
end;
kropotkina-alice вне форума Ответить с цитированием
Старый 20.02.2017, 07:50   #3
lich king
Пользователь
 
Регистрация: 19.02.2017
Сообщений: 19
По умолчанию

Цитата:
Сообщение от kropotkina-alice Посмотреть сообщение
Перевод кАретки:
Код:
with RichEdit do 
begin
SelLength := 0;
SelStart := (указать новую позицию)
//SelStart := Length(Text); если в конец текста
Perform(EM_SCROLLCARET,0,0);
end;
Спасибо, но только я наверно препутал тут мне нужно что бы через определенное количество символов втавлялось #10#13 но кода я посмотрел код то я подумал что перемещая коретку можно вставлять #10#13 т.е. туда где каретка вставлять #10#13
lich king вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вводится последовательность символов, конец ввода -ESC(код#27). Определить количество букв "b". помогите сделать через string. kolbaskin Паскаль, Turbo Pascal, PascalABC.NET 2 30.12.2013 09:12
Перевод каретки при чтении строк из файла MartinSeptim Общие вопросы C/C++ 1 02.04.2012 00:19
перевод каретки casper0094 Помощь студентам 0 13.03.2012 17:07
Что делать, если количество символов в билдере не соответствует количеству символов в билде? BoT_T Общие вопросы Delphi 0 16.11.2010 10:42
количество цифр и количество символов до первой гласной буквы 111111 Общие вопросы C/C++ 2 22.12.2008 12:15