Сохранение и считывание файлов в стринггриде

[nimbus2000]

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Type MyRec=Record
           Name:string[10];
           Surname:string[10];
           Age:integer;
           city:string[10];
           street:string[10];
        End;
Var MyVar:MyRec;  f:File of MyRec; i:integer;
begin
AssignFile(f,'d:\text.txt');
Rewrite(f);
for  i:=1 to stringgrid1.rowCount-1 do begin
  MyVar.Name:=stringgrid1.Cells[1,i];
  MyVar.Surname:=stringgrid1.Cells[2,i];
  MyVar.Age:=strtoint(stringgrid1.Cells[3,i]);
  MyVar.City:=stringgrid1.Cells[4,i];
  MyVar.Street:=stringgrid1.Cells[5,i];  
  Write(f,MyVar);
end;
Closefile(f);

end;
procedure TForm1.Button2Click(Sender: TObject);

Type MyRec=Record
           Name:string[10];
           Surname:string[10];
           Age:integer;
           city:string[10];
           street:string[10];
        End;

Var MyVar:MyRec;  f:File of MyRec; i:integer;
begin
  AssignFile(f,'d:\text.txt');
  Reset(f);
  i := FileSize(f); 
  stringgrid2.rowCount := i ;
  for  i:=1 to stringgrid2.rowCount-1 do begin
     Read(f, MyVar);
     stringgrid2 .Cells[1,i] := MyVar.Name;
     stringgrid2.Cells[2,i] := MyVar.Surname;
     stringgrid2.Cells[3,i] := IntToStr(MyVar.Age);
     stringgrid2.Cells[4,i] := MyVar.City;
     stringgrid2.Cells[5,i] := MyVar.Street;
  end;
  Closefile(f);
end;

Проблема вот в чем:сам файл создаётся ,но в него ничего не записывается.Может это как-нибудь связано с ОС?у меня 7-ка стоит если чё.Или всё-таки ошибка в программе?Хелп плиз.

[BDA]

Вот так у меня работает:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

type MyRec = record
    Name: string[10];
    Surname: string[10];
    Age: integer;
    city: string[10];
    street: string[10];
  end;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var MyVar: MyRec;
  f: file of MyRec;
  i: integer;
begin
  AssignFile(f, 'text.txt');
  Rewrite(f);
  for i := 1 to stringgrid1.rowCount - 1 do begin
    MyVar.Name := stringgrid1.Cells[1, i];
    MyVar.Surname := stringgrid1.Cells[2, i];
    MyVar.Age := strtoint(stringgrid1.Cells[3, i]);
    MyVar.City := stringgrid1.Cells[4, i];
    MyVar.Street := stringgrid1.Cells[5, i];
    Write(f, MyVar);
  end;
  Closefile(f);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  MyVar: MyRec;
  f: file of MyRec;
  i: integer;
begin
  AssignFile(f, 'text.txt');
  Reset(f);
  stringgrid2.rowCount := FileSize(f) + 1;
  for i := 1 to stringgrid2.rowCount - 1 do begin
    Read(f, MyVar);
    stringgrid2.Cells[1, i] := MyVar.Name;
    stringgrid2.Cells[2, i] := MyVar.Surname;
    stringgrid2.Cells[3, i] := IntToStr(MyVar.Age);
    stringgrid2.Cells[4, i] := MyVar.City;
    stringgrid2.Cells[5, i] := MyVar.Street;
  end;
  Closefile(f);
end;

end.

[nimbus2000]

У меня всё-равно не работает ХЕЛППППППППП

[BDA]

Зачем вам путь d:\text.txt?
Создайте файл около exe-файла. Возможно, у программы не хватает полномочий писать в ту папку.
Прикладываю работающий проект.

[nimbus2000]

создал в ту же папку,где и ,собст-но,сама прога.Не хочет работать=((Тупая 7-ка

[nimbus2000]

Урааа Ваща версия работает))спасиб,только вот ещё остался один вопрос.Как сделать так,чтобы в блокноте он не на китайском писал.Как кодировку сменить,а то он иероглифи рисует вместо букв

[BDA]

Никак. Это не текстовый файл, а файл записей. При таком способе записи никак красиво не отобразить.

[nimbus2000]

балин.Ещё фигня одна выскочила.Кароч если писать не числа,то ошибку выдаёт.Мне ж нужен типизированный файл

[BDA]

Если писать вместо возраста не числа, то конечно выдаст.
Типизированный файл может содержать что угодно: и строки, и числа и т.д.

[nimbus2000]

где нужно писать числа я пишу числа,(а вданной программе числом является только 3 столбец )всё отсальное тип -строки.Но когда ввожу строку ,то ругается,А сели всё -числа то ок.эт фигово(