Мастера 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". Блин перепробовал все что знаю, но результата нет. Как можно исправить?

Amoeba_ (2010-05-21 18:10:00) [21]
Может автору вопроса лучше прежде чем кодить заглянуть все-таки сюда, а не в realcoding?
http://www.delphikingdom.com/lyceum

Lyonux (2010-05-21 13:37:00) [22]
Я думаю, эти ссылки будут полезны..

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

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

Anatoly Podgoretsky (2010-05-21 08:39:00) [23]

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

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

Германн (2010-05-21 01:47:00) [24]

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

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

Германн (2010-05-21 01:46:00) [25]

> 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..

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

pro_xaoc (2010-05-21 01:29:00) [26]
Методом тыка разобрался! Спс всем за старания!

Демо (2010-05-21 01:07:00) [27]

> pro_xaoc © (20.05.10 23:38)

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

{RASkov} (2010-05-21 00:54:00) [28]
> [15] turbouser © (21.05.10 00:53)

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

turbouser (2010-05-21 00:53:00) [29]
Автор, с таким уровнем знаний даже в начинающие рано.

turbouser (2010-05-21 00:52:00) [30]

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

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

Германн (2010-05-21 00:47:00) [31]
Следующим будет вопрос - почему не работает
> if edit1.text<>'0'
.
Имхо

pro_xaoc (2010-05-21 00:12:00) [32]
ок, ща попробую ...

turbouser (2010-05-21 00:10:00) [33]
if not poisk then begin if edit1.text<>'0' then edit1.Text:=edit1.text+',' else edit1.Text:=','; end;

pro_xaoc (2010-05-21 00:08:00) [34]
ну если истина, то значение edit1.text не изменяется ...

turbouser (2010-05-21 00:06:00) [35]

> edit1.Text:=edit1.Text;

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

pro_xaoc (2010-05-21 00:05:00) [36]
как можно сделать так, чтобы когда значение функции poisk было true, то выполнился код:
if poisk=true then
edit1.Text:=edit1.Text;

turbouser (2010-05-21 00:02:00) [37]

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

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

pro_xaoc (2010-05-20 23:51:00) [38]
Код изменил так:

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-20 23:47:00) [39]

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

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

Германн (2010-05-20 23:45:00) [40]
Т.е. вторую строчку перенести после окончания описания процедуры poisk

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

Наверх

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