Вопрос Нужна помощь с delphi

[Илья999]

Нужно проверить третью строку в поле memo2

Если там есть число от 1 до 5 - вставить картинку X

Если от 6 до 10 - вставить картинку Y

Если там нет никакого числа , то пропустить

Компилятор ругается на вот это :

[dcc32 Error] Unit1.pas(175): E2029 Expression expected but 'EXCEPT' found

[dcc32 Error] Unit1.pas(178): E2125 EXCEPT or FINALLY expected



Cам код:





try

case StrToInt(memo2.lines[3]) of

1..5 : Image5.Picture.LoadFromFile('three.jpg'

6..10 : Image5.Picture.LoadFromFile('nine.jpg'

except

continue

end;

 

[KamPott]

Попробуйте так:

procedure TForm1.Button1Click(Sender: TObject);
var sFileName: string;
begin
sFileName:='';
case StrToInt(memo2.lines[2]) of
1..5 : sFileName:='three.jpg';
6..10 : sFileName:='nine.jpg';
end;
if sFileName<>'' then
try
Image5.Picture.LoadFromFile(sFileName);
except
MessageDlg('Ошибка', 'Не удалось загрузить изображение.', mtError, [mbOK], 0);
end;
end;

 

[den399]

case не закрыт.

 

[davidman]

Ошибка возникает из-за неправильного использования блока try...except. В Delphi блок case не может быть напрямую помещен в try...except, и continue не может использоваться вне цикла. var
LineValue: Integer;
begin
try
LineValue := StrToInt(Memo2.Lines[3]);

case LineValue of
1..5: Image5.Picture.LoadFromFile('three.jpg'
6..10: Image5.Picture.LoadFromFile('nine.jpg'
end;
except
end;
end;

 

[Karandash]

Блок case должен заканчиваться end;