온라인으로 발견 된 느낌은 초보자에게 매우 고무적이며 수집합니다!
No.1 논리 유형 결정}
var B : 부울;
시작하다
B : = 부울 (2);
B = true 인 경우 showmessage ( 'b = true');
//////////////////
B는 ShowMessage ( 'B');
끝;
var B : 부울;
시작하다
edit1.text = '예'인 경우 // 권장하지 않습니다. // trifty
B : = 참
else b : = 거짓;
//////////////////
b : = edit1.text = '예'; // short
끝;
{No.2 임시 SQL 쿼리}
시작하다
querytemp.close;
QueryTemp.sql.text : = '판매 테이블에서 총액 (금액)을 선택하십시오.';
querytemp.open; // 권장되지 않음 // 자원 낭비가 발생합니다.
showMessage (Query1.fieldByName ( 'Total'). Asstring);
//////
QueryTemp.sql.text : = '판매 테이블에서 총액 (금액)을 선택하십시오.';
QueryTemp.open;
showMessage (Query1.fieldByName ( 'Total'). Asstring);
querytemp.close; // 사용 후 닫는 것이 좋습니다
끝;
{No.3 레코드 수 받기}
var
vrecordcount : 정수;
시작하다
query1.sql.text : = 'select * from table1';
쿼리 1. 오렌;
vrecordCount : = query1.recordCount;
query1.close;
//////
query1.sql.text : = 'count (*)의 레코드 번호로 선택하십시오. // 빠르고 효과적으로 하나의 레코드 만 처리됩니다
쿼리 1. 오렌;
vrecordCount : = Query1.fieldByName ( 'Records'). Asinteger;
query1.close;
showmessage (inttostr (vrecordcount));
끝;
{No.4 필드 과제}
시작하다
표 1.Edit;
Table1. FieldByName ( 'Name'). Asstring : = edit1.text;
Table1.FieldByName ( 'date'). ASDATETIME : = 날짜;
//////
table1 [ 'name'] : = edit1.text; // short and good 확장
//table1.fieldValues] : = edit1.text; // Borland가 제안한 방법; 그리고 매개 변수 []
표 1 [ 'date'] : = 날짜;
끝;
{No.5 셀프 포인터 사용}
시작하다
edit1.parent : = form1; 권장되지 않음 // form1은 단지 변수입니다. // 리소스가 할당되지 않으면 어떻게해야합니까?
//////////////////
edit1.parent : = self;
끝;
{No.6 데이터 세트의 트래버스}
var
I : 정수;
시작하다
쿼리 1. 첫 번째;
i : = 0 to query1.recordCount -1 시작 // 권장하지 않음 // 영향을 받기 쉬운
query1.next;
{};
끝;
//////
쿼리 1. 첫 번째;
query1.eof는 아니지만 // 제안을 시작합니다
{}
query1.next;
끝;
끝;
{No.7 발신자 매개 변수를 사용하여 코드를 공통적으로 만듭니다}
절차 tform1.edit1change (sender : tobject);
시작하다
edit1.text = ''인 경우 // 권장하지 않습니다
edit1.color : = clred;
//////////////////
tedit (sender) .text = ''인 경우 // // editxChange에 복사하는 것이 매우 편리합니다.
Tedit (sender) .color : = clred;
끝;
{No.8 기본 변환 기능 사용}
var
I : 정수;
시작하다
i : = strtoint (edit1.text);
//////////////////
i : = strtointDef (edit1.text, 0); // 제안 // strtofloatdef, strtodatedef 참조 ... 그러나 delphi6에서만 사용할 수 있습니다.
끝;
{No.9 Traversal Array}
var
I : 정수;
A : 정수의 배열 [0..9];
시작하다
i : = 0 ~ 9의 경우 // 권장하지 않습니다
a [i] : = i;
//////////////////
i : = 낮은 (a)에서 높음 (a) do // 제안 된 // 좋은 확장
a [i] : = i;
끝;
{No.10은 Maxint Constant를 사용합니다}
시작하다
캡션 : = copy (edit1.text, 3, length (edit1.text) -3 + 1);
//////////////////
캡션 : = copy (edit1.text, 3, maxint);
끝;
{No.11 결과 함수 포인터}
함수 funcName : 부울;
시작하다
funcName : = true;
//////////////////
결과 : = = true; // 제안 // 좋은 확장
끝;
함수 funcsum (a : 정수 배열) : 정수;
var i : 정수;
시작하다
결과 : = 0;
i : = 낮은 (a)에서 높은 (a) do
결과 : = 결과 + a [i]; // funcsum : = funcsum + a [i];
끝;
{No.12 실행 해야하는 코드, 사용 시도 ... 마침내 ... END 문}
var
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;
끝;
끝;