File not found

@sansanych · Регистрация: 25.04.2011

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

Здравствуйте!
Прошу помощи по работе с файлом. Нужно сохранить (дописать) результат прохождения теста из поля Мемо в текствый файл Rezults.txt . Все как будто работало, но после попытки изменить скрин программы с помощью AlphaLite (http://www.alphaskins.com/dwnld.php) перестало находить файл. Изменение скринов делал четко по инструкции, тоесть когда для SkinManager свойство Active ставлю True, то возникает ошибка "Exception class EInOutError with message 'File not found'". С чем это может быть связано? (ну кроме кривых рук и пролетающей кометы)
Вот привожу код:

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Menus, ExtCtrls, sSkinProvider, sSkinManager;
 
type
 
  // Годинниковий тип
  TPrTime = Record
    Min: Byte;
    Sec: Byte;
  end;
 
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N11: TMenuItem;
    Panel1: TPanel;
    Lbl_Last: TLabel;
    Lbl_FQuestion: TLabel;
    BtnV1: TButton;
    BtnV2: TButton;
    BtnV3: TButton;
    BtnV4: TButton;
    MQuestion: TMemo;
    MIAbout: TMenuItem;
    Timer1: TTimer;
    MITest: TMenuItem;
    MITBegin: TMenuItem;
    MIOpenFile: TMenuItem;
    Memo_Temp: TMemo;
    MV1: TMemo;
    MV2: TMemo;
    MV3: TMemo;
    MV4: TMemo;
    OpenDialog1: TOpenDialog;
    GBox: TGroupBox;
    MIExit: TMenuItem;
    MITEnd: TMenuItem;
    LblNameTest: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    PanelButton: TPanel;
    Label3: TLabel;
    Lbl_NomQuestion: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Memo_txt: TMemo;
    N1: TMenuItem;
    Panel2: TPanel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    sSkinManager1: TsSkinManager;
    sSkinProvider1: TsSkinProvider;
 
 
    procedure FormCreate(Sender: TObject);
    function  DecTime(Var aa:TPrTime; Sender: TObject): string;
    procedure PrTimeOut(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure MIOpenFileClick(Sender: TObject);
    procedure MIAboutClick(Sender: TObject);
    procedure PrFillFileds(Sender: TObject);
    procedure MITBeginClick(Sender: TObject);
    procedure PrClickButton(Sender: TObject);
    procedure MIExitClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  fileName: string;
  MyTextF: TextFile;
  //HelpFile:Textfile;
  PrTimeLast: TPrTime;
  PrTimeFull: TPrTime;
  // поряд. номер питання
  NomQuestion: Byte;
  // к-сть прав. відповідей
  PrVAnsverOK: Byte;
  // набраний бал
  Bal:real;
  // Масив, в якому зберігаються номера питань  ---
  PrOrderQuestion: array [1..255] of byte;
 
 
implementation
 
uses OKCANCL2, shellapi;
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
  GBox.Visible:=False;
  Timer1.Enabled:=False;
  PrTimeLast.Min:=0;
  PrTimeLast.Sec:=0;
  MITBegin.Enabled:=True;
  MITEnd.Enabled:=False;
  NomQuestion:=1;
  Memo_Temp.Lines.Clear;
  PrVAnsverOK:=0;
  PanelButton.Visible:=True;
end;
 
// Форматування часу ---
Function PrFormatConvert(aa:TPrTime): String;
begin
  if aa.Min<=9 then result:='0'+IntToStr(aa.Min)
   else result:=IntToStr(aa.Min);
  if aa.Sec<=9 then result:=result+':0'+IntToStr(aa.Sec)
   else result:=result+':'+IntToStr(aa.Sec);
end;
 
// Зміна часу.
function TForm1.DecTime(Var aa:TPrTime; Sender: TObject): string;
begin
  if aa.Sec=0 then
    if aa.Min>0 then
      begin
        dec(aa.Min);
        aa.Sec:=59;
      end
     else PrTimeOut(Sender)
   else dec(aa.Sec);
  result:=PrFormatConvert(aa);
end;
 
// Дія при закінченні часу чи дострокового завершення
procedure TForm1.PrTimeOut(Sender: TObject);
begin
  // Виведення статистики закінчення тесту
  if NomQuestion=StrToInt(copy(Memo_Temp.Lines[1],1,pos(' ',Memo_Temp.Lines[1])-1)) then
    begin
      Timer1.Enabled:=False;
      PanelButton.Visible:=False; // Відключення кнопок відповідей
      ShowMessage('Відповідей (загальна к-сть\вірних):'+#13+#10
                   +IntToStr(NomQuestion)+'\'+IntToStr(PrVAnsverOK)); //PrStatisticsTest(Sender);
       // статистика в едіти
      edit1.Text:= IntToStr(PrVAnsverOK);
      edit2.Text:= IntToStr(NomQuestion-PrVAnsverOK);
      edit3.Text:= IntToStr(NomQuestion);
 
      // початок оцінювання за шкалою
  Bal:= (PrVAnsverOK/NomQuestion*100);
   if Bal=0 then label7.Caption:='Ви не набрали жодного балу!' else
    if (Bal>0) and (Bal<20) then label7.Caption:='Ваша оцінка 1' else
     if (Bal>=20) and (Bal<=29) then label7.Caption:='Ваша оцінка 2' else
      if (Bal>=30) and (Bal<=44) then label7.Caption:='Ваша оцінка 3' else
       if (Bal>=45) and (Bal<=54) then label7.Caption:='Ваша оцінка 4' else
        if (Bal>=55) and (Bal<=64) then label7.Caption:='Ваша оцінка 5' else
         if (Bal>=65) and (Bal<=74) then label7.Caption:='Ваша оцінка 6' else
          if (Bal>=75) and (Bal<=79) then label7.Caption:='Ваша оцінка 7' else
           if (Bal>=80) and (Bal<=84) then label7.Caption:='Ваша оцінка 8' else
            if (Bal>=85) and (Bal<=94) then label7.Caption:='Ваша оцінка 9' else
             if (Bal>=95) and (Bal<=99) then label7.Caption:='Ваша оцінка 10' else
              label7.Caption:='Ваша оцінка 11';
     Label8.Caption:=(name1)+' '+(surname);
     Memo_txt.Text:=Label8.Caption+'  |  '+Label7.Caption+'  |  '+klas+' клас'+'  |  '+'тест '+Memo_Temp.Lines[0];
   //  Memo_txt.Lines.SaveToFile('Results.txt');         збереження поверху
 
   // --- Збереження в файл
   //AssignFile(MyTextF, 'Results.txt');
   //Append (MyTextF);   //ругается вот сюда "Exception class EInOutError with message 'File not found'"
   //WriteLn(MyTextF, Memo_txt.Text);
   //Flush (MyTextF);
  // CloseFile(MyTextF);
             // друга спроба
  begin
  // Попытка открыть текстовый файл для записи
  fileName := 'Results.txt';
  AssignFile(MyTextF, fileName);
  Append (MyTextF);     // все равно также ругается и сюда
 
  // Запись в файл
 WriteLn(MyTextF, Memo_txt.Text);
 
  // Закрытие файла
  CloseFile(MyTextF);
  end;
  if FileExists(fileName)
  then ShowMessage(fileName+' существует')
  else ShowMessage(fileName+' не существует');
 
    Abort;
 
    end;
  // --- Відновлення часу на питання ---
{v0103}  PrTimeLast.Min:=StrToInt(copy(Memo_Temp.Lines[1],pos(' ',Memo_Temp.Lines[1])+1,pos(':',Memo_Temp.Lines[1])-pos(' ',Memo_Temp.Lines[1])-1));
{v0103}  PrTimeLast.Sec:=StrToInt(copy(Memo_Temp.Lines[1],pos(':',Memo_Temp.Lines[1])+1,Length(Memo_Temp.Lines[1])-pos(':',Memo_Temp.Lines[1])));
  // Збільшення номеру запитання на 1
  inc(NomQuestion);
  PrFillFileds(Sender);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // --- Зменшити час на відповідь на 1 сек ---
  Lbl_Last.Caption:=DecTime(PrTimeLast,Sender);
end;
  // Відкриття файлу
procedure TForm1.MIOpenFileClick(Sender: TObject);
begin
  FormCreate(Sender);
  OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
  if OpenDialog1.Execute then
  begin
    Memo_Temp.Lines.LoadFromFile(OpenDialog1.FileName);
 
    // відкриття діалогового вікн для введення даних
    OKRightDlg.ShowModal;
 
    // інструкція щодо початку тестування
    Label13.Caption:='';
    label10.Caption:='Завантажено тест '+'"'+Memo_Temp.Lines[0]+'".'+'  '+#13+#10+#13+#10+'Всього запитань - '+ Memo_Temp.Lines[1];//,1,pos(' ',Memo_Temp.Lines[1])-1;
    //Memo_Temp.Lines[1];
    label11.Caption:='Для початку тестування перейдіть в меню "Тест - Розпочати тестування!"';
    Label12.Caption:='Бажаю успіху!';
 
  end;
end;
 
procedure TForm1.MIAboutClick(Sender: TObject);
begin
  ShowMessage('Програма для тестування знань "Школа-Test v.3.1'+#13+#10+#13+#10+
  'Розробник: Лисенко Олександр;'+#13+#10+
              ' '+#13+#10+
              'http:\\[url]www.testonline.at.ua'+#13+#10+#13+#10+[/url]
              'e-mail: [email]lysenko.oleksandr@gmail.com[/email]');
end;
 
// Заповнення полів тесту
procedure TForm1.PrFillFileds(Sender: TObject);
begin
 
  //  Очистка поля тесту
  label7.Caption:='';
  MQuestion.Clear;
  MV1.Clear;
  MV2.Clear;
  MV3.Clear;
  MV4.Clear;
 
  MQuestion.Lines[0]:=Memo_Temp.Lines[2+6*(PrOrderQuestion[NomQuestion]-1)];
  MV1.Lines[0]:=Memo_Temp.Lines[3+6*(PrOrderQuestion[NomQuestion]-1)];
  MV2.Lines[0]:=Memo_Temp.Lines[4+6*(PrOrderQuestion[NomQuestion]-1)];
  MV3.Lines[0]:=Memo_Temp.Lines[5+6*(PrOrderQuestion[NomQuestion]-1)];
  MV4.Lines[0]:=Memo_Temp.Lines[6+6*(PrOrderQuestion[NomQuestion]-1)];
  Lbl_NomQuestion.Caption:=IntToStr(NomQuestion);
 
  // Управління полосою прокрутки в полях тексту
  if MQuestion.Lines.Count>=3 then MQuestion.scrollbars:=ssVertical else MQuestion.scrollbars:=ssNone;
  if MV1.Lines.Count>=3 then  MV1.scrollbars:=ssVertical else MV1.scrollbars:=ssNone;
  if MV2.Lines.Count>=3 then  MV2.scrollbars:=ssVertical else MV2.scrollbars:=ssNone;
  if MV3.Lines.Count>=3 then  MV3.scrollbars:=ssVertical else MV3.scrollbars:=ssNone;
  if MV4.Lines.Count>=3 then  MV4.scrollbars:=ssVertical else MV4.scrollbars:=ssNone;
 
end;
 
// Пункт із меню "Розпочати тестування"
procedure TForm1.MITBeginClick(Sender: TObject);
Var
   Stroka: String;
   tempNomQuestion, i: byte;
begin
   Panel2.Visible:=False;
   label15.Caption:=Memo_Temp.Lines[7];
  // Перевірка чи був відкритий файл з тестом
  if Memo_Temp.Lines.Count<4 then
    begin
      ShowMessage('Відкрийте файл тесту!');
      Abort;
    end;
 
  // Розрахунок часу на 1 питання і на всі.
  Stroka:=Memo_Temp.Lines[1];
  PrTimeLast.Min:=StrToInt(copy(Stroka,pos(' ',Stroka)+1,pos(':',Stroka)-pos(' ',Stroka)-1));
  PrTimeLast.Sec:=StrToInt(copy(Stroka,pos(':',Stroka)+1,Length(Stroka)-pos(':',Stroka)));
  PrTimeFull.Sec:=StrToInt(copy(Stroka,1,pos(' ',Stroka)-1))
                  *PrTimeLast.Sec mod 60;
  PrTimeFull.Min:=StrToInt(copy(Stroka,1,pos(' ',Stroka)-1))
                  *PrTimeLast.Min + StrToInt(copy(Stroka,1,pos(' ',Stroka)-1))
                  *PrTimeLast.Sec div 60;
 
  // Очищення випадкового порядку питань ---
  for i:=1 to 255 do
    PrOrderQuestion[i]:=0;
  tempNomQuestion:=0;
 
  // --- вибір питаннь у випадковому порядку ---
  while tempNomQuestion<StrToInt(copy(Memo_Temp.Lines[1],1,pos(' ',Memo_Temp.Lines[1])-1)) do
      begin
        randomize;
        i:=1+random(StrToInt(copy(Memo_Temp.Lines[1],1,pos(' ',Memo_Temp.Lines[1])-1)));
        if PrOrderQuestion[i]=0 then
          begin
           inc(tempNomQuestion);
           PrOrderQuestion[i]:=tempNomQuestion;
          end;
      end;
 
  PrFillFileds(Sender);
 
  // Заповнення полів форми
  LblNameTest.Caption:=Memo_Temp.Lines[0];
 
  Lbl_FQuestion.Caption:=PrFormatConvert(PrTimeFull);
  Lbl_Last.Caption:=PrFormatConvert(PrTimeLast);
  NomQuestion:=1;
  MITBegin.Enabled:=False;
  MITEnd.Enabled:=True;
  GBox.Visible:=True;
  PanelButton.Visible:=True;
  Timer1.Enabled:=True;
end;
   // меню Допомога
procedure TForm1.N1Click(Sender: TObject);
begin
ShellExecute(Application.Handle,'open','Test_Help.hlp',nil,nil,0);
//Application.HelpFile := 'Test.chm'; /////////// hеlp файл
end;
 
// Натиснення на кнопку з варіантом відповіді
 
procedure TForm1.PrClickButton(Sender: TObject);
begin
  if StrToInt(Memo_Temp.Lines[7+6*(NomQuestion-1)])=(Sender as TButton).Tag Then
    begin
      ShowMessage('Вірно!');
      inc(PrVAnsverOK);
    end
   else ShowMessage('Невірно!');
  PrTimeOut(Sender);
end;
 
procedure TForm1.MIExitClick(Sender: TObject);
begin
  Close;
end;
 
end.

Благодарю за внимание.

@Arcor · 30.04.2011, 02:15

на сколько я понял из этого большого кода, вы просо не открыли файл для записи или чтения, а просто попытались записать в него что-то
например строки 194-198- ведется запись, а куда??? а файл, а в какой??? Просто пишем куда-то, это сравнимо с тем что пишем, не открыв тетради.... Нужно вставить Reset(тут название открываемого файла) чтобы открыть для чтения или записи

извините если что-то пропустил или не увидел, просто код большой,за всем не уследишь

@sansanych · 30.04.2011, 10:51 **[ТС]**

Спасибо, но разве строчка 195

Delphi

1	Append (MyTextF);

не открывает файл для ДОзаписи? мне как раз и нужно, чтобы предыдущие записи в файле остались, а новая появилась. Тут, мне кажется, проблема в донастройках дополнения к Delphi - AlphaLite. Я ее скачал и установил для смены скина программы. До того как ее активировать, работа с файлом происходит как надо. Может кто пользовался этим дополнением и знает, как мне можно помочь? Или же, что другое можете посоветовать для смены дизайна?
***
И попутно еще один вопрос: как можно вызвать только значение одной переменной в строчке поля Memo, когда кроме нее туда записано еще 2 переменные? (запить в Мемо в Форме 2 Проэкта 1)

Delphi

1	Memo_Temp.Lines.Add(Edt_Kol.Text+' '+Edt_TimeMin.Text+':'+Edt_TimeSec.Text);

А вот записть в Форме 1 Проэкта 1 (если можно, то обьясните, что тут написано)

Delphi

1	Form2.Edt_Kol.Text:=copy(Memo_Temp.Lines[1],1,pos(' ',Memo_Temp.Lines[1])-1);

Да, и если не до конца запутал, то в Проэкте 2, когда я пишу скажем Memo_Temp.Lines[1], то у меня повляется значение всей строки, а мне нужно, только переменная Edt_Kol.Text
Прошу прощение, если неясно излагаю свой вопрос

Добавлено через 1 минуту
Спасибо, но разве строчка 195

Delphi

1	Append (MyTextF);

не открывает файл для ДОзаписи? мне как раз и нужно, чтобы предыдущие записи в файле остались, а новая появилась. Тут, мне кажется, проблема в донастройках дополнения к Delphi - AlphaLite. Я его скачал и установил для смены скина программы. До того как ее активировать, работа с файлом происходит как надо. Может кто пользовался этим дополнением и знает, как мне можно помочь? Или же, что другое можете посоветовать для смены дизайна?
***
И попутно еще один вопрос: как можно вызвать только значение одной переменной в строчке поля Memo, когда кроме нее туда записано еще 2 переменные? (запить в Мемо в Форме 2 Проэкта 1)

Delphi

1	Memo_Temp.Lines.Add(Edt_Kol.Text+' '+Edt_TimeMin.Text+':'+Edt_TimeSec.Text);

А вот записть в Форме 1 Проэкта 1 (если можно, то обьясните, что тут написано)

Delphi

1	Form2.Edt_Kol.Text:=copy(Memo_Temp.Lines[1],1,pos(' ',Memo_Temp.Lines[1])-1);

Да, и если не до конца запутал, то в Проэкте 2, когда я пишу скажем Memo_Temp.Lines[1], то у меня повляется значение всей строки, а мне нужно, только переменная Edt_Kol.Text
Прошу прощение, если неясно излагаю свой вопрос

@Puporev · 30.04.2011, 11:48

Сообщение от sansanych

А вот записть в Форме 1 Проэкта 1 (если можно, то обьясните, что тут написано)

Копируем в Эдит часть текста из второй строки Мемо от начала до первого пробела, без него.

Добавлено через 2 минуты
Кстати, это и есть значение Edt_Kol.Text

@sansanych · 30.04.2011, 11:59 **[ТС]**

Мда... почему я сам не догадался это проверить... стыдно
Спасибо тебе Puporev!

А по поводу работы с файлом можете, что сказать?

@Puporev · 30.04.2011, 12:03

Тут, мне кажется, проблема в донастройках дополнения к Delphi - AlphaLite.

Про это я не знаю.

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	30.04.2011, 02:15	2
	на сколько я понял из этого большого кода, вы просо не открыли файл для записи или чтения, а просто попытались записать в него что-то например строки 194-198- ведется запись, а куда??? а файл, а в какой??? Просто пишем куда-то, это сравнимо с тем что пишем, не открыв тетради.... Нужно вставить Reset(тут название открываемого файла) чтобы открыть для чтения или записи извините если что-то пропустил или не увидел, просто код большой,за всем не уследишь 1

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	30.04.2011, 11:48	4
	Сообщение от sansanych А вот записть в Форме 1 Проэкта 1 (если можно, то обьясните, что тут написано) Копируем в Эдит часть текста из второй строки Мемо от начала до первого пробела, без него. Добавлено через 2 минуты Кстати, это и есть значение Edt_Kol.Text 1

@sansanych 0 / 0 / 0 Регистрация: 25.04.2011 Сообщений: 11
	30.04.2011, 11:59 [ТС]	5
	Мда... почему я сам не догадался это проверить... стыдно Спасибо тебе Puporev! А по поводу работы с файлом можете, что сказать? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	30.04.2011, 12:03	6
	Тут, мне кажется, проблема в донастройках дополнения к Delphi - AlphaLite. Про это я не знаю. 0