Перейти к содержанию
СофтФорум - всё о компьютерах и не только

Как взять первый символ слова


Рекомендуемые сообщения

Нужно в Edit вставить первую букву слова из другого edit, типа что-то вот:

procedure TForm2.Edit1Change(Sender: TObject);

begin

Form2.Edit9.Text:=Form2.Edit1.Text

end;

но нужно только первую букву!

Ссылка на комментарий
Поделиться на другие сайты

IMHO, правильно делать так:

Edit9.Text=substr(Edit1.Text,0,1);

Синтаксик:

substr(String, startposition, length)

Ссылка на комментарий
Поделиться на другие сайты

Lex

Тип String это массив символов, чтобы выбрать один символ использовать доп. функции не имеет смысла, гораздо проще выбрать так, как предложил Kuzmich

procedure TForm2.Edit1Change(Sender: TObject);

begin

if Not Edit1.Text.IsEmpty()

Edit9.Text:=Edit1.Text[1];

end;

Изменено пользователем dmc
Ссылка на комментарий
Поделиться на другие сайты

А substr в делфи нету! Что за место етого?

Простите меня, в Delphi ето делають с Copy(), не с substr()

Синтаксис тоже самий

Ссылка на комментарий
Поделиться на другие сайты

Darhazer

:) У человека вполне конкретный вопрос, Kuzmich ему дал наиболее лаконичный и правильный ответ. Любопытно, почему использовать Copy правильней?

Ссылка на комментарий
Поделиться на другие сайты

Например если ему будет нужно не первая буква, а первие три...

Ссылка на комментарий
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...