Делфи. Создать "Тест"

Aksinia · 02.10.2014, 03:28

Здравствуйте!
Надеюсь на Вашу помощь.
Задание:
1. Перед пользователем окно, в котором он должен ввести свои ФИО.
2. Во втором окне пользователю предлагается выбрать тест, который он хочет пройти через OpenDialog.
3. Название,которое выбирается в OpenDialog сохраняется в переменную.
4. Открывается этот файл с именем этой переменной. В 3-ей форме создается некоторое количество лейблов и столько же едитов. В каждый лейбл записывается вопрос -1 строка из файла. В соседний едит пользователь должен ввести ответ на него.
5. Результатом проги является то, что все ответы пользователя сохраняются в отдельный файл, а еще этому файлу нужно обеспечить защиту от ручной корректировки результатов.
Надеюсь, что объяснила понятно. То, что у меня получилось (3 юнита) здесь. Буду очень благодарна, если найдете ошибку

PHP код:


			
unit Unit1;



{$mode objfpc}{$H+}



interface



uses

  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;



type



  { TForm1 }



  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Edit1: TEdit;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { private declarations }

  public

    { public declarations }

  end;



var

  Form1: TForm1;



implementation

uses Unit2;



{ TForm1 }



procedure TForm1.Button2Click(Sender: TObject);

begin

  close;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

  Form2.Label2.Caption:=Form1.Edit1.Text;

  Form2.ShowModal;

end;



{$R *.lfm}



end.

PHP код:


			
unit Unit2;



{$mode objfpc}{$H+}



interface



uses

  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;



type



  { TForm2 }



  TForm2 = class(TForm)

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    OpenDialog1: TOpenDialog;

    procedure Button1Click(Sender: TObject);

  private

    { private declarations }

  public

    Nametext:string;

    { public declarations }

  end;



var

  Form2: TForm2;



implementation

 uses Unit3;



 { TForm2 }



 procedure TForm2.Button1Click(Sender: TObject);

 begin

    OpenDialog1.Execute;

  if(OpenDialog1.FileName <> '') then begin

    Nametext:= FileUtil.UTF8ToSys(OpenDialog1.FileName);

    Form3.ShowModal;

end;

 end;



{$R *.lfm}



end.

PHP код:


			
unit Unit3;



{$mode objfpc}{$H+}



interface



uses

  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;



type



  { TForm3 }



  TForm3 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure fclose(Sender: TObject);

    procedure orm(Sender: TObject);

    procedure write(Sender: TObject);

  private

    { private declarations }

  public

    { public declarations }

  end;



var

  Form3: TForm3;

  f,f2:TextFile;count:integer;

implementation

 uses Unit2,Unit1;



 { TForm3 }



 procedure TForm3.orm(Sender: TObject);

 var edt: TEdit;lbl: TLabel;toop1:integer;S:string;

begin

  AssignFile(f,Form2.Nametext);

    Reset(f);

    toop1:=10;count:=1;

    while Not EOF(f) do

    begin

      Readln(f, S);

         edt:=TEdit.Create(Form3);

         edt.Parent:=Form3;

         edt.Top:=toop1;

         edt.Left:=100;

         lbl:=TLabel.Create(Form3);

         lbl.Parent:=Form3;

         lbl.Caption := S;

         lbl.Top:=toop1;

         inc(count);

      inc(toop1,20);

      CloseFile(f);

end;end;



procedure TForm3.fclose(Sender: TObject);

begin

  close;Form1.Close;

Form2.Close;

end;



procedure TForm3.write(Sender: TObject);

var i:integer;

begin

  AssignFile(f2,'Answers');

  Rewrite(f2);

  Append(f2);

  for i:=1 to count do

  begin

  Writeln(f2,TEdit(FindComponent('Edit'+IntToStr(i))).Text);

end;

closefile(f2);

end;



{$R *.lfm}



end.

AlexZir · 02.10.2014, 06:20

ООП предполагает задание свойств для используемых объектов, так что приведенных листингов маловато будет для анализа вашего проекта. Плюс вы нигде не упомянули о типе возникающей ошибки.

poiu · 02.10.2014, 10:25

дада. маловато листингов. надо архив с проектом.

Aksinia · 02.10.2014, 11:43

Немного переделала.
Ошибка возникает при работе программы, во время открытия OpenDialog.
Ошибка RunError 217.
Файл приложен.

Aksinia · 02.10.2014, 11:51

Еще немного переделала.
Ошибка возникает при работе программы, во время открытия OpenDialog.
Ошибка RunError 217.
Файл приложен.

poiu · 02.10.2014, 15:58

пункт 1 красиво реализуется встроенной функцией InputQuery.
а с файлами люблю работать через TStringList. умеет делать OpenFile и работать по-строчно.

poiu · 03.10.2014, 12:17

набросал тут
надеюсь задание понял верно))

Debianer · 03.10.2014, 14:47

При беглом просмотре в глаза бросилось следующее:
procedure TForm2.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
if(OpenDialog1.FileName <> '') then begin
Nametext:= FileUtil.UTF8ToSys(OpenDialog1.FileName);
Form3.ShowModal;
end;
end;

Первое. Делать не просто Execute, а if OpenDialog.Execute then begin ... - в этом случае, если пользователь выбрал файл, но нажал кнопку в диалоге "Отмена", то событие Execute возвращает False. А так у вас может возвращать в качестве имени файла мусор.
Второе. UTF8ToSys - зачем? Диалог и так работает в системной кодировке, и возвращает имя файла в ней же.

02.10.2014, 03:28	#1 (permalink)
Aksinia Member Регистрация: 15.12.2013 Сообщений: 31 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 114	Делфи. Создать "Тест" Здравствуйте! Надеюсь на Вашу помощь. Задание: 1. Перед пользователем окно, в котором он должен ввести свои ФИО. 2. Во втором окне пользователю предлагается выбрать тест, который он хочет пройти через OpenDialog. 3. Название,которое выбирается в OpenDialog сохраняется в переменную. 4. Открывается этот файл с именем этой переменной. В 3-ей форме создается некоторое количество лейблов и столько же едитов. В каждый лейбл записывается вопрос -1 строка из файла. В соседний едит пользователь должен ввести ответ на него. 5. Результатом проги является то, что все ответы пользователя сохраняются в отдельный файл, а еще этому файлу нужно обеспечить защиту от ручной корректировки результатов. Надеюсь, что объяснила понятно. То, что у меня получилось (3 юнита) здесь. Буду очень благодарна, если найдете ошибку PHP код: unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Button2: TButton; Edit1: TEdit; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation uses Unit2; { TForm1 } procedure TForm1.Button2Click(Sender: TObject); begin close; end; procedure TForm1.Button1Click(Sender: TObject); begin Form2.Label2.Caption:=Form1.Edit1.Text; Form2.ShowModal; end; {$R .lfm} end. PHP код: unit Unit2; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm2 } TForm2 = class(TForm) Button1: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); private { private declarations } public Nametext:string; { public declarations } end; var Form2: TForm2; implementation uses Unit3; { TForm2 } procedure TForm2.Button1Click(Sender: TObject); begin OpenDialog1.Execute; if(OpenDialog1.FileName <> '') then begin Nametext:= FileUtil.UTF8ToSys(OpenDialog1.FileName); Form3.ShowModal; end; end; {$R .lfm} end. PHP код: unit Unit3; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm3 } TForm3 = class(TForm) Button1: TButton; Button2: TButton; procedure fclose(Sender: TObject); procedure orm(Sender: TObject); procedure write(Sender: TObject); private { private declarations } public { public declarations } end; var Form3: TForm3; f,f2:TextFile;count:integer; implementation uses Unit2,Unit1; { TForm3 } procedure TForm3.orm(Sender: TObject); var edt: TEdit;lbl: TLabel;toop1:integer;S:string; begin AssignFile(f,Form2.Nametext); Reset(f); toop1:=10;count:=1; while Not EOF(f) do begin Readln(f, S); edt:=TEdit.Create(Form3); edt.Parent:=Form3; edt.Top:=toop1; edt.Left:=100; lbl:=TLabel.Create(Form3); lbl.Parent:=Form3; lbl.Caption := S; lbl.Top:=toop1; inc(count); inc(toop1,20); CloseFile(f); end;end; procedure TForm3.fclose(Sender: TObject); begin close;Form1.Close; Form2.Close; end; procedure TForm3.write(Sender: TObject); var i:integer; begin AssignFile(f2,'Answers'); Rewrite(f2); Append(f2); for i:=1 to count do begin Writeln(f2,TEdit(FindComponent('Edit'+IntToStr(i))).Text); end; closefile(f2); end; {$R *.lfm} end.

02.10.2014, 06:20	#2 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	ООП предполагает задание свойств для используемых объектов, так что приведенных листингов маловато будет для анализа вашего проекта. Плюс вы нигде не упомянули о типе возникающей ошибки. __________________ Убить всех человеков!

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

02.10.2014, 03:28
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Ваша тема имеет сходства с теми, которые я отправил сюда Фотографии и тест HTC One Max Тест SSD Тест на юзабельность Тест АС Тест HDD на Victoria Тест Виктория

02.10.2014, 10:25	#3 (permalink)
poiu Member Регистрация: 05.03.2014 Сообщений: 200 Сказал(а) спасибо: 2 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 834	дада. маловато листингов. надо архив с проектом.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

02.10.2014, 15:58	#6 (permalink)
poiu Member Регистрация: 05.03.2014 Сообщений: 200 Сказал(а) спасибо: 2 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 834	пункт 1 красиво реализуется встроенной функцией InputQuery. а с файлами люблю работать через TStringList. умеет делать OpenFile и работать по-строчно.

03.10.2014, 14:47	#8 (permalink)
Debianer Member Регистрация: 07.08.2012 Адрес: Находка, Приморский край Сообщений: 336 Сказал(а) спасибо: 14 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1671	При беглом просмотре в глаза бросилось следующее: procedure TForm2.Button1Click(Sender: TObject); begin OpenDialog1.Execute; if(OpenDialog1.FileName <> '') then begin Nametext:= FileUtil.UTF8ToSys(OpenDialog1.FileName); Form3.ShowModal; end; end; Первое. Делать не просто Execute, а if OpenDialog.Execute then begin ... - в этом случае, если пользователь выбрал файл, но нажал кнопку в диалоге "Отмена", то событие Execute возвращает False. А так у вас может возвращать в качестве имени файла мусор. Второе. UTF8ToSys - зачем? Диалог и так работает в системной кодировке, и возвращает имя файла в ней же.