Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 28, средняя оценка - 4.64
Paskal1
9 / 9 / 0
Регистрация: 22.10.2010
Сообщений: 95
#1

Как в конец строки добавить несколько символов подчеркивания? - Delphi

28.10.2010, 17:53. Просмотров 4105. Ответов 6
Метки нет (Все метки)

Прет всем ребята подскажите как
Есть строка с определенной длинной
есть едит
нужно чтобы после нажатия кнопки щиталось количество символов в эдите и добовляло символ подчеркивание допустим до 30
Ну типа так
до
Вася2
после
Вася2___________________________
Я делал в цикле но я заменяю текст а не добовляю и только один символ
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.10.2010, 17:53
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Как в конец строки добавить несколько символов подчеркивания? (Delphi):

Как в конец уже имеющейся строки Memo добавить несколько символов? - Delphi
Народ подскажите пожалуйста, как в Memo в конец уже имеющейся строки добавить несколько символов.

Добавить в начало и в конец строки минимально возможное одинаковое количество букв A, чтобы ее длина стала как минимум в 2 раза больше - Delphi
Вводится строка. Добавить ей в начало и в конец минимально возможное одинаковое количество букв A, чтобы ее длина стала как минимум в 2...

Удалить из файла две первые и две последние строки и добавить строки с экрана в начало и конец файла - Delphi
Задание: Создать текстовый файл. Заполнить его произвольным числом строк. Удалить из файла две первые и две последние строки и...

Файл: Добавить в конец каждой строки файла Name1 соответствующую строку файла Name2. - Delphi
В общем я только начал разбираться с Delphi и пере до мной возникла такая проблема: Даны два текстовых файла с именами Name1 и Name2....

RichEdit: выделить жирным первые несколько символов каждой новой строки - Delphi
Доброго времени суток! Подскажите, как в RichEdit'e организовать, например выделение жирным шрифтом первых 5 символов ? Самый...

как в мемо в конец каждой строки вставить слово - Delphi
Подскажите пожалуйста как в memo в конец каждой строки вставить определенное слово Написал такой код но не чего не выходит: var ...

6
Bazhal
21 / 21 / 1
Регистрация: 27.07.2010
Сообщений: 71
28.10.2010, 18:03 #2
Delphi
1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var
  sTempStr : AnsiString;
begin
  sTempStr := Edit1.Text;
  while ( length( sTempStr ) < 30 ) do sTempStr := sTempStr + '_';
  Edit1.Text := sTempStr;
end;
Допустим, так.
1
Sanprof
95 / 95 / 3
Регистрация: 28.01.2008
Сообщений: 426
28.10.2010, 18:05 #3
Я так понимаю у Edit-a Font стоит подчеркнутый??? Тогда вот так.
Delphi
1
2
3
4
5
6
7
8
var
  lng: Integer;
  i: integer;
begin
  lng := Length(Edit2.Text);
  if Lng < 30 then
  for i := 0 to 30 - Length(Edit1.Text) - 1 do
    Edit2.Text := Edit2.Text + ' ';
1
Paskal1
9 / 9 / 0
Регистрация: 22.10.2010
Сообщений: 95
28.10.2010, 18:08  [ТС] #4
Спасибо всем вопрос решен!
0
EDIsaev
4 / 4 / 0
Регистрация: 27.03.2012
Сообщений: 136
07.10.2016, 12:22 #5
Delphi
1
Edit2.Text:=Edit2.Text+StringOfChar(' ', 30-Length(Edit2.Text));
0
D1973
07.10.2016, 13:48
  #6

Не по теме:

EDIsaev, 6 лет теме, что за некрофилия?

0
MyEternity
09.10.2016, 11:06     Как в конец строки добавить несколько символов подчеркивания?
  #7

Не по теме:

Цитата Сообщение от D1973 Посмотреть сообщение
EDIsaev, 6 лет теме, что за некрофилия?
Все просто. Посты набивает.

0
09.10.2016, 11:06
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.10.2016, 11:06
Привет! Вот еще темы с ответами:

Как найти начало и конец строки файла (текстового) - Delphi
Здравствуйте! Как найти начало и конец строки файла (текстового)!??? Спасибо

Как в комбобоксе программно установить курсор в конец строки? - Delphi
Добрый день! Подскажите пожалуйста, как в комбобоксе программно установить курсор в конец строки? Можно ли это сделать? Добавлено...

Даны три строки символов. Сформировать четвёртую строку по правилу: она должна состоять из последнего символа первой строки, трёх первых символов втор - Delphi
Я не знаю как написать эти две программы 1.Даны три строки символов. Сформировать четвёртую строку по правилу: она должна состоять из...

Добавить букву в конец нетипизированного файла - Delphi
Здравствуйте.Такой вопрос.Как добавить букву в конец НЕтипизированного файла. С ними ведь можно делать следующее: просмотреть и добавить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru