Процедура открытия файла и считывания данных в таблицу
Отдельно
рассмотрим работу с файлами- считывание
из файла и запись в файл
procedure
TForm2.N2Click(Sender: TObject);
var
b:string;
F:TextFile;
m:String;
n:String;
i,j:Integer;
begin
if
OpenDialog1.Execute then
begin
b:=(OpenDialog1.FileName);
AssignFile(f,b);
Reset(f);
with
tab1 do
begin
readln(f,m);
readln(f,n);
RowCount:=StrToInt(m);
// кол строк считывается из 1-ой строки
файла
ColCount:=StrToInt(n);
// кол столбцов считывается из 2-ой
строки файла
for
i:=0 to ColCount-1 do
for
j:=1 to RowCount-1 do
begin
readln(f,m);
// считывается одно данное
из таблицы
cells[i,j]:=m;
end;
end;
end;
//
конец
with
CloseFile(F);
end;
// конец процедуры
//
процедура сохранения в файл данных из
таблицы
procedure
TForm2.N3Click(Sender: TObject);
var
F: TextFile; k: string; i,j:byte;
begin
SaveDialog1.Filter:=
'текстовый
файл|*.txt';
if
SaveDialog1.Execute then
begin
k:=(SaveDialog1.FileName);
AssignFile(F,k);
Rewrite(F);
with
tab1 do
begin
writeln(f,RowCount);
writeln(f,
ColCount);
for
i:=0 to ColCount-1 do
for
j:=1 to RowCount-1 do
writeln(f,cells[i,j]);
end;
CloseFile(F);
end;
end;
Для
проверки и запуска проекта выберите
EXE
–файл в этой папке.
15
