- -
- 100%
- +
{ Щелчок мыши по серии }
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;