оператор read при работе с графикой.

@feck · Регистрация: 19.03.2010

Author24 — интернет-сервис помощи студентам

мне надо присвоить значение переменной с с клавиатуры. компиляция проходит успешно но после того, как я нажимаю мышой в форме(при нажатии мышки должен появиться куб, без оператора read(c) он нормально работает) вылезает ошибка в рамочке с крестиком. ее содержание:

Project Project13.exe raised exception class EInOutError with message 'I/O error 6'. Process stopped. use Step or Run to continue.

как мне это исправить? если мне все-равно надо вводить значение для с с клавиатуры?

@PAZITIV · 18.07.2010, 20:28

формат используемого изображения какой ?попробуйте использовать ВМР по умолчанию

@feck · 18.07.2010, 20:34 **[ТС]**

я рисую куб прямо там, с помощью

Delphi

for i:=1 to 4 do begin
      Form1.Canvas.MoveTo(200+B[i,1],100+B[i,2]);       //Встаём на i вершину
      Form1.Canvas.LineTo(200+B[i+1,1],100+B[i+1,2]);   //Рисуем линию к i + 1 вершине
      Form1.Canvas.MoveTo(200+B[i,1],200+B[i,2]);       //Встаём на i вершину 2го квадрата
      Form1.Canvas.LineTo(200+B[i+1,1],200+B[i+1,2]);   //Рисуем линию к i + 1 вершине 2го квадрата
      Form1.Canvas.LineTo(200+B[i+1,1],100+B[i+1,2]);   //Cоединяем вершины квадратов
    end;

задав до этого массив координат вершин. формат изображения тут не причем я думаю

@Vas-e-na · 18.07.2010, 20:39

а код можно, чтобы локализовать ошибку

@feck · 18.07.2010, 20:46 **[ТС]**

конечно, вот он:

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
label m1;
var
    i: integer;
    a: real;
    B: array[1..5,1..2] of integer;
    c: integer;
 
  begin
    m1:
    Form1.Refresh;
    Canvas.Pen.Width:=1;
    Canvas.Pen.Color:=clBlue;
//заполняем массив координат вершин куба
    a:=-0.39;
    for i:=1 to 5 do begin
      B[i,1]:=trunc(80*sin(a+i*pi/2));
      B[i,2]:=trunc(-20*cos(a*2+i*pi/2));
    end;
//отрисовываем квадраты(синие)
    for i:=1 to 4 do begin
      Form1.Canvas.MoveTo(200+B[i,1],100+B[i,2]);       //встаём на i вершину
      Form1.Canvas.LineTo(200+B[i+1,1],100+B[i+1,2]);   //рисуем линию к i+1 вершине
      Form1.Canvas.MoveTo(200+B[i,1],200+B[i,2]);       //встаём на i вершину 2 квадрата
      Form1.Canvas.LineTo(200+B[i+1,1],200+B[i+1,2]);   //рисуем линию к i+1 вершине 2 квадрата
      Form1.Canvas.LineTo(200+B[i+1,1],100+B[i+1,2]);   //соединяем вершины квадратов
    end;
    read(c);/////////////////////////////<----------без этого все работает, рисуется куб, и опять перерисовывается
    if c=1 then a:=a+0.05;
    goto m1;
 
end;
end.

@PAZITIV · 18.07.2010, 20:56

feck, так а откуда у тебя должно читаться "с". Ты его хоть введи в Эдит

@feck · 18.07.2010, 21:06 **[ТС]**

а как и где?

@PAZITIV · 18.07.2010, 21:35

feck, ну например при создании формы

Delphi

1	с:=StrToInt(Edit1.Text)

Добавлено через 21 минуту
feck, работает?

@feck · 18.07.2010, 21:35 **[ТС]**

спасибо большое! но я сосем не давно начал заниматься дельфи, можешь сказать поточнее после чего именно это нужно написать?))

@PAZITIV · 18.07.2010, 21:41

feck, ааа....я забыл дописать

можешь добавить событие OnCreate для формы и там вписать код, из моего предыдущего поста.
Просто у тебя возникает исключительная ситуация. Если не хочешь возиться с эдитом, то можешь написать так:

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
label m1;
const c=1; // см комент
var
    i: integer;
    a: real;
    B: array[1..5,1..2] of integer;
    c: integer;
 
  begin
    m1:
    Form1.Refresh;
    Canvas.Pen.Width:=1;
    Canvas.Pen.Color:=clBlue;
//заполняем массив координат вершин куба
    a:=-0.39;
    for i:=1 to 5 do begin
      B[i,1]:=trunc(80*sin(a+i*pi/2));
      B[i,2]:=trunc(-20*cos(a*2+i*pi/2));
    end;
//отрисовываем квадраты(синие)
    for i:=1 to 4 do begin
      Form1.Canvas.MoveTo(200+B[i,1],100+B[i,2]);       //встаём на i вершину
      Form1.Canvas.LineTo(200+B[i+1,1],100+B[i+1,2]);   //рисуем линию к i+1 вершине
      Form1.Canvas.MoveTo(200+B[i,1],200+B[i,2]);       //встаём на i вершину 2 квадрата
      Form1.Canvas.LineTo(200+B[i+1,1],200+B[i+1,2]);   //рисуем линию к i+1 вершине 2 квадрата
      Form1.Canvas.LineTo(200+B[i+1,1],100+B[i+1,2]);   //соединяем вершины квадратов
    end;
    read(c);/////////////////////////////<----------без этого все работает, рисуется куб, и опять перерисовывается
    if c=1 then a:=a+0.05;
    goto m1;
 
end;
end.

Комент: для сравнения добавь константу. Раз скомпиль с "1", а потом с отличным от 1 числами и ты увидишь будет твой куб прорисовываться повторно или нет

ЗЫ метки срарайся не использовать!!!

@feck 7 / 7 / 3 Регистрация: 19.03.2010 Сообщений: 182
		1
	оператор read при работе с графикой. 18.07.2010, 20:08. Показов 895. Ответов 9 Метки нет (Все метки) мне надо присвоить значение переменной с с клавиатуры. компиляция проходит успешно но после того, как я нажимаю мышой в форме(при нажатии мышки должен появиться куб, без оператора read(c) он нормально работает) вылезает ошибка в рамочке с крестиком. ее содержание: Project Project13.exe raised exception class EInOutError with message 'I/O error 6'. Process stopped. use Step or Run to continue. как мне это исправить? если мне все-равно надо вводить значение для с с клавиатуры? 0

@PAZITIV Реальность Нереальна! 352 / 128 / 7 Регистрация: 02.08.2009 Сообщений: 3,216 Записей в блоге: 1
	18.07.2010, 20:28	2
	формат используемого изображения какой ?попробуйте использовать ВМР по умолчанию 0

@Vas-e-na 420 / 417 / 79 Регистрация: 21.06.2010 Сообщений: 1,362
	18.07.2010, 20:39	4
	а код можно, чтобы локализовать ошибку 0

@PAZITIV Реальность Нереальна! 352 / 128 / 7 Регистрация: 02.08.2009 Сообщений: 3,216 Записей в блоге: 1
	18.07.2010, 20:56	6
	feck, так а откуда у тебя должно читаться "с". Ты его хоть введи в Эдит 1

@feck 7 / 7 / 3 Регистрация: 19.03.2010 Сообщений: 182
	18.07.2010, 21:06 [ТС]	7
	а как и где? 0

@feck 7 / 7 / 3 Регистрация: 19.03.2010 Сообщений: 182
	18.07.2010, 21:35 [ТС]	9
	спасибо большое! но я сосем не давно начал заниматься дельфи, можешь сказать поточнее после чего именно это нужно написать?)) 0

	18.07.2010, 21:41