TDebug

Razred TDebug je namenjen prikazu obvestil uporabniku o napredku med dolgotrajnimi operacijami.

Debug.Show
Debug.Clear
Debug.AddLine ('DKN', 'Prvi del')
Debug.LastLineMax (L.FilteredRecords.Count)
For I = 0 To L.FilteredRecords.Count - 1
  Debug.LastLineProgres (I+1)
  ...
Next
Debug.LastLineUpdate ('Drugi del')
...
Debug.LastLineDelete

Debug.Hide

Show

Metoda Show prikaže okno, v katerega se izpisujejo sporočila.

Method TDebug.Show

Hide

Metoda Hide skrije debug okno.

Method TDebug.Hide

Clear

Metoda Clear izbriše vsebino okna.

Method TDebug.Clear

AddLine

Metoda AddLine izpiše naslednjo vrstico v debug okno.

Method TDebug.AddLine (Left, Right As String)
Left	String	Tekst, ki se izpiše pred dvopičjem in ostane nespremenjen.
Right	String	Tekst, ki se izpiše za dvopičjem in se lahko spremeni z ukazom LastLineUpdate.

LastLineUpdate

Metoda LastLineUpdate spremeni besedilo v zadnji vrstici.

Method TDebug.LastLineUpdate (Right As String)
Right	String	Tekst, ki se izpiše za dvopičjem v zadnji vrstici, ki je bila predhodno nastavljena z ukazom AddLine.

LastLineDelete

Metoda LastLineDelete Izbriše zadnjo vrstico nastavljeno z AddLine.

Method TDebug.LastLineDelete

LastLineMax

Metoda LastLineMax nastavi vrednost za 100%, da se lahko izpisuje napredek z ukazom LastLineProgres.

Method TDebug.LastLineMax (Max As Float)
Max	Float	Vrednost za 100%.

LastLineProgres

Metoda LastLineProgres nastavi trenutno vrednost za izpis napredka. Predhodno je potrebno nastaviti maksimalno vrednost z ukazom LastLineMax.

Method TDebug.LastLineProgres (Progres As Float)
Progres	Float	Trenutna vrednost.