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

[Lex]

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

procedure TForm2.Edit1Change(Sender: TObject);

begin

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

end;

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

[Kuzmich]

Form2.Edit1.Text[1]...

Попробуй так...

[Darhazer]

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

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

Синтаксик:

substr(String, startposition, length)

[Lex]

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

[dmc]

Lex

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

procedure TForm2.Edit1Change(Sender: TObject);

begin

if Not Edit1.Text.IsEmpty()

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

end;

Изменено 1 декабря, 2004 пользователем dmc

[Darhazer]

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

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

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

[Сергей Плоткин]

Darhazer

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

[Darhazer]

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