Главная страница
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.01 c
1-39788
Alexey-neo
2002-04-28 20:39
2002.05.13
Есть ли где программы - преобразователи в исходный код Delphi 6


1-39726
Vano1
2002-04-27 12:11
2002.05.13
Как сохранить документ в формате XLS?


1-39749
Anton+
2002-04-27 19:27
2002.05.13
Строка в Memo


1-39691
Johnmen
2002-04-29 12:40
2002.05.13
TEdit и звуковые эффекты


1-39698
Riko
2002-04-29 14:59
2002.05.13
Обработка CloseQuery.