Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Страницы: 1 2 3 >
pro_xaoc © (2010-05-20 23:38:00)
Всем привет! Прошу помогите. Вот я написал такой код:

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-25 18:05:00) [1]
>
> ну если истина, то значение edit1.text не изменяется ...

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

Демо (2010-05-25 18:02:00) [2]

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

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

Anatoly Podgoretsky (2010-05-25 16:33:00) [3]
> Демо (25.05.2010 13:21:40) [40]

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

Демо (2010-05-25 13:21:00) [4]

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

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

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

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

Lyonux (2010-05-24 04:07:00) [5]
нас просто заткнуть невозможно) тем более меня сутки не было =) Не могу же я дать умереть ветке в моё отсутствие! Теперь можно закрывать =)

Германн (2010-05-24 04:04:00) [6]

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

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

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

Игорь Шевченко (2010-05-23 00:31:00) [8]
turbouser © (22.05.10 13:48) [33]

> тоже будем ошибки искать?

можем удалить. на выбор.

turbouser (2010-05-22 14:04:00) [9]
:)

Sha (2010-05-22 14:00:00) [10]
> Lyonux © (22.05.10 09:21) [28]

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

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

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

turbouser (2010-05-22 13:48:00) [11]

> 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=
тоже будем ошибки искать?

Sha (2010-05-22 13:10:00) [12]
> 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 равен нулю.

turbouser (2010-05-22 13:07:00) [13]

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

Не обращай внимания :) Здесь такое вполне обыденно :)

Leonid Troyanovsky (2010-05-22 13:02:00) [14]

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

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

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

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

--
Regards, LVT.

Sha (2010-05-22 12:38:00) [15]
> 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

Lyonux (2010-05-22 09:21:00) [16]
мм..да я вообще-то не на сайт, а на статейки ссылку давала.. Завелись-то как все)

Anatoly Podgoretsky (2010-05-22 08:54:00) [17]
> Демо (22.05.2010 00:28:24) [24]

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

Германн (2010-05-22 01:03:00) [18]

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

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

Игорь Шевченко (2010-05-22 00:49:00) [19]
Демо © (22.05.10 00:28) [24]

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

Демо (2010-05-22 00:28:00) [20]

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

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

Страницы: 1 2 3 >

Наверх

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