Скачать: CL | DM;

Помогите пожалуйста!   Найти похожие ветки 

← →
HDD ©   (2002-04-25 07:05) [0]

var
SaveResp: Integer;
begin
if Richedit1.Modified then
SaveResp := MessageDlg(Format("??????????? ???? ????????. ????????? ??????????", [FFileName]),
mtConfirmation, mbYesNoCancel, 0);
case SaveResp of
idYes: if StatusBar1.Panels[2].Text = "" then
N6Click (Sender);
else
N7Click(Sender);
Если я пишу до или после else еще хоть одну строчку то вылазиет такая ошибка:[Error] Unit1.pas(499): Constant expression expected.
Помогите пожалуйста!

---

← →
Kani   (2002-04-25 07:14) [1]

Перед else стоит ";" :))

---

← →
HDD ©   (2002-04-25 07:23) [2]

Да я знаю случайно написал! Ошибка даже когда нету ;

---

← →
Locked   (2002-04-25 07:27) [3]

у тебя end не хватает

---

← →
gek ©   (2002-04-25 07:29) [4]

case SaveResp of
idYes: begin
if StatusBar1.Panels[2].Text = "" then
N6Click (Sender);
else
N7Click(Sender);
end;
end;//case

---

← →
HDD ©   (2002-04-25 09:18) [5]

if Richedit1.Modified then
SaveResp := MessageDlg(Format("??????????? ???? ????????. ????????? ??????????", [FFileName]),
mtConfirmation, mbYesNoCancel, 0);
case SaveResp of
idYes: begin
if StatusBar1.Panels[2].Text = "" then
N6Click (Sender);
If OpenDialog1.Execute then PerformFileOpen(OpenDialog1.FileName);
Richedit1.ReadOnly := ofReadOnly in OpenDialog1.Options
else
N7Click(Sender);
end;
Ошибка [Error] Unit1.pas(518): "END" expected but "ELSE" found

---

← →
HDD ©   (2002-04-25 09:19) [6]

Еще попутный вопросик почему я копирую текст с этого сайта в ричэдит и он получается такими вопросиками?

---

← →
gek ©   (2002-04-25 09:38) [7]

Блин к чему else должно отновится ты бы сказал что ли ?
И почему нет end у case

---

← →
Lord Warlock ©   (2002-04-27 09:27) [8]

Без комментариев!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c