VPF::[Delphi] Различные Типы - Ошибка - Форум программистов

Rumstep

Дата 31.7.2012, 09:54 (ссылка)

(голосов:3)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 31.7.2012

Репутация: нет
Всего: нет

Народ помоги срочно пожалуйста, нужно прогу сегодня здать , никак не можем понять что упустили.

проблема состоит в том, что нас попросили переделать программу, чтобы мы могли выбирать сами, куда хотим сохранить исходящие данные, через события. Ну сделали изменения в классе, написали процедуры "SaveFile" и "SaveBlocnot" , выбор событий через case и тут выдает ошибочку

Если кому не составляет труда, посмотрите, может сразу увидите в чем проблема, после компиляции. Иначе наверное уже не варят мозги.

http://rghost.ru/39491875 - вот сама прога

Frees

Дата 31.7.2012, 10:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: нет
Всего: 54

Качать лень, выложи кусок кода, с ошибкой

Добавлено через 50 секунд
наверно надо case на if поменять

--------------------

Кольцов Виктор Владимирович

Rumstep

Дата 31.7.2012, 10:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 31.7.2012

Репутация: нет
Всего: нет

Я могу кинуть пол кода, что бы можно было понять в чем проблема

Код



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Grids, StdCtrls,Series,ExtCtrls,Unit2,Unit3;

type
  TForm1 = class(TForm)
       procedure SaveBlocnot(Sender: TObject);
    procedure SaveFile(Sender: TObject);




  private
    { Private declarations }
  public
    { Public declarations }
    Procedure System1(aVector,APrav:TVector;aArgument : double);
    Procedure System2(aVector,APrav:TVector;aArgument : double);



  end;

var
  Form1: TForm1;
  Reshenie:TDu;

implementation


procedure SaveFile(Sender: TObject);
var
  i,n:integer;
  dufile:textfile;
  begin
  n:=3;
  begin
assignfile(dufile,'c:\dufile.txt');
 if FileExists('c:\dufile.txt')=false then
  rewrite(dufile);
append(dufile);
for i:=0 to n-1
do begin
    writeln(dufile,FloatToStr(Reshenie.Vector[i]));
  end;
closefile(dufile);
end;
end;

procedure SaveBlocnot(Sender: TObject);
var
i,n:integer;
begin

n:=3;
for i:=0 to n-1
do  begin
    Form3.Memo1.Lines.Add(FloatToStr(Reshenie.Vector[i]));
    Form3.Chart1.Series[i].AddXY(time,Reshenie.Vector[i]);
  end;
end;


end;


procedure TForm1.VipolnitClick(Sender: TObject);
var
Xn,Xk,h:Double;
i,n,sob,savesob:integer;
dufile:textfile;
str:string;
begin

 Xn:=StrToFloat(Edit1.Text);
 Xk:=StrToFloat(Edit2.Text);
 n:=StrToInt(Edit3.Text);
 sob:=StrToInt(Edit4.Text);
 h:=StrToFloat(Edit5.Text);
 savesob:=StrToInt(Edit6.Text);


//начинается Эйлер
if RadioButton1.Checked=true then
begin
Reshenie:= TEuler.create(n);
 case sob of
 1:Reshenie.Func:=System1;
 2:Reshenie.Func:=System2;
 end;
  case savesob of
 1:Reshenie.Output:=SaveFile;
 2:Reshenie.Output:=SaveBlocnot;
 end;
for i:= 0 to n-1
 do begin
 Reshenie.Vector[i]:= StrToFloat(StringGrid1.Cells[0,i]);
 end;
 Reshenie.Reshenie(Xn,Xk,h,n);
 Assignfile(dufile,'c:\otvet.txt');
 reset(dufile);
 while Xn<Xk do begin
 for i:=0 to n-1
  do begin
    readln(dufile,str);
  form3.memo1.Lines.Add(str);
  Form3.Chart1.Series[i].AddXY(Xn,strtofloat(str));

  end;
Xn:= Xn+h
end;



procedure TForm1.Edit3Change(Sender: TObject);
begin
StringGrid1.RowCount := StrToInt(Edit3.text);
end;


end.

Это сообщение отредактировал(а) Rumstep - 31.7.2012, 11:44

northener

Дата 31.7.2012, 11:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: нет
Всего: 20

Цитата(Rumstep @ 31.7.2012, 09:54

)

и тут выдает ошибочку

Какую ошибочку и где именно?

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Frees

Дата 31.7.2012, 11:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: нет
Всего: 54

заверни код в тег

[code=delphi]

Это сообщение отредактировал(а) Frees - 31.7.2012, 11:36

--------------------

Кольцов Виктор Владимирович

Rumstep

Дата 31.7.2012, 11:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 31.7.2012

Репутация: нет
Всего: нет

я же написал и выделил

в выборе событий через case
case savesob of
1:Reshenie.Output:=SaveFile;
2:Reshenie.Output:=SaveBlocnot;
end;

тут выдает ошибку

Данкинг

Дата 31.7.2012, 11:44 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Цитата(Rumstep @ 31.7.2012, 11:33

)

1:Reshenie.Output:=SaveFile;
2:Reshenie.Output:=SaveBlocnot;

Что за вызов процедур такой странный?

--------------------

There's nothing left but silent epitaphs.

Rumstep

Дата 31.7.2012, 11:45 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 31.7.2012

Репутация: нет
Всего: нет

как учили, а какой должен быть?

Frees

Дата 31.7.2012, 12:12 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: нет
Всего: 54

Код


procedure TForm1.SaveFile(Sender: TObject);

Код


procedure TForm1.SaveBlocnot(Sender: TObject);

Цитата(Rumstep @ 31.7.2012, 14:45

)

как учили, а какой должен быть?

давай посмотрим как учил.

что может вернуть процедура?

Добавлено @ 12:13
что значит

Код


(Sender: TObject)

в обявлении

Код


procedure SaveFile(Sender: TObject);

?

Добавлено через 3 минуты и 54 секунды

Цитата(Данкинг @ 31.7.2012, 14:44

)

Что за вызов процедур такой странный?

Кажется понял это не вызов а присвоение обработчиков!

Это сообщение отредактировал(а) Frees - 31.7.2012, 12:13

--------------------

Кольцов Виктор Владимирович

Akella

Дата 31.7.2012, 12:30 (ссылка)

(голосов:1)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 3
Всего: 329

http://forum.vingrad.ru/forum/topic-353769.html

Rumstep

Дата 31.7.2012, 12:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 31.7.2012

Репутация: нет
Всего: нет

Akella , понял не знал, как исправить?

Rumstep

Дата 31.7.2012, 13:04 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 31.7.2012

Репутация: нет
Всего: нет

Большое спасибо всем, что помогли. Не думал что тут настолько ленивые люди, но возможно это моя ошибка что не дал достаточно описания проблемы.Но можно было бы просто скачать прогу и посмотреть.

Данкинг

Дата 31.7.2012, 13:38 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Цитата(Rumstep @ 31.7.2012, 14:04

)

Но можно было бы просто скачать прогу и посмотреть.

Можно было бы. А можно было бы сразу выложить проблемный код и сообщение об ошибке, которое при исполнении этого кода вылезает.

--------------------

There's nothing left but silent epitaphs.

Rumstep

Дата 31.7.2012, 14:07 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 31.7.2012

Репутация: нет
Всего: нет

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

bems

Дата 31.7.2012, 14:19 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 0
Всего: 88

Цитата(Rumstep @ 31.7.2012, 13:04

)

Не думал что тут настолько ленивые люди, но возможно это моя ошибка что не дал достаточно описания проблемы

второе, серьезно.
И лучше вернуться собственно к коду, и перестать обсуждать почему не помогли.

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »