Создать типизированный файл, включающий в себя - имя, фамилию,пол,год рождения, должность, стаж, доход, премия, налог.

[nucweapon]

Вот такая ошибка(
Что делать не знаю...

procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
 var
   f:    File of tslug ;
   i, k: Integer;
 begin
   AssignFile(f, FileName);
   Rewrite(f);
   with StringGrid do
   begin
     // Write number of Columns/Rows
    Writeln(f, ColCount);
     Writeln(f, RowCount);
     // loop through cells
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
         Writeln(F, Cells[i, k]);
   end;
   CloseFile(F);
 end;

 // Load a TStringGrid from a file

procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
 var
   f:          File of tslug;
   iTmp, i, k: Integer;
   strTemp:    String;
 begin
   AssignFile(f, FileName);
   Reset(f);
   with StringGrid do
   begin
     // Get number of columns
    Readln(f, iTmp);
     ColCount := iTmp;
     // Get number of rows
    Readln(f, iTmp);
     RowCount := iTmp;
     // loop through cells & fill in values
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         Readln(f, strTemp);
         Cells[i, k] := strTemp;
       end;
   end;
   CloseFile(f);
 end;

// Save StringGrid1 to 'c:\temp.txt':

procedure TForm1.savebaseClick(Sender: TObject);
 begin
   SaveStringGrid(StringGrid1, 'C:\Users\1\Desktop\Base\base.dat');
 end;

 // Load StringGrid1 from 'c:\temp.txt':

procedure TForm1.zapbaseClick(Sender: TObject);
 begin
   LoadStringGrid(StringGrid1, 'C:\Users\1\Desktop\Base\base.dat');
 end;

[Serge_Bliznykov]

первое. у Вас же ошибка в описании типа tslug
а вы приводите совсем другой участок кода..

второе.

   f:    File of tslug ;
...
    Writeln(f, ColCount);
     Writeln(f, RowCount);

файл f у вас не текстовый, а вы пытаетесь с ним обращаться, как с текстовым. так НЕЛЬЗЯ!


ну и третье. выкладывайте исходный текст проекта (в архиве) прямо на форум.
Иначе это всё телепатия и лечение по фотографии!

[nucweapon]

Выложил файлы.
Насчет типизированного файла. Я профан в этом деле. Научился работать только с текстовиками(пока что)
base.rar - программа.
база.pdf - задание.