
27.05.2013, 12:11
|
 |
Профессионал
|
|
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
|
|
Цитата:
Сообщение от serega6531
Как именно его найти?
|
В цикле естественно:
Код:
var
i: Char;
begin
for i := Low(symbols) to High(symbols) do
begin
if symbols[i] = Word[1] then ShowMessage(symbols2[i]); // Ура! Нашли!
.....
|