Скачать: CL | DM;

Ошибка на AssignFile   Найти похожие ветки 

← →
Игорь_   (2004-10-20 15:26) [0]

Господа объясните почему не работает

type
 TMyString=string[80];

 Student= record
   Name:string[10];
   Ball:Integer;
 end;
 ff= file of Student;
var
 fName: TMyString; // имя файла

Выдает ошибку на команду AssignFile(ff,fName);

---

← →
begin...end ©   (2004-10-20 15:29) [1]

Какую ошибку конкретно?

---

← →
begin...end ©   (2004-10-20 15:31) [2]

Да, и ff - это что? Судя по тому, как ты написал, так это вообще ТИП.

---

← →
Jay   (2004-10-20 15:32) [3]

fName строго String должно быть, выдаёт наверное несовместимость типов

---

← →
-=SS=- ©   (2004-10-20 15:33) [4]

Будет выдавать ошибку если путь к файлу больше 80 символов.
А чем тебе просто string не устраивает при указании имени файла ????

---

← →
-=SS=- ©   (2004-10-20 15:41) [5]

Student= record
  Name:string[10];
  Ball:Integer;
end;

var
ff : file of Student;
fName: String; // имя файла
 AssignFile(FF,FName);


---

← →
Игорь_   (2004-10-20 15:46) [6]

Всем, всем, всем...
Ошибка [Error] Unit1.pas(77): "(" expected but "," found

ff= file of Student - объявление типизированного файла.

Путь к файлу умещается в 80 символов

---

← →
Ega23 ©   (2004-10-20 15:47) [7]

Полный код приведи.

---

← →
begin...end ©   (2004-10-20 15:47) [8]

А ларчик просто открывался... :о(

---

← →
Игорь_   (2004-10-20 15:52) [9]

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Menus, StdCtrls, Grids;

type
 TMyString=string[80];

 Student= record
   Name:string[10];
   Ball:Integer;
 end;
 ff= file of Student;
 TForm1 = class(TForm)
  ......
var
 Form1: TForm1;
 i:Integer;
 buf: string;//буфер хранения строки
 fName: TMyString; // имя файла

procedure TForm1.N1Click(Sender: TObject);
//Запись в файл
begin

     fName:="C:\Temp\AAAA.dat";

     AssignFile(ff,fName);   ЗДЕСЬ ОШИБКА
     Rewrite(ff); // открыть для перезаписи
     // Запись в файл
     For i:=0 to Memo1.Lines.Count do
       writeln(ff,Memo1.Lines[i]);
     CloseFile(ff);//закрыть файл}
end;

---

← →
begin...end ©   (2004-10-20 15:55) [10]

ff= file of Student

ff: file of Student

Почувствуйте разницу...

---

← →
Игорь_   (2004-10-20 16:01) [11]

Разницу я чувствовал.
Но вот вопрос в методичке:

Объявите типизированный файл для сохранения данных создан-ного типа Student:
ff = ___________

там прописано ff = это что ошибка или что ???

---

← →
Jay   (2004-10-20 16:03) [12]

Пропиши в var ff:

---

← →
Ega23 ©   (2004-10-20 16:04) [13]

Ты объявил тип данных ff, который представляет из себя file of Student.

procedure TForm1.N1Click(Sender: TObject);
//Запись в файл
var
f:ff
begin

    fName:="C:\Temp\AAAA.dat";

    AssignFile(f,fName);   ЗДЕСЬ ОШИБКА
    Rewrite(ff); // открыть для перезаписи
    // Запись в файл
    For i:=0 to Memo1.Lines.Count do
      writeln(ff,Memo1.Lines[i]);
    CloseFile(ff);//закрыть файл}
end;


Так, надеюсь, понятно будет.

---

← →
Игорь_   (2004-10-20 16:10) [14]

Ega23 - Спасибо. Ошибку осознал. Так все заработало.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.022 c