[Oleg]

У меня такой вопрос, например дана строка, мне нужно узнать какой номер(индекс) имеет определенная буква в строке. Что-то искал, но не нашел как это узнать, например:

Код:

var
s:string;
Numb:integer;
begin
s:='abcdefghijklmnopqrstuvwxyz';
Numb:= порядковый номер 'd' в s;

[<<D>>]

Код:

function getindexofletter(letter,fromstring:string):integer;
var i:integer;
begin
result:=0;
for i:=1 to length(fromstring) do
begin
if copy(fromstring,i,1)=letter then
result:=i;
end;
end;

.....
var
s:string;
Numb:integer;
begin
s:='abcdefghijklmnopqrstuvwxyz';
numb:=getindexofletter('a',s);

[Sharky]

Тебе бы подошел символьный массив: char

[Oleg]

Сообщение от Sharky

Тебе бы подошел символьный массив: char

Спасибо за функцию.
Если можешь, напиши пожалуйста пример как узнать индекс в массиве определенного символа.

[Oleg]

Как узнать существует ли например в строке "test" 3 символ, т.е. "s".

[Burka]

Во первых есть функция pos(substr,str):integer; которая ищет подстроку в строке и возвр номер(позицию)

Как узнать существует ли например в строке "test" 3 символ, т.е. "s".

а с такими вопросами на форум лучше не заходиь.

Код:

str:string[255];

if str[3]='s' then здесь трейтий символ S

[<<D>>]

Код:

function letterexists(letter,fromstring:string;number:integer):boolean;
begin
result:=false;
if copy(fromstring,number,1)=letter then result:=true;
end;

[Oleg]

Сообщение от Burka

Код:

if str[3]='s' then здесь трейтий символ S

Вы не правильно поняли вопрос или я задал некоректно. Мне нужно узнать есть ли вообще символ 3, а не какой именно. Т.К. если проверять каждый символ таким методом, то это ого-го.

[Oleg]

Спасибо за все ответы !