home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2003 December
/
Chip_2003-12_cd2.bin
/
oo
/
download
/
f_0019
/
sbasic.jar
/
text
/
sbasic
/
common
/
03050100.xml
< prev
next >
Wrap
Extensible Markup Language
|
2003-01-16
|
3KB
|
58 lines
<?xml version="1.0" encoding="utf-8"?>
<html><head><title>Funkce Erl [Runtime]</title><meta name="filename" content="text/sbasic/common/03050100"/><meta name="language" content="en-US"/><help:css-file-link xmlns:help="http://openoffice.org/2000/help"/><!--The CSS style header method for setting styles--><style type="text/css">
table.Tabelle1{
}
span.Tabelle1A{
width:1.499cm;}
span.Tabelle1B{
width:16.498cm;}
tr.Tabelle11{
}
td.Tabelle1A1{
}
p.P1{
}
p.P2{
}
span.T1{
font-weight:bold;}
span.fr1{
}
</style></head><body>
<help:to-be-embedded Eid="erl" xmlns:help="http://openoffice.org/2000/help">
<p class="Head1"><help:link Id="66634">Funkce Erl [Runtime]</help:link></p>
<p class="Paragraph">Vrátí číslo řádku, ve kterém v průběhu programu došlo k chybě.</p>
</help:to-be-embedded>
<p class="Paragraph"><span class="T1">Syntaxe</span>:</p>
<p class="Paragraph">Erl <help:key-word value="Erl" tag="kw66634_1" xmlns:help="http://openoffice.org/2000/help"/></p>
<p class="Paragraph"><span class="T1">Vrácená hodnota</span>:</p>
<p class="Paragraph">Typu Integer</p>
<p class="Paragraph"><span class="T1">Parametr</span>:</p>
<p class="Paragraph"/>
<table><tr class="Tabelle11"><th class="Tabelle1A1" style="text-align:left;"><span class="Tabelle1A">
<p class="TextInTable"><draw:image draw:style-name="fr1" draw:name="HIND_1" text:anchor-type="paragraph" svg:width="0.847cm" svg:height="0.847cm" draw:z-index="0" xlink:href="65980" xlink:type="simple" xlink:show="embed" xlink:actuate="onLoad" draw:filter-name="GIF - Graphics Interchange" xmlns:draw="http://openoffice.org/2000/drawing" xmlns:text="http://openoffice.org/2000/text" xmlns:svg="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink"/></p>
</span></th><th class="Tabelle1A1" style="text-align:left;"><span class="Tabelle1B">
<p class="TextInTable">Funkce Erl vrátí pouze číslo řádku, nikoli návěští řádku.</p>
</span></th></tr></table>
<p class="Paragraph"/>
<p class="P2">Příklad:</p>
<p class="PropText">sub ExampleError</p>
<p class="PropText">on error goto ErrorHandler <text:s text:c="" xmlns:text="http://openoffice.org/2000/text"/>REM Set up error handler</p>
<p class="PropText">Dim iVar as Integer</p>
<p class="PropText">Dim sVar As String</p>
<p class="PropText">REM Error caused by non-existent file</p>
<p class="PropText">iVar = Freefile</p>
<p class="PropText">Open "\file9879.txt" for Input as #iVar</p>
<p class="PropText">Line Input #iVar, sVar</p>
<p class="PropText">Close #iVar</p>
<p class="PropText">exit sub</p>
<p class="PropText">ErrorHandler:</p>
<p class="PropText">MsgBox "Error " & err & ": " & error$ + chr(13) + "In line : " + Erl + chr(13) + Now , 16 ,"An error occured"</p>
<p class="PropText">end sub</p>
<p class="PropText"/>
<p class="PropText"/>
</body></html>