Работа с Edit

[Шура]

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

[фЁдОр]

очевидно надо циклом перебрать, что в Edit и провести проверку на букву "м".

[Alter]

Edit1.Text - тип String, отсюда получаем что со свойством можно то же самое делать a := Edit1.Text[1] будет первая буква. Должно натолкнуть на размышления.

[Kashp]

Сообщение от Шура

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

На форме два edit'a и кнопка .

procedure TForm1.Button1Click(Sender: TObject);
var
 s, s2: string;
 c, c2: char;
 i: integer;
begin
 s:= Edit1.Text;
 s2:= Edit2.Text;
 for i:= 1 to Length(Edit1.Text) do
 begin
  c:=s[i]; // берем символ из 1-го слова (тобишь из 1-го edit'a)
  c2:=s2[i]; // берем символ из 2-го слова (тобишь из 2-го edit'a)
  if c=c2 then    // сравниваем символы, если они совпадают, тогда думаем дальше ;) 
 end;

end;

[Шура]

бАльшое СПАСИБО ВСЕМ