Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> (Помог-те доп-ть код) Записи и файлы - Delphi, DELphi 
:(
    Опции темы
username12
Дата 20.12.2015, 16:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 21
Регистрация: 4.11.2015

Репутация: нет
Всего: нет



(Помогите дописать код Записи и файлы.
В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его номер, тип автобуса, пункт назначения, время отправления и прибытия. Вывести информацию о рейсах, которыми можно воспользоваться для прибытия в пункт назначения раньше заданного времени.


Код

unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
 
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Memo1: TMemo;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
BitBtn1: TBitBtn;
 
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button5Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
 
 
private
{ Private declarations }
public
{ Public declarations }
end;
Type 
Tavt=record 
Nmar: integer; 
Tipavt: string[20]; 
Punkt: string[20]; 
VrOtpr: TDateTime; 
VrPr: TDateTime;
end;
Var
Fz:File of Tavt; // Файл типа запись
Ft:TextFile; // Текстовой файл
Avto:array[1..100] of Tavt;// Массив записей
nzap:integer; // Номер записи
FileNameZ, FileNameT : string;// Имя файла
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
Edit1.Text:='';
Edit2.Text:=''; 
Edit3.Text:=''; 
Edit4.Text:=''; 
Edit5.Text:='';
Memo1.Clear; // Очистка окна редактора Memo1
Memo1.Lines.Add('Лаб.раб.№6 ');
Memo1.Lines.Add('__________________ ___________________________________ ____________________________');
Memo1.Lines.Add('№ маршр | тип авт | пункт наз | время отпр | время приб ');
Button1.Hide; // Сделать невидимой кнопку "Ввести запись"
nzap:=0; 
end;
 
procedure TForm1.Button1Click(Sender: TObject); // Ввести новую запись
begin
nzap:=nzap+1;
with Avto[nzap] do begin 
Nmar:=StrToInt(Edit1.Text); 
Tipavt:=Edit2.Text; 
Punkt:=Edit3.Text; 
VrOtpr:=StrToTime(Edit4.Text); 
VrPr:=StrToTime(Edit5.Text);
Memo1.Lines.Add(IntToStr(Nmar)+' '+Tipavt+' '+Punkt+' '
+timeToStr(VrOtpr)+' '+timeToStr(VrPr));
end;
Write(fz,Avto[nzap]); // Запись в файл 
Edit1.Text:=''; 
Edit2.Text:=''; 
Edit3.Text:=''; 
Edit4.Text:=''; 
Edit5.Text:=''; 
end;
procedure TForm1.Button2Click(Sender: TObject); // Создание нового файла записей
begin
OpenDialog1.Title :='Создать новый файл'; // Изменение заголовка окна диалога 
if OpenDialog1.Execute then // Выполнение стандартного диалога выбора имени файла 
begin
FileNameZ:= OpenDialog1.FileName; // Возвращение имени дискового файла
AssignFile(Fz,FileNameZ); // Связывание файловой переменной Fz c именем файла
Rewrite(Fz); // Создание нового файла
end; 
Button1.Show;
 
end;
 
 
procedure TForm1.Button3Click(Sender: TObject); // Открыть существующий файл
begin
 
if OpenDialog1.Execute then // Выполнение стандартного диалога выбора имени файла 
begin
FileNameZ:=OpenDialog1.FileName; // Возвращение имени дискового файла
AssignFile(Fz, FileNameZ); // Связывание файловой переменной Fz c именем файла 
Reset(Fz); // Открытие существующего файла 
end; 
while not eof(fz) do begin 
nzap:=nzap+1; 
Read(fz,Avto[nzap]); // Чтение записи из файла 
with Avto[nzap] do
Memo1.Lines.Add(IntToStr(Nmar)+' '+Tipavt+' '+Punkt+' '
+TimeToStr(VrOtpr)+' '+TimeToStr(VrPr));
end;
Button1.Show; // Сделать видимой кнопку "Ввести запись"
end;
 
 
procedure TForm1.Button5Click(Sender: TObject);// Сохранение результатов в текстовом файле
var i:word;
begin
if SaveDialog1.Execute then // Выполнение стандартного диалога выбора имени файла
begin
FileNameT:=SaveDialog1.FileName; // Возвращение имени дискового файла
AssignFile(Ft, FileNameT); // Связывание файловой переменной Ft c именем файла
Rewrite(Ft); // Открытие нового текстового файла
end;
for i:=1 to nzap do
with Avto[i] do Writeln(ft,
IntToStr(Nmar)+' '
+Tipavt+' '
+Punkt+' '
+TimeToStr(VrOtpr)+' '
+TimeToStr(VrPr));
CloseFile(Ft); // Закрытие текстового файла
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
CloseFile(fz); // Закрытие файла записей при нажатии на кнопку "Сlose"
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CloseFile(fz); // Закрытие файла записей при нажатии на кнопку (закрыть крестик) 
end;
 
end.

PM MAIL   Вверх
mikeyess
Дата 21.12.2015, 08:54 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 0
Регистрация: 7.1.2014

Репутация: нет
Всего: нет



Добрый день.
Хотите, чтобы нормально работал, используйте записи (Record).
С уважением, Mike

Этот ответ добавлен с нового Винграда - http://vingrad.com
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0670 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.