Oraciones recomendadas en Delphi

¡El sentimiento que se encuentra en línea es muy inspirador para principiantes y lo recoge!

No.1 Determinar el tipo de lógica}

Var B: booleano;

Comenzar

B: = booleano (2);

Si b = verdadero entonces showMessage ('b = true');

///////////////

Si B entonces ShowMessage ('B');

fin;

Var B: booleano;

Comenzar

if edit1.Text = 'Yes' entonces // no recomendado // trifty

B: = verdadero

más b: = falso;

///////////////

B: = edit1.text = 'sí';

fin;

{No.2 Consulta SQL temporal}

Comenzar

Querytemp.close;

Querytemp.sql.text: = 'Seleccione suma (cantidad) como total de la tabla de ventas';

Querytemp.open;

ShowMessage (Query1.FieldByName ('Total'). Astring);

//////

Querytemp.sql.text: = 'Seleccione suma (cantidad) como total de la tabla de ventas';

Querytemp.open;

ShowMessage (Query1.FieldByName ('Total'). Astring);

Querytemp.close;

fin;

{No.3 Obtenga el número de registros}

varilla

VRECORDCOUNT: Integer;

Comenzar

QUERY1.SQL.TEXT: = 'SELECT * DESDE TABLA1';

Consulta1.apor;

VRECORDCOUNT: = QUERY1.RecordCount;

Consulta1.close;

//////

QUERY1.SQL.TEXT: = 'SELECT COUNT (*) como número de registro de la tabla1';

Consulta1.apor;

VRECORDCOUNT: = QUERY1.FIELDBYNAME ('Registros'). Asinteger;

Consulta1.close;

ShowMessage (intToStr (vRecordCount));

fin;

{No.4 Asignación de campo}

Comenzar

Tabla 1.Edit;

Tabla1.fieldByName ('nombre'). Astring: = edit1.Text;

Tabla1.fieldByName ('date'). AsdateTime: = date;

//////

Tabla1 ['nombre']: = edit1.Text;

//Table1.fieldValues[Name ']: = edit1.Text; // Método sugerido por Borland. y paramvalues ​​[]

Tabla1 ['date']: = fecha;

fin;

{No.5 usando el puntero de sí mismo}

Comenzar

Edit1.Parent: = form1;

///////////////

Edit1.Parent: = self;

fin;

{No.6 transversal del conjunto de datos}

varilla

I: entero;

Comenzar

QUERY1.FIRST;

para i: = 0 a QUERY1.RecordCount - 1 Comenzar // no recomendado // fácil de ser afectado

QUERY1.NEXT;

{};

fin;

//////

QUERY1.FIRST;

Mientras que no consulta 1.Eof comenzar // Sugerencias

{}

QUERY1.NEXT;

fin;

fin;

{No.7 Use los parámetros del remitente para que el código sea común}

Procedimiento tForm1.Edit1Change (remitente: tobject);

Comenzar

if edit1.Text = '' entonces // no recomendado

Edit1.color: = clred;

///////////////

Si tedit (remitente) .Text = '' entonces // sugerido // es muy conveniente copiarlo en editXchange

Tedit (remitente) .color: = clred;

fin;

{No.8 Use función de conversión predeterminada}

varilla

I: entero;

Comenzar

I: = strtoint (edit1.text);

///////////////

I: = strTointdef (edit1.text, 0); // sugerencias // referencia strtofloatdef, strtodatef ... pero estos solo están disponibles en Delphi6.

fin;

{No.9 Array de transversal}

varilla

I: entero;

A: matriz [0..9] de entero;

Comenzar

para i: = 0 a 9 do // no recomendado

A [i]: = i;

///////////////

Para i: = bajo (a) a alto (a) do // sugerido // buena expansión

A [i]: = i;

fin;

{No.10 utiliza Maxint Constant}

Comenzar

Leyenda: = Copy (edit1.text, 3, longitud (edit1.text) - 3 + 1);

///////////////

Leyenda: = Copy (edit1.text, 3, maxint);

fin;

{No.11 Función de resultado Puntero}

función funcname: boolean;

Comenzar

Funcname: = True; // no recomendado // y no se puede usar como una variable normal en el lado derecho del número de asignación

///////////////

Resultado: = verdadero;

fin;

función funcsum (a: matriz de entero): entero;

var i: entero;

Comenzar

Resultados: = 0;

para i: = bajo (a) a alto (a) hacer

Resultado: = resultado + a [i]; // funcsum: = funcsum + a [i] no se puede usar;

fin;

{No.12 El código que debe ejecutarse, use Prueba ... Finalmente ... Declaración final}

varilla

VStringList: tStringList;

Comenzar

VStringList: = tStringList.create;

vstringList.LoadFromFile ('c: /temp.txt');

ShowMessage (vStringList.Text);

VStringList.Free;

///////////////

VStringList: = tStringList.create;

intentar

vstringList.LoadFromFile ('c: /temp.txt');

ShowMessage (vStringList.Text);

Finalmente // sugerencias // aplicarlo incluso si aparece la salida

VstringList.Free;

fin;

fin;

// Otros casos 1

Comenzar

Screen.cursor: = crhourglass;

intentar

{Operación que consume mucho tiempo}

Finalmente

Screen.cursor: = CRDefault;

fin;

fin;

// Otros casos 2

Comenzar

QUERY1.DISABLECONTROLS;

intentar

{Conjunto de datos operativos}

Finalmente

QUERY1.ENABLECONTROLS;

fin;

fin;