| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / 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". Блин перепробовал все что знаю, но результата нет. Как можно исправить?

---

turbouser   (2010-05-20 23:45:00) [41]

> pro_xaoc ©   (20.05.10 23:38)  

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

---

pro_xaoc   (2010-05-20 23:44:00) [42]

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

---

Германн   (2010-05-20 23:42:00) [43]

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

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

---

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

Наверх