Ошибка на 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:

Ты объявил тип данных 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 - Спасибо. Ошибку осознал. Так все заработало.

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