Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.05.13;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.005 c
3-39673
sergling
2002-04-16 23:03
2002.05.13
Доступ к MSSQL


14-39859
Кандыль
2002-04-03 17:32
2002.05.13
Где в реестре хранится имя папки...


1-39700
Фантом
2002-04-29 15:16
2002.05.13
Как запустить программу?


7-39866
ATLANTIDO
2002-02-14 20:26
2002.05.13
I/O Error


3-39666
Gamar
2002-04-17 17:06
2002.05.13
Звполнение дат без точек





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский