Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Naidjel
4 / 4 / 0
Регистрация: 20.11.2011
Сообщений: 36
1

Вставка текста

02.12.2011, 00:50. Просмотров 728. Ответов 4
Метки нет (Все метки)

Пользователь вводит в едит число и в ричедит должна выводится строка, которая будет повторяться столько раз сколько пользователь написал. Не подскажите как это написать?
Пишу так:
Delphi
1
2
3
4
5
6
var str, stol:Integer;
begin
str:=StrToInt(Edit1.text);
stol:=StrToInt(Edit2.text);
RichEdit1.SelText:=str*('<td>'+#1013+'</tr>');
end;
но говорят что типы несовместимы, стринг и интежер)) а как это правильно написать?
 Комментарий модератора 
Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Delphi следует выделить этот код и на панели редактирования сообщения нажать кнопку: "DELPHI".
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2011, 00:50
Ответы с готовыми решениями:

Вставка текста
В окне есть чат,который открывается с помощью кнопки ф6 keybd_event(VK_F6, 0, 0, 0);...

Вставка текста из файла
Немогу найти ошибку, не хочет брать отдельно каждую строку из файла и записывать в PansiChar, после...

Вставка определенного текста
Например нужно мне вставить вот этот текст &lt;b&gt;&lt;/b&gt; , но что бы написанный посередине текст...

Вставка текста в активный элемент
В общем нужно организовать вставку текста в активный элемент другого прилажения. ситуация такая:...

Вставка текста через кнопку
Всем доброго времени суток. Нужна помощь в написании кода. Имеется окно результатов StringGrid3...

4
CRazs
19 / 15 / 7
Регистрация: 23.09.2010
Сообщений: 158
02.12.2011, 10:41 2
Цитата Сообщение от Naidjel Посмотреть сообщение
Пользователь вводит в едит число и в ричедит должна выводится строка, которая будет повторяться столько раз сколько пользователь написал. Не подскажите как это написать?
Пишу так:

var str, stol:Integer;
begin
str:=StrToInt(Edit1.text);
stol:=StrToInt(Edit2.text);
RichEdit1.SelText:=str*('<td>'+#1013+'</tr>');
end;

но говорят что типы несовместимы, стринг и интежер)) а как это правильно написать?
str() - переводит из интежера в стринг,

попробуй RichEdit1.SelText:='<td>'+#1013+'</tr>';
0
Naidjel
4 / 4 / 0
Регистрация: 20.11.2011
Сообщений: 36
02.12.2011, 20:53  [ТС] 3
в этом то и проблема, как мне тогда вывести эту фразу столько раз, сколько пользователь просит????
0
HeRo!N
11 / 11 / 2
Регистрация: 01.10.2010
Сообщений: 139
02.12.2011, 21:03 4
Delphi
1
2
3
4
5
6
7
8
9
10
var stol,i:Integer;
     s:string
begin
RichEdit1.TExt:='';
s:=Edit1.text; //Тут сама строка
stol:=StrToInt(Edit2.text); //Число, сколько раз нужно повторить строку
for i:=1 to stol do
RichEdit1.TExt:=RichEdit1.TExt+s;
 
end;
Если я правильно понял условие, то так.
0
Naidjel
4 / 4 / 0
Регистрация: 20.11.2011
Сообщений: 36
02.12.2011, 22:20  [ТС] 5
извините, я неточно объяснил. есть 2 едита. пользователь вводит в них 2 числа n и m. слова которые надо ввести описаны в коде. причем в середину n раз повторяющегося слова надо вставить m раз другое.

Добавлено через 24 минуты
Все, я уже сделал)) получился вот такой кодик
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button2Click(Sender: TObject);    //ïîñòðîéêГ* ГІГ*áëèöû
var i, i1, stro, stol:Integer;   t:string;
begin
stro:=StrToInt(Edit1.text);
stol:=StrToInt(Edit2.text);
      RichEdit1.SetFocus;
RichEdit1.SelText:=('<table>');
for i:=1 to stro do
begin
t:=('<tr>');
RichEdit1.SelText:=('<tr>');
for  i1:=1 to stol do  begin
 RichEdit1.SelText:=('<td>'+'</td>');
 end;
RichEdit1.SelText:=('</tr>');
end;
end;
0
02.12.2011, 22:20
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2011, 22:20

Вставка текста перед написанным текстом
Если честно, вообще не понимаю как это реализовать. Например написал я слово &quot;хороший&quot; нажал Enter...

Корректная вставка текста из буфера обмена
Те, кто уже сталкивался с буфером обмена в Дэльфи 7 дожен представлять себе эту проблему: на входе...

Вырезание, Копирование, Вставка текста в Дельфи 7
Есть программа, текстовый редактор. Есть меню, состоит из : &quot;Файл&quot;,&quot;Исправления&quot;,&quot;Окна&quot; и т.д. В...


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

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

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