Главная страница
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
4-39895
skywalker
2002-03-06 17:48
2002.05.13
И снова потоки...


6-39819
fixxxer
2002-02-20 12:36
2002.05.13
Как получить IP зная имя компьютера?


1-39748
Vovchik
2002-04-27 19:51
2002.05.13
Копирование файлов с помощью SHFileOperation


3-39673
sergling
2002-04-16 23:03
2002.05.13
Доступ к MSSQL


1-39754
kull
2002-04-27 14:21
2002.05.13
TabOrder......