| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поиск

SpyX ©   (2003-01-18 21:56:00) 

Возник вопрос. Допустим у меня есть массив:
mas : array[1..10] of string;
и например
mas[3] := "delphimastak"
Как мне организовать поиск, по...ну например "as", чтобы возвратилось значение 3?

---

Николай Быков   (2003-01-18 22:21:00) [1]

ааа!! вон вы про что.
а я подмал, что не "as", а as

---

Yuri-7   (2003-01-18 22:20:00) [2]

for i:=1 to 10 do
begin
if Pos(mas[i],"as") <> 0 then
Result:=i;
break;
end;

---

Николай Быков   (2003-01-18 22:16:00) [3]

а без as никак?
вот есть простой способ

type mas=array[1..10]of string;
...................
function find(x:mas; s:string):integer;
var
i:integer;
begin
for i:=1 to 10 do
begin
if x[i]=s then find:=i;
exit;
end;
end;



---

Наверх