Ошибка с процедурой

← →
pro_xaoc © (2010-05-20 23:38) [0]

Всем привет! Прошу помогите. Вот я написал такой код:

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
procedure poisk();
var
a:boolean;
begin
a:=pos(",", edit1.text);
end;
if poisk=true then
edit1.Text:=edit1.Text;
if edit1.text<>"0" then
edit1.Text:=edit1.text+","
else edit1.Text:=",";
end;

а компилятор ругается "statement expected but "PROCEDURE" found". Блин перепробовал все что знаю, но результата нет. Как можно исправить?

← →
Германн © (2010-05-20 23:42) [1]

> Как можно исправить?

вторую и третью строчку поменять местами.

← →
pro_xaoc © (2010-05-20 23:44) [2]

серьёзно? ща посмотрю))

← →
turbouser © (2010-05-20 23:45) [3]

> pro_xaoc © (20.05.10 23:38)

мда. жесть. здесь как минимум 2 ошибки и 2 нелепости

← →
Германн © (2010-05-20 23:45) [4]

Т.е. вторую строчку перенести после окончания описания процедуры poisk

← →
turbouser © (2010-05-20 23:47) [5]

> Германн © (20.05.10 23:45) [4]

Сейчас будет вопрос о второй ошибке :)

← →
pro_xaoc © (2010-05-20 23:51) [6]

Код изменил так:

procedure TForm1.SpeedButton4Click(Sender: TObject);
function poisk():boolean;
begin
pos(",", edit1.text);
end;
begin
if poisk=true then
edit1.Text:=edit1.Text;
if edit1.text<>"0" then
edit1.Text:=edit1.text+","
else edit1.Text:=",";
end;

вот теперь, у меня тут ошибка есть (не синтаксическая), как можно сделать так, чтобы когда значение функции было true, то выполнился код if poisk=true then
edit1.Text:=edit1.Text;

?

← →
turbouser © (2010-05-21 00:02) [7]

> pro_xaoc © (20.05.10 23:51) [6]

Ты сам понимаешь, что тебе требуется?

← →
pro_xaoc © (2010-05-21 00:05) [8]

как можно сделать так, чтобы когда значение функции poisk было true, то выполнился код:
if poisk=true then
edit1.Text:=edit1.Text;

← →
turbouser © (2010-05-21 00:06) [9]

> edit1.Text:=edit1.Text;

В чем смыл этого?

← →
pro_xaoc © (2010-05-21 00:08) [10]

ну если истина, то значение edit1.text не изменяется ...

← →
turbouser © (2010-05-21 00:10) [11]

if not poisk then begin if edit1.text<>"0" then edit1.Text:=edit1.text+"," else edit1.Text:=","; end;

← →
pro_xaoc © (2010-05-21 00:12) [12]

ок, ща попробую ...

← →
Германн © (2010-05-21 00:47) [13]

Следующим будет вопрос - почему не работает
> if edit1.text<>"0"
.
Имхо

← →
turbouser © (2010-05-21 00:52) [14]

> Германн © (21.05.10 00:47) [13]

..и почему не работает poisk..

← →
turbouser © (2010-05-21 00:53) [15]

Автор, с таким уровнем знаний даже в начинающие рано.

← →
{RASkov} © (2010-05-21 00:54) [16]

> [15] turbouser © (21.05.10 00:53)

Сейчас он тебе расскажет какой ты не хороший помошник.... держись)

← →
Демо © (2010-05-21 01:07) [17]

> pro_xaoc © (20.05.10 23:38)

Ты бы словами сказал, что ты получить хочешь от своих действий...

← →
pro_xaoc © (2010-05-21 01:29) [18]

Методом тыка разобрался! Спс всем за старания!

← →
Германн © (2010-05-21 01:46) [19]

> RASkov} © (21.05.10 00:54) [16]
>
> > [15] turbouser © (21.05.10 00:53)
>
> Сейчас он тебе расскажет какой ты не хороший помошник...
> . держись)

Не рассказал. Знать турбоюзеру пока далеко до Плохиша!
> turbouser © (21.05.10 00:52) [14]
>
>
> > Германн © (21.05.10 00:47) [13]
>
> ..и почему не работает poisk..

:)
Во втором варианте очевидно очепятка.

← →
Германн © (2010-05-21 01:47) [20]

> Демо © (21.05.10 01:07) [17]
>
>
> > pro_xaoc © (20.05.10 23:38)
>
>
> Ты бы словами сказал, что ты получить хочешь от своих действий.
> ..

Автор пока не дотягивает до уровня "правильного новичка".

← →
Anatoly Podgoretsky © (2010-05-21 08:39) [21]

> как можно сделать так, чтобы когда значение функции poisk
> было true, то выполнился код:
> if poisk=true then
> edit1.Text:=edit1.Text;

Так и будет, хотя тут две нелепости.

← →
Lyonux © (2010-05-21 13:37) [22]

Я думаю, эти ссылки будут полезны..

http://www.realcoding.net/articles/obyavlenie-protsedury.html
http://www.realcoding.net/articles/obyavlenie-funktsii.html

Ну так, для общего развития..

← →
Amoeba_ (2010-05-21 18:10) [23]

Может автору вопроса лучше прежде чем кодить заглянуть все-таки сюда, а не в realcoding?
http://www.delphikingdom.com/lyceum

← →
Демо © (2010-05-22 00:28) [24]

> Я думаю, эти ссылки будут полезны..

Помню как 10 лет назад этот реалколдинг вообще ничего из себя не представлял, а лишь лихорадочно тащил со всего интернета статьи для раскрутки.

← →
Игорь Шевченко © (2010-05-22 00:49) [25]

Демо © (22.05.10 00:28) [24]

ты че на реальных пацанов наезжаешь ?

← →
Германн © (2010-05-22 01:03) [26]

> ты че на реальных пацанов наезжаешь ?
>

Вспомнил свою ДМ-овскую молодость, наверно. :)

← →
Anatoly Podgoretsky © (2010-05-22 08:54) [27]

> Демо (22.05.2010 00:28:24) [24]

Важно, не что он тогда представлял, а что сейчас представляет.

← →
Lyonux © (2010-05-22 09:21) [28]

мм..да я вообще-то не на сайт, а на статейки ссылку давала.. Завелись-то как все)

← →
Sha © (2010-05-22 12:38) [29]

> Lyonux © (22.05.10 09:21) [28]
> мм..да я вообще-то не на сайт, а на статейки ссылку давала..

Посмотрел статейку про объявление функции.

Описание поехало:
// здесь объявления локальных переменных begin

Первая функция, названная Islnt вместо isint:
не откомпилируется из-за скобки }
не откомпилируется из-за сравнения символа с числом 113
Ее проще было бы переписать так:
function IsInt(ch: Char): Boolean; begin Result:=(ch >= "0") and (ch <= "9") // цифры or (ch = #13) // клавиша <Enter> or (ch = #8); // клавиша <Backspace> end;
Но тут все равно не хватает проверки на допустимость ввода знака (+,-),
на переполнение, на нажатие клавиши Del, на ввод $...

Вторая функция также не без ошибок:
не компилируется из-за лишнего апострофа "
не позволяет вводить знак +
не позволяет вводить порядок
Компилятор предупреждает о неопределенном результате
в двух ветках оператора case

← →
Leonid Troyanovsky © (2010-05-22 13:02) [30]

> Sha © (22.05.10 12:38) [29]

> Ее проще было бы переписать так:

Result := ch in ["0".."9",#8, #13];

Только непонятно, зачем #13.

--
Regards, LVT.

> Leonid Troyanovsky © (22.05.10 13:02) [30]
> Result := ch in ["0".."9",#8, #13];

Точно.

> Только непонятно, зачем #13.

Мне тоже.

> Lyonux © (22.05.10 09:21) [28]

Пример к статейке про процедуры:
не компилируется, т.к. объявлена переменная xl, а используется x1
один из корней вычисляется неверно
процедура ломается, если коэффициент при х^2 равен нулю.

> Sha ©

А если я дам ссылку на гуглопоиск, например, http://www.google.ru/search?hl=ru&newwindow=1&client=firefox&hs=aa6&rls=org.mozilla%3Aru%3Aofficial&q=delphi+%2B%D1%88%D0%B5%D0%BB%D0%BB&aq=f&aqi=&aql=&oq=&gs_rfai=
тоже будем ошибки искать?

> Lyonux © (22.05.10 09:21) [28]

Это я к тому, что лучше ссылки давать на статейки, где меньше ошибок

> turbouser © (22.05.10 13:48) [33]
> А если я дам ссылку на гуглопоиск, тоже будем ошибки искать?

Не видишь, я с дамой разговариваю. Отвали.

Мы будем расстреливать неверных из Царь-Пушки! Выживших догонять и карать ржавой секирой ужоса)
Кстати говоря, автору ветки всё это, видимо, не очень интересно))

> Lyonux © (24.05.10 03:55) [37]
>
> Мы будем расстреливать неверных из Царь-Пушки! Выживших
> догонять и карать ржавой секирой ужоса)
> Кстати говоря, автору ветки всё это, видимо, не очень интересно))
>

Ещё одна Рипли?
А я, лично, не против. И даже за!
Женьщинов на ДМ не хватает. А женьщины способны на иной взгляд!

нас просто заткнуть невозможно) тем более меня сутки не было =) Не могу же я дать умереть ветке в моё отсутствие! Теперь можно закрывать =)

> Игорь Шевченко © (22.05.10 00:49) [25]
> Демо © (22.05.10 00:28) [24] ты че на реальных пацанов
> наезжаешь ?

Да я так, у стеночки постою... ;)

> Lyonux © (24.05.10 03:55) [37]
> Мы будем расстреливать неверных из Царь-Пушки! Выживших
> догонять и карать ржавой секирой ужоса)Кстати говоря, автору
> ветки всё это, видимо, не очень интересно))

Зато нам интересно!

> Демо (25.05.2010 13:21:40) [40]

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

> Anatoly Podgoretsky © (25.05.10 16:33) [41]
> > Демо (25.05.2010 13:21:40) [40]Интересно посмотреть
> как Аленушка будет с секирой гоняться.

За Иванушкой?-)

← →
Дмитрий Белькевич (2010-05-25 18:05) [43]

>
> ну если истина, то значение edit1.text не изменяется ...

Я не удивляюсь после этого анекдоту про программиста и два стакана на ночь.

Ошибка с процедурой Найти похожие ветки