type
TmyRecord = record
Numbers : String[25];
Types : String[25];
Citys : String[25];
Times : TDateTime;
end;
var
myRecord : array of TmyRecord;
f : File of TmyRecord;
...
procedure TForm1.btnLoadClick(Sender: TObject);
var
fName : String;
I : Integer;
begin
fName := 'table1.txt';
AssignFile(f, fName);
{$I-}
Reset(f);
{$I+}
if IOResult <> 0 then
begin
MessageDlg('Ошибка доступа к файлу ' + fName, mtError, [mbOk], 0);
Label2.Caption := '1';
Exit;
end;
I := 0;
while not Eof(f) do
begin
SetLength(myRecord, succ(I));
Read(f, myRecord[i]);
inc(I);
end;
for I := 0 to Length(myRecord) - 1 do
begin
StringGrid1.Cells[0, succ(I)] := myRecord[i].Numbers;
StringGrid1.Cells[1, succ(I)] := myRecord[i].Types;
StringGrid1.Cells[2, succ(I)] := myRecord[i].Citys;
StringGrid1.Cells[3, succ(I)] := TimeToStr(myRecord[i].Times);
end;
CloseFile(f);
end;
procedure TForm1.btnSaveClick(Sender: TObject);
var
fName : String;
I : Integer;
begin
fName := 'table1.txt';
AssignFile(f, fName);
Rewrite(f);
for I := 0 to Length(MyRecord) - 1 do
begin
myRecord[i].Numbers := StringGrid1.Cells[0, succ(I)];
myRecord[i].Types := StringGrid1.Cells[1, succ(I)];
myRecord[i].Citys := StringGrid1.Cells[2, succ(I)];
myRecord[i].Times := StrToTime(StringGrid1.Cells[3, succ(I)]);
Write(f, myRecord[i]);
end;
CloseFile(f);
MessageDlg('Данные записаны в файл ' + fName, mtInformation, [mbOk], 0);
end;
21.12.2011, 00:39
Линейный вид
