Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.13;
Скачать: 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 вся ветка

Текущий архив: 2002.05.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.008 c
14-39831
VID
2002-04-03 12:37
2002.05.13
ЖК Монитор - 2


1-39693
Riko
2002-04-29 14:58
2002.05.13
Как применить?


1-39799
Sniffer
2002-04-28 18:12
2002.05.13
Cимплексный метод


1-39757
Makss
2002-04-27 19:59
2002.05.13
Проблема с загрузкой проги


1-39743
sergey32
2002-04-27 17:29
2002.05.13
Формат типа даты для Edit1