Сохранить в файле слишком длинную запись

[Virga]

Заранее прошу прощения за дилетантский вопрос. Записи надо сохранить, а потом загрузить при следующем открытии в эту же таблицу. Пока таблица маленькая - все работает, но мне нужна огромная таблица.StringGrid (Row - 170, Col - 60.) Короче выдается ошибка "Одна или несколько строчек слишком длинные и будут удалены. Ну и, естественно, - сохраняется только часть. А потом еще Read не различает записи.
Листинг на три поля -работает - вот он:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
type
TMember = record
Name : string[50];
eMail : string[30];
Posts : string[30];   end;
var Members : array[1..5] of TMember;
    F : file of TMember;
    i:Integer;
begin
  AssignFile(F, 'C:\Documents and Settings\Âåðà\Ðàáî÷èé ñòîë\Members.dat');
  Rewrite(F);
  for i := 1 to 5 do
  begin

  Members[i].Name:=StringGrid1.Cells[0,i-1];
   Members[i].eMail:=StringGrid1.Cells[1,i-1];
   Members[i].Posts:=StringGrid1.Cells[2,i-1];
  
  end;
try   
for i:= 1 to 5 do
Write (F, Members[i]);  
finally    CloseFile(F);  
end; end; 


procedure TForm1.Button2Click(Sender: TObject);
type
 TMember = record
Name : string[50];
eMail : string[30];
Posts : string[30];   end;
var Member: TMember;
F : file of TMember;
i:Integer;
Members : array[1..5] of TMember;
begin

for i := 1 to 5 do
begin
 AssignFile(F,'C:\Documents and Settings\Âåðà\Ðàáî÷èé ñòîë\members.dat');
Reset(F);
Seek(F,i-1);
try

Read (F, Member);
 StringGrid2.Cells[0,i-1]:=Member.Name;
 StringGrid2.Cells[1,i-1]:=Member.eMail;
 StringGrid2.Cells[2,i-1]:=Member.Posts;
finally   CloseFile(F);  end;  end;

end;
end.

А на мое колличество полей и записей - этот же листинг - не фурычит. Может кто поможет? А? Или есть другие методы рещения моей задачи?

[Stilet]

Короче выдается ошибка "Одна или несколько строчек слишком длинные и будут удалены.

Это при сохранении выдается? Ну замени [50] на [5000]
Или поменяй стратегию - юзай открытый String.

[hoza_syl]

Лутше описать файл не как file of ..., а просто TextFile. Сохранять надо же простые текстовые строчки. Так будет намного проще. Если надо листинг - проси - напишу.

[Virga]

Да нет, Нужно сохранять именно как записи, а не текст, так как надо еще дальше работать с этой таблицей и записями. Уважаемый Stilet, где поменять 50 на 5000? Извещение о том, что слишком длинная запись появляется даже при сохранении полностью пустой таблицы.

[hoza_syl]

Virga, ты думаеш, что если сохранить все в текстовый файл, то потом нельзя будет загрузить это дело в записи???? С текстовыми файлами работать намного проще. Листинг не пишу - впадло зря парится (это на случай если ты не захочеш пробовать через текст) , но если все таки решишь - напишы и я за пару минут сделаю.

[Virga]

Упрощенно говоря, эта таблица - график работы людей. Справа - человек, верхняя строчка - дата, а на пересечении - объекты на которых работают эти люди. У меня получилось написать переходы - человек-объект, объект -человек, дата-объект и так далее. Все работает, но вот только проблемка с сохранением, члишком много записей.

[Virga]

Спасибочки большое Hoza_sy, но я в текстовом тоже умею сохранять.А текстовый против вирусов плохо защищен.

[hoza_syl]

Настаиваю на текстовом файле:
надо сделать файл примерно такого формата:

Name1 E-Mail1 Posts1
Name2 E-mail2 Posts2
...
...

и так дальше.

Сохраниние:

procedure TForm1.SaveRecords;
type
TMember = record
Name : string[50];
eMail : string[30];
Posts : string[30];   end;
var Members : array[1..5] of TMember; 
    F : textfile;  //Здесь изминил
    i:Integer;
begin
  AssignFile(F, 'D:\data.dat');
  Rewrite(F);

  for i := 1 to 5 do
  begin
    Members[i].Name:=StringGrid1.Cells[0,i-1];
     Members[i].eMail:=StringGrid1.Cells[1,i-1];
     Members[i].Posts:=StringGrid1.Cells[2,i-1];  
  end;

 try   
//И здесь изминил
  for i:= 1 to 5 do
    begin
      Write (F, Members[i].name);  
      Write (F, Members[i].eMail); 
      WriteLn (F, Members[i].Posts);
    end;
 finally    CloseFile(F);  
 end; 
end;

Чтение аналогичное. !!!!Главное два раза read, а третий readln - чтобы перейти на новую строчку.

[hoza_syl]

Мы вместе запостили.

А текстовый против вирусов плохо защищен.

))

[Virga]

Спасибо огромное, пока замолкаю - буду ковырять твой листинг относительно своей большой таблицы. Скажу, если че выйдет. Просто на текстовом файле мы уже прогорели. У меня на работе система и каждый со своей вирусной флешкой лезет. Один раз без зарплаты остались, так вирус текстовый файл побил. Еще раз спасибки!