lektsia_2

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

Работа со списками
Вкладка standart
Tlistbox
TCombobox
Основные свойства
name – имя, используемое в программе listbox1или combobox1 соответственно.
items (элементы списка) – может устанавливаться как в программе, так и инспекторе объектов. Определяет значения элементов списка.
Itemindex - номер выбранного элемента списка. Номер первого элемента списка равен 0, если не выбран ни один элемент номер равен –1.
Например,
Case listbox1.itemindex of
0: команда;
1: команда;
2: и т.д.;
End;

listbox1.items[n]:=<выражение>; //присваивает значение элементу с номером n.
listbox1.items.count //количество элементов в списке
combobox1.items.add(‘строковое выражение’); //добавляет элемент в список
combobox1.items.delete(4); // удаляет 5 по счету строку
combobox1.items.clear; //Очищает список
combobox1.items.loadfromfile(‘имя’); //загружает данные из текстового файла
combobox1.items.savetofile(‘имя’); // сохраняет элементы списка в текстовом файле
Свойство только для Combobox.
combobox1.text // значение элемента, который выбран в списке.

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

Дан текстовый файл, содержащий информацию о сотовых телефонах: название модели, цена, изображение модели. Сформировать список из моделей телефонов. При выборе модели выводить на форму цену и изображение соответствующей модели.

price=record
tov: string[10];
cena: real;
kar: string[30]; //путь к файлу с изображением телефона
end;
var
f: textfile;
prl:price;

Oncreate, onactivate
procedure TForm1.FormCreate(Sender: TObject);
begin
assignfile(f,'g:\студенты\2 курс\888\tel.txt');
reset(f);
combobox1.Items.Clear;
while not eof(f) do begin
readln(f,prl.tov);
readln(f, prl.cena); readln(f, prl.kar);
combobox1.Items.Add(prl.tov);
end;
closefile(f);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if combobox1.Text='' then begin showmessage('Надо выбрать товар'); exit;end;
assignfile(f,'g:\студенты\2 курс\888\tel.txt');
reset(f);
while not eof(f) do begin
readln(f,prl.tov);
readln(f, prl.cena);
readln(f, prl.kar);
if trim(combobox1.text)=trim(prl.tov) then begin
label3.Caption:=floattostr(prl.cena);
image1.Picture.LoadFromFile(prl.kar);
end;
end;
closefile(f);
end;

Переключатели.
Вкладка Standart
- Tcheckbox - Tradiobutton
Основные свойства
Name - Имя компонента, используется в программе для доступа к свойствам компонента. Checkbox, radiobutton соответственно.
Caption - Текст, поясняющий назначение переключателя.
Checked - Определяет состояние, внешний вид переключателя. Если переключатель выбран, то checked=true. Если переключатель не выбран, то checked=false.
State - Определяет состояние переключателя. В отличие от свойства checked позволяет различать выбранное, невыбранное и промежуточное состояния. Состояние переключателя определяют константы: cbchecked (выбран), cbgrayed (серый, неопределенное состояние) и cbunchecked (не выбран).

Allowgrayed - Определяет, может ли переключатель быть в промежуточном, неопределенном состоянии. Если allowgrayed=false, то переключатель может быть только выбранным или невыбранным. Если allowgrayed=true, то промежуточное состояние допустимо.
Например:
If checkbox1.checked then
label2.caption:=’ максимальный элемент ‘ +inttostr(max);

Вкладка Win32
TDatetimepicker – календарь
Date – дата, которая выбрана.
Функции перевода даты
var
D: Tdatetime;
S: string[10];
Datetostr(d) – переводит дату в строку символов;
Strtodatetime() – переводит строку символов в дату-время
Strtodate() – переводит строку символов в дату
Now(), Date() –текущее значение даты
Label1.caption:=datetostr(datetimepicker1.date);
Var
D: Tdate;
G,m,dd: word;
Decodedate(d,g,m,dd) – преобразует дату в год, месяц, день. Дата должна быть записана через «.»

Строковая таблица TStringGrid вкладка Additional

Options - определяет внешний вид таблицы