Программирование на Delphi 7

{ Щелчок мыши по серии }

begin

  ShowMessage(' Выбрали серию: '+Series.Title+'; точку N: '+

     inttostr(valueindex+1)+' со значением Y= '+floattostr(Series.YValues.Value[valueindex]));

end;

procedure TForm1.FormActivate(Sender: TObject);

{ Настройка компонента }

begin

  Chart1.title.text.clear; Chart1.title.text.add('Пример'); Chart1.title.text.add('двух графиков');

  Chart1.series[0].title:='Серия-1'; Chart1.series[1].title:='Серия-2';

  Chart1.series[0].SeriesColor:=clBlue; Chart1.series[1].SeriesColor:=clRed;

  Chart1.cursor:=crCross; { Вид курсора над графиками в виде прицела }

end;

procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);

{ Перемещение мыши над графиком }

begin

  StatusBar1.Panels[0].Text := 'x='+floattostr(x)+ ' y='+floattostr(y);

  StatusBar1.Panels[1].Text := 'x='+floattostr( chart1.series[0].XScreenToValue(x))+

    ' y='+floattostr(chart1.series[0].YScreenToValue(y));

end;

Данный компонент имеет очень много возможностей и настроек, которые можно узнать из справочной системы «Delphi».

4. ПРОСТЕЙШАЯ РАБОТА СО ЗВУКОМ

procedure TForm1.Button1Click(Sender: TObject);

var k,i,j:integer;

begin

k:=strtoint(edit1.Text);

for k := 0 to k-1 do begin

Windows.Beep(10000,500);// verhnee podcherkuivanie

  for I := 0 to 50 do Windows.Beep((184*i)+800,10); // /

  for j := 50 downto 0 do Windows.Beep((184*j)+800,10); // \

  sleep(500); // Niznee podcherkivanie

  for I := 0 to 50 do Windows.Beep((184*i)+800,10) ;

  Windows.Beep(10000,500);

  Windows.Beep(10000,500);

  Windows.Beep(10000,500);

end;

ЛЕКЦИЯ № 9

1. РАБОТА С ФАЙЛАМИ И ТИПИЗИРОВАННЫМИ ДАННЫМИ

Описание файловой переменнойvar f: textfile;Переменная для работы с текстовым файломvar f: file of tPers;Переменная для работы с типизированным файломvar f: file of integer;Переменная для работы с типизированным файломОткрытие и закрытие файлаAssignFile(f,'d:\1.txt');Связь файловой переменной с файлом на дискеappend(f);Открываем файл на добавление в конецreset(f);Открываем существующий файл на чтение (для типизированных файлов – и на запись)rewrite(f);Создаем файл на записьCloseFile(f);Закрытие файлаЗапись и чтение в файлwrite(f,t);Вывод типизированных данных в файлwriteln(f,'Привет!');Вывод текстовых данных в файлread(f,t);Читаем типизированное данное из файлаreadln(f,s);Читаем текстовую строку из файлаПеремещение на нужную запись в файлеseek(f,2);Переход на нужную запись (с нуля)while not eof(f) doПока не конец файла – циклk:=FilePos(f);Чтение текущей позиции в файлеk:=FileSize(f);Чтение размера файла в байтах

1. Запись текстовых данных в файл

procedure TForm6.Button1Click(Sender: TObject);

// Запись текстовых данных в файл

var f: textfile; // Переменная для работы с текстовым файлом

begin

  AssignFile(f,'d:\1.txt'); // Связь файловой переменной с файлом на диске

  rewrite(f); // Открываем файл на запись с очисткой

// append(f); // Открываем файл на добавление в конец

  writeln(f,'Привет!'); // Вывод данных в файл

  writeln(f,'Создаем новый файл на диске.');

  CloseFile(f); // Закрываем файл

end;

2. Чтение текстовых данных из файла

procedure TForm6.Button2Click(Sender: TObject);

// Чтение данных из файла

var f: textfile; // Переменная для работы с текстовым файлом

    s: string;

begin

  memo1.Clear; // Очистка мемо-поля

  AssignFile(f,'d:\1.txt'); // Связь файловой переменной с файлом на диске

  reset(f); // Открываем файл на чтение

  while not eof(f) do begin // Пока не конец файла – цикл

    readln(f,s); // Читаем текстовую строку из файла

    memo1.Lines.add(s); // Заносим считанную строку в мемо-поле

  end;

  CloseFile(f); // Закрываем файл

end;

3. Запись типизированных данных в файл

type // Описание типа-записи

  tPers = record

    fam: string[50];

    name: string [50];

    year: integer;

    height: real;

  end;

var f: file of tPers; // Переменная для работы с типизированным файлом

    t: tpers; s: string;

. . .

procedure TForm6.Button3Click(Sender: TObject);

// Запись типизированных данных в файл

begin

  // Задаем переменную-запись

  t.fam:='Петров'; t.name:='Василий'; t.year:=18; t.height:=58.2;

AssignFile(f,'d:\1.dat'); // Связь файловой переменной с файлом на диске

  // можно так:

     rewrite(f); // Создаем файл заново

// или так:

// reset(f); // Открываем существ. типизированный файл на чтение и запись

// seek(f,strtoint(edit1.Text)); // Перемещаемся на любую нужную запись

  write(f,t); // Сохраняем запись в текущей позиции в файле

  CloseFile(f); // Закрываем файл

end;

4. Чтение типизированных данных из файла

procedure TForm6.Button4Click(Sender: TObject);

// Чтение типизированных данных из файла

begin

  // Задаем переменную-запись

  memo1.Clear; // Очистка мемо-поля

  AssignFile(f,'d:\1.dat'); // Связь файловой переменной с файлом на диске

  reset(f); // Открываем файл на чтение

  while not eof(f) do begin // Пока не конец файла – цикл

    read(f,t); // Читаем запись из файла

    // Заносим считанные данные в мемо-поле

    memo1.Lines.add(t.fam);

    memo1.Lines.add(t.name);

    memo1.Lines.add(inttostr(t.year));

    memo1.Lines.add(floattostr(t.height));

  end;

  CloseFile(f); // Закрываем файл

end;

5. Чтение записи из типизированного файла

procedure TForm6.Button5Click(Sender: TObject);

// Чтение записи из типизированного файла с данными

begin

  // Задаем переменную-запись

  memo1.Clear; // Очистка мемо-поля

  try

  AssignFile(f,'d:\1.dat'); // Связь файловой переменной с файлом на диске

  reset(f); // Открываем файл на чтение

  try

   // Пример с чтением конкретной записи

    seek(f,strtoint(edit1.text)); // Переход на нужную запись (с нуля)

    read(f,t); // Читаем запись из файла

    memo1.Lines.add(t.fam); // Заносим считанную строку записи в мемо-поле

  except

    showmessage('Нет такой записи!');

  end;

  CloseFile(f); // Закрываем файл

  except

    showmessage('Нет доступа к файлу!');

  end;

end;