Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите пожалуйста! [D6, Win2k]

HDD © (2002-04-25 07:05:00)
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.
Помогите пожалуйста!

Lord Warlock (2002-04-27 09:27:00) [1]
Без комментариев!

gek (2002-04-25 09:38:00) [2]
Блин к чему else должно отновится ты бы сказал что ли ?
И почему нет end у case

HDD (2002-04-25 09:19:00) [3]
Еще попутный вопросик почему я копирую текст с этого сайта в ричэдит и он получается такими вопросиками?

HDD (2002-04-25 09:18:00) [4]
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

gek (2002-04-25 07:29:00) [5]
case SaveResp of
idYes: begin
if StatusBar1.Panels[2].Text = "" then
N6Click (Sender);
else
N7Click(Sender);
end;
end;//case

Locked (2002-04-25 07:27:00) [6]
у тебя endне хватает

HDD (2002-04-25 07:23:00) [7]
Да я знаю случайно написал! Ошибка даже когда нету ;

Kani (2002-04-25 07:14:00) [8]
Перед else стоит ";" :))

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »