Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.09.2012, 13:49   #1
dragodar
Пользователь
 
Регистрация: 30.09.2012
Сообщений: 51
По умолчанию Pomogite razobratsja s Image

помогите пожалуйста почему у меня невыводит картинку на экран

Код:
unit monetas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, StdCtrls, ExtCtrls, JPEG;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x:real;
begin
DecimalSeparator:='.';
x:=StrToFloat(Edit1.Text);
If (x<5)and (x>0) then
begin
Label2.Caption:='1 santims';
Image1.Picture.Bitmap.LoadFromFile('1_s.bmp');
end ;




end;
end.
писал полный адрес файла выскакивает та же ошибка

Project Project_monetas.exe raised exception class EFOpenError with Message 'Cannot Open File "C\Users\Dragodar\Destkop\majas_dar bi\majas_darbs_monetas\1_s.bmp'.The system cannot find the file specified.Process stopped.Use step or Run to continue.

пробовал разные варианты и файлы разных типов вставлял ничего непомогает помогите разобратся в моей ошибке



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 01.10.2012 в 09:35.
dragodar вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pomogite s c++ Qunsi Помощь студентам 7 25.10.2011 16:06
pomogite C# efines Помощь студентам 0 18.04.2011 19:16
EPNGMissingMultipleIDAT. This PNG Image is invalid because it has missing image parts kardinal94 Общие вопросы Delphi 0 08.10.2010 20:31
Pomogite Stani4nik Паскаль, Turbo Pascal, PascalABC.NET 5 15.06.2009 17:54
Pomogite artush1984 Общие вопросы C/C++ 7 28.04.2009 00:28