Показать сообщение отдельно
  #9  
Старый 24.03.2013, 12:23
Аватар для Algplux
Algplux Algplux вне форума
Прохожий
 
Регистрация: 03.11.2012
Адрес: Березники, Пермский край
Сообщения: 20
Версия Delphi: 7
Репутация: 10
По умолчанию

Возникла ошибка. Не могу понять из-за чего.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  w,h: Integer;
begin
    // Если путь задан
    if path <> '' then
    begin
        // Считываем значение с текстового поля
        w:=StrToInt(LabeledEdit3.Text);
        h:=StrToInt(LabeledEdit2.Text);
        // Масштабируем изображение
        MyImage1.Width:=w;
        MyImage1.Hide:=h;
        // Сохраняем временный файл
        MyImage1.SaveFileTmp(MyImage1.Picture.Bitmap, ExtractFilePath(Application.ExeName));
        // Если кол-во временных файлов не 0
        if MyImage1.CountFileTmp <> 1 then begin
            if(not N7.Enabled) then N7.Enabled := true;
        end else
            N7.Enabled := false;
    end else
        ShowMessage('Изображение не загружено. Для открытия изображения нажмите на кнопку "Открыть"');
end;
[Error] Unit1.pas(328): Left side cannot be assigned to
Ответить с цитированием