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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.06.2017, 16:53   #1
Alina266
Пользователь
 
Регистрация: 19.03.2017
Сообщений: 10
По умолчанию Как расписать слово на несколько едитов?

Есть слово, допустим "роса" , и есть 4 едита, как записать слово, по одной букве в каждый едит?
Alina266 вне форума Ответить с цитированием
Старый 18.06.2017, 17:15   #2
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
По умолчанию

Самое банальное
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
begin
  s := 'роса';

  Edit1.Text := Copy(s, 1, 1);
  Edit2.Text := Copy(s, 2, 1);
  Edit3.Text := Copy(s, 3, 1);
  Edit4.Text := Copy(s, 4, 1);
end;
Shouldercannon вне форума Ответить с цитированием
Старый 18.06.2017, 17:23   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i:integer;
begin
   s:='роса';
   For i:=1 to Length(s) do
      TEdit(FindComponent('Edit'+IntToStr(i))).Text:=s[i];
end;
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 18.06.2017, 19:46   #4
Alina266
Пользователь
 
Регистрация: 19.03.2017
Сообщений: 10
По умолчанию

Спасибо!
Alina266 вне форума Ответить с цитированием
Старый 19.06.2017, 02:49   #5
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как расписать пример? fs_x Паскаль, Turbo Pascal, PascalABC.NET 1 16.10.2012 11:57
Как расписать пример на DevC++? fs_x Общие вопросы C/C++ 1 16.10.2012 08:00
нахождение едитов равных нулю kta87 Общие вопросы Delphi 5 25.01.2012 20:18
1) как перетащить несколько модулей с одной книги на другую одним скопом? 2)можно ли открыть несколько книг сразу? БАХТИ Microsoft Office Excel 17 26.09.2011 18:11
Как вводить полные инициалы в массив структур и как при выводе не отображать слово none несколько раз? -ushёl- Помощь студентам 2 02.01.2010 14:13