[MOJO]

Нужен исходник программы для поиска определенной буквы в слове
или подскажите какие элементы использовать

[Pilot_Red]

функции для работы со строками в Delphi.......
Copy and paste in Google

[MOJO]

спс
будем пробовать

[Konrad]

а

PHP код:

pos( 


религия запрещает использовать?)

[Janom]

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

а

PHP код:

pos( 


религия запрещает использовать?)

мне запрещает))) я чем то на подобии того пользуюсь:

Код:

for i:= 1 to length(Str) do
    if Str[i]='$' then exit;

P.S. с этим сообщением я стал Новичком)

[Konrad]

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

мне запрещает))) я чем то на подобии того пользуюсь:

Код:

for i:= 1 to length(Str) do
    if Str[i]='$' then exit;

P.S. с этим сообщением я стал Новичком)

В том то и беда.
Развелось столько "самоучек", которые где-то что-то типа слышали, кто-то как-то им показал. И вот они это проносят через годы.

[MOJO]

Вот, что нашел

Код:

const
  Numbers = '0123456789';
begin
  if StrScan(Numbers, '2') <> nil
  then ShowMessage('2 - числовая цифра')
  else ShowMessage('2 - не числовая цифра');

  if StrScan(Numbers, 'A') <> nil
  then ShowMessage('A - числовая цифра')
  else ShowMessage('A - не числовая цифра');
end;

мое:

Код:

function StrScan ( const Characters : PAnsiChar; SearchChar : Char ) : PAnsiChar;
const
  Alphabet = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
begin
  if StrScan(Alphabet, 'а') <> nil
  then ShowMessage('а - числовая цифра')
  else ShowMessage('а - не числовая цифра');
end;

Я в дельфи новичок(изучаю всего 2 дня)
Вот список ошибок

[Error] Unit1.pas(30): Statement expected but 'FUNCTION' found
[Error] Unit1.pas(39): Declaration expected but identifier 'ShowMessage' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[Konrad]

PHP код:

Функция pos

Функция pos позволяет определить положение
 подстроки в строке. 
В общем виде обращение к 
функции выглядит так:

pos (Подстрока,Строка) ; 

где Подстрока — строковая константа или переменная,
 которую надо найти в строковой константе 
или переменной строка.

Например, 
в результате выполнения инструкции


р := pos('Пе','Санкт-Петербург');


значение переменной р будет равно 7. 
Если в строке нет искомой подстроки, 
то значение функции роз будет равно нулю. 


И если изучаешь второй день:
начни с прочтения учебника.
А метод проб и ошибок - не лучший в изучении чего-либо.

Иначе так всю жизнь будешь искать готовые решения.

Список книг можно найти тут:
Форум по программированию - Delphi Sources > Все о Delphi > [ "Начинающим" ]
Литература по Delphi


Та и вобщем, зачем на второй день текстовые стороки?))
(2+3-45446)*34.343254=? без ошибок можешь вычислить?
Ты в курсе что такое форма, кнопка, юнит, функция, процедура?
Эдит?
Стринггрид?
лейбл?

)

[MOJO]

я не правильно выразился начет программы
мне нужно, что бы программа считала сколько раз встречается заданый символ

[MOJO]

про позицию

Код:

var
p:integer;
begin
p:= pos('a',Edit1.Text);
edit1.Text:=inttostr(p);
end;
 begin
//ShowMessage('Êîë-âî áóêâ "a" â ñëîâå: '+intToStr(p))
end.

[Konrad]

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

я не правильно выразился начет программы
мне нужно, что бы программа считала сколько раз встречается заданый символ

Ты издеваешся?

Код:

Один молодой человек очень сильно переживал
по поводу размеров
своего достоинства. Пришёл к колдуну и попросил:
"Сделай, пожалуйста, так, чтобы ОН был аж до земли!"
Колдун подумал, и сделал ему ноги длиной 10 сантиметров.
Так давайте же выпьем за правильно поставленное 
техническое задание!

[Pilot_Red]

copy() тебе в помосчь

[Konrad]

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

copy() тебе в помосчь

Какой блин сору?
copy(s,i,1)?))))))
Да, встречали как то тут такое)))
У сантехника-крптографа всех времен и народов)))))

а s[i] религия мешает использовать?


Парни, я вот подумал, кому из вас репутацию минусонуть по самое немогу?

[Pilot_Red]

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

Какой блин сору?
copy(s,i,1)?))))))
Да, встречали как то тут такое)))
У сантехника-крптографа всех времен и народов)))))

а s[i] религия мешает использовать?

не кипятись, религиозный ты наш Просто я не собирался нашему автору все на блюдечко выкладывать

Раз уж такой крутой, то что про for i:=1 to strlength() забыл)))

[Pilot_Red]

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

Какой блин сору?
copy(s,i,1)?))))))
Да, встречали как то тут такое)))
У сантехника-крптографа всех времен и народов)))))

а s[i] религия мешает использовать?


Парни, я вот подумал, кому из вас репутацию минусонуть по самое немогу?

аааааа епт ему сивол нужен))))))))))))
Ну ладно вдруг ему цепочка символов понадабиться