Чувство, найденное в Интернете, очень вдохновляет начинающих и собирает его!
№ 1 определить логический тип}
var B: логический;
Начинать
B: = логическое (2);
Если b = true, то Showmessage ('b = true'); // Не рекомендуется // небезопасно
/////////////////////
Если b, то ShowMessage ('B');
конец;
var B: логический;
Начинать
Если Edit1.text = 'Да', тогда // не рекомендуется // trifty
B: = true
иначе b: = false;
/////////////////////
B: = edit1.text = 'Да';
конец;
{№ 2 Временный SQL -запрос}
Начинать
QueryTemp.close;
QueryTemp.sql.Text: = 'Выберите сумму (сумма) как общая из таблицы продаж';
QueryTemp.open;
ShowMessage (Query1.fieldbyName ('total'). Appring);
////////
QueryTemp.sql.Text: = 'Выберите сумму (сумма) как общая из таблицы продаж';
QueryTemp.open;
ShowMessage (Query1.fieldbyName ('total'). Appring);
QueryTemp.close;
конец;
{№ 3 Получите количество записей}
вар
vrecordcount: целое число;
Начинать
Query1.sql.text: = 'select * из таблицы 1';
Query1.open;
vrecordCount: = Query1.recordCount;
Query1.close;
////////
Query1.sql.Text: = 'Выберите Count (*) как номер записи из таблицы 1';
Query1.open;
vrecordcount: = Query1.fieldbyName ('records'). asinteger;
Query1.close;
ShowMessage (InttoStr (vrecordCount));
конец;
{№ 4 назначение поля}
Начинать
Таблица1.edit;
Table1.fieldbyName ('name'). Apstring: = edit1.text; // Не рекомендуется
Table1.fieldbyname ('date'). AsdateTime: = date;
////////
Таблица1 ['name']: = edit1.text;
//Table1.fieldvalues=name ']: = edit1.text; и paramvalues []
Таблица1 ['Дата']: = Дата;
конец;
{№ 5 с использованием самоочевидного указателя}
Начинать
Edit1.parent: = form1;
/////////////////////
РЕДАКТИРОВАТЬ1.parent: = Self;
конец;
{№ 6 обход набора данных}
вар
Я: целое число;
Начинать
Query1.first;
для i: = 0 Query1.recordCount - 1 DO BEGIN // Не рекомендуется // Легко повлиять
Query1.next;
{};
конец;
////////
Query1.first;
Пока не Query1.eof Do Begin // предложения
{}
Query1.next;
конец;
конец;
{№ 7 Используйте параметры отправителя, чтобы сделать код общим}
Процедура tform1.edit1change (отправитель: tobject);
Начинать
Если edit1.text = '', тогда // не рекомендуется
Edit1.color: = clred;
/////////////////////
Если TEDIT (отправитель) .Text = '' Then // Предлагаемо // очень удобно скопировать его в EditXChange
Tedit (отправитель) .color: = clred;
конец;
{№ 8 Используйте функцию преобразования по умолчанию}
вар
Я: целое число;
Начинать
I: = strtoint (edit1.text); // Не рекомендуется
/////////////////////
I: = strtointdef (edit1.text, 0); // Предложения // Справочник strtofloatdef, strtodatedef ... но они доступны только в Delphi6.
конец;
{№ 9 массив проезда}
вар
Я: целое число;
A: массив [0..9] целого числа;
Начинать
для i: = от 0 до 9 do // не рекомендуется
A [i]: = i;
/////////////////////
для i: = low (a) до высокого (а) do // Предлагаемое // Хорошее расширение
A [i]: = i;
конец;
{№ 10 использует Maxint Constant}
Начинать
Подпись: = Copy (edit1.text, 3, длина (edit1.text) - 3 + 1);
//////////////////////////////////////
Подпись: = Copy (edit1.text, 3, maxint);
конец;
{№ 11 указатель функции результата}
Функция FuncName: Boolean;
Начинать
FuncName: = true;
/////////////////////
Результат: = true;
конец;
функция Funcsum (a: массив целого числа): целое число;
var i: целое число;
Начинать
Результаты: = 0;
для i: = low (a) до высокого (а) сделать
Результат: = Результат + a [i];
конец;
{№ 12 Код, который должен быть выполнен, используйте Try ... наконец ... конечный оператор}
вар
vStringList: tStringList;
Начинать
vstringlist: = tstringlist.create;
vstringlist.loadfromfile ('c: /temp.txt');
ShowMessage (vstringlist.text);
vstringlist.free;
/////////////////////
vstringlist: = tstringlist.create;
пытаться
vstringlist.loadfromfile ('c: /temp.txt');
ShowMessage (vstringlist.text);
Наконец // предложения // обеспечивают его, даже если появится выход
vstringlist.free;
конец;
конец;
// другие случаи 1
Начинать
Screen.cursor: = Crhourglass;
пытаться
{Отрада по времени}
Окончательно
Screen.cursor: = crdefault;
конец;
конец;
// другие случаи 2
Начинать
Query1.disableControls;
пытаться
{Оперативный набор данных}
Окончательно
Query1.enableControls;
конец;
конец;