O sentimento encontrado online é muito inspirador para iniciantes e colecioná -lo!
No.1 Determine o tipo de lógica}
var B: booleano;
Começar
B: = booleano (2);
se b = true então showMessage ('b = true');
///////////////////
Se B Then ShowMessage ('B');
fim;
var B: booleano;
Começar
se edit1.text = 'sim' então // não é recomendado // brifty
B: = Verdadeiro
else b: = false;
///////////////////
B: = Edit1.Text = 'Sim';
fim;
{No.2 Consulta SQL temporária}
Começar
Querytemp.close;
Querytemp.sql.text: = 'Selecione soma (valor) como total da tabela de vendas';
Querytemp.open;
ShowMessage (query1.fieldbyname ('total'). Asstring);
////////
Querytemp.sql.text: = 'Selecione soma (valor) como total da tabela de vendas';
Querytemp.open;
ShowMessage (query1.fieldbyname ('total'). Asstring);
Querytemp.close;
fim;
{No.3 Obtenha o número de registros}
var
vRecordCount: Inteiro;
Começar
Query1.sql.text: = 'Selecione * da Tabela1';
Query1.open;
vRecordCount: = query1.recordCount;
Query1.close;
////////
Query1.sql.text: = 'Selecione contagem (*) como número de registro da tabela1';
Query1.open;
vRecordCount: = query1.fieldbyname ('registros'). Asinteger;
Query1.close;
ShowMessage (inttostr (vRecordCount));
fim;
{No.4 Campo Atribuição}
Começar
Tabela1.edit;
Tabela1.FieldByName ('Nome'). Asstring: = Edit1.Text;
Tabela1.FieldByName ('Date'). AsdateTime: = Date;
////////
Tabela1 ['nome']: = edit1.text;
//Table1.fieldValues Oh'Name ']: = Edit1.Text; e Paramvalues []
Tabela1 ['Data']: = Date;
fim;
{No.5 usando o auto -ponteiro}
Começar
Edit1.parent: = Form1;
///////////////////
Edit1.parent: = self; // sugestões
fim;
{No.6 Traversal of DataSet}
var
I: Inteiro;
Começar
Query1.first;
para i: = 0 para Query1.RecordCount - 1 Comece // não recomendado // fácil de ser afetado
Query1.next;
{};
fim;
////////
Query1.first;
Enquanto não query1.eof comece // sugestões
{}
Query1.next;
fim;
fim;
{No.7 Use parâmetros do remetente para tornar o código comum}
Procedimento TForm1.edit1Change (remetente: TObject);
Começar
se edit1.text = '' então // não é recomendado
Edit1.color: = clred;
///////////////////
Se TEDIT (remetente) .Text = '' então // sugeriu // é muito conveniente copiá -lo para editxchange
TEDIT (remetente) .color: = clred;
fim;
{No.8 Use a função de conversão padrão}
var
I: Inteiro;
Começar
I: = strtoint (edit1.text);
///////////////////
I: = strTointDef (edit1.text, 0); // sugestões // referência strtofloatdef, strtodateft ... mas estes estão disponíveis apenas no Delphi6.
fim;
{No.9 Array Traversal}
var
I: Inteiro;
A: Array [0..9] de Inteiro;
Começar
para i: = 0 a 9 do // não recomendado
A [i]: = i;
///////////////////
para i: = baixo (a) a alto (a) fazer // sugerido // boa expansão
A [i]: = i;
fim;
{No.10 utiliza o maxint constante}
Começar
Legenda: = copy (edit1.text, 3, comprimento (edit1.text) - 3 + 1);
///////////////////
Legenda: = cópia (edit1.text, 3, maxint);
fim;
{No.11 Função de resultado ponteiro}
função funcname: boolean;
Começar
Funcname: = true;
///////////////////
Resultado: = true;
fim;
função funcsum (a: matriz de inteiro): inteiro;
var i: número inteiro;
Começar
Resultados: = 0;
para i: = baixo (a) a alto (a) fazer
Resultado: = Resultado + A [i];
fim;
{No.12 O código que deve ser executado, use tente ... finalmente ... declaração final}
var
VStringList: TStringList;
Começar
vStringList: = tStringList.create;
vStringList.loadFromfile ('C: /temp.txt');
ShowMessage (vStringList.Text);
vStringList.Free;
///////////////////
vStringList: = tStringList.create;
tentar
vStringList.loadFromfile ('C: /temp.txt');
ShowMessage (vStringList.Text);
Finalmente // sugestões // aplicá -lo mesmo que a saída apareça
vStringList.Free;
fim;
fim;
// Outros casos 1
Começar
Screen.cursor: = CRHOURGLASS;
tentar
{Operação demorada}
Finalmente
Screen.cursor: = crDefault;
fim;
fim;
// Outros casos 2
Começar
Query1.disableControls;
tentar
{Conjunto de dados operacional}
Finalmente
Query1.enableControls;
fim;
fim;