J'ai écrit le code suivant :
- Code: Tout sélectionner
'--------------------------------------------------------
'test file creation
'--------------------------------------------------------
'
function create_test_file(file_path$)
open "o",#1,file_path$
on error gosub on_error__create_test_file
'
'try
'
local value%,address%
value% = &h01020304
address% = V:value%
bput #1,address%,1
bput #1,address%,2
bput #1,address%,4
local str_hello$
str_hello$ = "hello"
bput #1,V:str_hello$,5
close #1
return true
'
'catch
'
on_catch__create_test_file:
close #1
return false
endfunc
'
procedure on_error__create_test_file
local a%
alert 1, err$(err),1,"ok",a%
resume on_catch__create_test_file
return
'
Quand je veux faire tourner le code, j'ai un message d'erreur "Resume --> Function". J'ai mal fait un truc ?
