|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
del
delete delete
Последний раз редактировалось Andrew93, 26.03.2018 в 20:19. |
#2
|
||||
|
||||
Если ничего особенного в проекте не менять, примерно так:
Код:
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; P.S. Забыл уточнить, ставим StringGrid в режим редактирования, вводим все нужные данные вручную, сохраняем. И... только после этого можно пользоваться кнопко "загрузить". Полученный файл не рекомендуется править вручную, без понимания основ хранения информации в таких файлах. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. Последний раз редактировалось angvelem, 21.12.2011 в 01:00. |
#3
|
|||
|
|||
delete delete
Последний раз редактировалось Andrew93, 26.03.2018 в 20:19. |
#4
|
||||
|
||||
Проверяй где напутал.
P.S. Данные были введены и уже сохранены в файл. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Andrew93 (29.12.2011)
|
#5
|
|||
|
|||
delete delete
Последний раз редактировалось Andrew93, 26.03.2018 в 20:19. |