Das Online -Gefühl ist für Anfänger sehr inspirierend und sammelt es!
Nr. 1 Logiktyp} bestimmen}
var b: boolean;
Beginnen
B: = boolean (2); // Dies ist nur zum Debuggen // B: = True;
Wenn b = true, dann showMessage ('b = true');
/////////////////////////////////////////
Wenn B dann ShowMessage ('B');
Ende;
var b: boolean;
Beginnen
Wenn edit1.text = 'yes' dann // nicht empfohlen // tifty
B: = wahr
sonst b: = falsch;
/////////////////////////////////////////
B: = edit1.text = 'Ja';
Ende;
{Nr. 2 Temporäre SQL -Abfrage}
Beginnen
QueryTemp.close;
QueryTemp.sql.Text: = 'Summe (Betrag) als Gesamtzahl der Verkaufstabelle auswählen';
QueryTemp.open;
ShowMessage (query1.fieldbyName ('Total'). Assstring);
////////
QueryTemp.sql.Text: = 'Summe (Betrag) als Gesamtzahl der Verkaufstabelle auswählen';
QueryTemp.open;
ShowMessage (query1.fieldbyName ('Total'). Assstring);
QueryTemp.CLOSE;
Ende;
{Nr. 3 Erhalten Sie die Anzahl der Datensätze}
var
VRECORDCOUNT: Ganzzahl;
Beginnen
Query1.sql.text: = 'select * aus Tabelle 1';
Query1.open;
vRecordCount: = query1.recordCount;
Query1.close;
////////
Query1.SQL.Text: = 'Wählen Sie Count (*) als Datensatznummer aus Tabelle 1';
Query1.open;
vRecordCount: = query1.fieldbyName ('Records'). Asidier;
Query1.close;
ShowMessage (inttostr (vRecordCount));
Ende;
{Nr. 4 Feldzuweisung}
Beginnen
Tabelle1.Edit;
Tabelle 1.FieldbyName ('Name'). Asstring: = edit1.text;
Tabelle 1.FieldbyName ('Datum'). Asdatetime: = Datum;
////////
Tabelle1 ['Name']: = edit1.text;
//Table1.fieldValues Appern ']: = edit1.text; und Paramvalues []
Tabelle1 ['Datum']: = Datum;
Ende;
{Nr. 5 mit Selbstzeiger}
Beginnen
Edit1.Parent: = Form1;
/////////////////////////////////////////
Edit1.Parent: = self;
Ende;
{Nr. 6 Traversal des Datensatzes}
var
I: Ganzzahl;
Beginnen
Query1.First;
für i: = 0 bis abfragen
Query1.Next;
{};
Ende;
////////
Query1.First;
Während nicht abfragen1.eof beginnt // Vorschläge
{}
Query1.Next;
Ende;
Ende;
{Nr. 7 Verwenden Sie die Absenderparameter, um den Code üblich zu machen}
Procedure tform1.edit1change (Absender: tobject);
Beginnen
Wenn edit1.text = '' dann // nicht empfohlen
Edit1.Color: = clred;
/////////////////////////////////////////
Wenn Tedit (Absender) .Text = '' dann // vorgeschlagen // Es ist sehr praktisch, es in editXchange zu kopieren
TEDIT (Absender) .Color: = Clred;
Ende;
{Nr. 8 Verwenden Sie die Standardkonvertierungsfunktion}}
var
I: Ganzzahl;
Beginnen
I: = strtoint (edit1.text);
/////////////////////////////////////////
I: = strtointdef (edit1.text, 0); // Vorschläge // Referenz Strtofloatdef, strtodatedef ... aber diese sind nur in DelPhi6 erhältlich.
Ende;
{Nr. 9 Traversal Array}
var
I: Ganzzahl;
A: Array [0..9] der Ganzzahl;
Beginnen
für i: = 0 bis 9 do // nicht empfohlen
A [i]: = i;
/////////////////////////////////////////
für i: = niedrig (a) bis hoch (a) do // vorgeschlagen // gute Expansion
A [i]: = i;
Ende;
{Nr. 10 verwendet Maxint Constant}
Beginnen
Bildunterschrift: = Copy (Edit1.Text, 3, Länge (Edit1.Text) - 3 + 1);
/////////////////////////////////////////
Bildunterschrift: = Kopie (Edit1.text, 3, maxint);
Ende;
{Nr .11 Ergebnisfunktion Zeiger}
Funktionsfunktionsname: Boolean;
Beginnen
Funcname: = True;
/////////////////////////////////////////
Ergebnis: = wahr; // Vorschläge // gute Erweiterung
Ende;
Funktion funcsum (a: Array der Ganzzahl): Ganzzahl;
var i: Ganzzahl;
Beginnen
Ergebnisse: = 0;
für i: = niedrig (a) bis hoch (a) tun
Ergebnis: = Ergebnis + A [i];
Ende;
{Nr. 12 Der Code, der ausgeführt werden muss, verwenden Sie Try ... End ... End Anweisung}
var
vstringList: TStringList;
Beginnen
vstringList: = tStringList.create;
vstringList.loadfromFile ('c: /temp.txt');
ShowMessage (vstringList.text);
vstringlist.free;
/////////////////////////////////////////
vstringList: = tStringList.create;
versuchen
vstringList.loadfromFile ('c: /temp.txt');
ShowMessage (vstringList.text);
Schließlich // Vorschläge // Durchsetzen es auch wenn der Ausstieg erscheint
vstringList.free;
Ende;
Ende;
// andere Fälle 1
Beginnen
Screen.cursor: = crhourglass;
versuchen
{Zeitaufwändiger Betrieb}
Endlich
Screen.cursor: = crdefault;
Ende;
Ende;
// andere Fälle 2
Beginnen
Query1.DisableControls;
versuchen
{Betriebsdatensatz}
Endlich
Query1.enableControls;
Ende;
Ende;