This small example work :
Function Main()
Local a, b, c, t := {}
rtzp( "x := -1, pd, iu, np := 'Drukarka.', p := Zrodlo() + 'prewencj.a', v :=
V(), l",, t)
for each c in t
? c
next
Return Nil
Function RTZP( l, s, t)
Local z := '', n := 1, c, depth := 0, i := Len( l), o := .t., lc := '"'+"'",
lo := ''
#include 'common.ch'
DEFAULT s TO ',', t TO {}
If !Empty( t)
Asize( t, 0)
End
for each c in l
If c == s .AND. depth == 0 ; AADD( t, AllTrim( z)) ; z := ''
Else ; z += c
End
switch c
case '([{' ; depth++ ; loop
case ')]}' ; depth-- ; loop
end
If o .AND. c $ lc ; o := !o ; lo := c ; depth++
ElseIf !o .AND. c == lo ; o := !o ; lo := '' ; depth--
End
next // here is 21 line.
if !Empty( z) ; AADD( t, AllTrim( z))
end
Return t
but in real big app I have this gpf :
Nienaprawialny błąd nr 6005: Exception error:
Exception Code:C0000005
Exception Address:00409BC4
EAX:00AE31E4 EBX:00AE31E4 ECX:00AE237C EDX:00AE2564
ESI:00000001 EDI:00000001 EBP:00AE31E4
CS:EIP:001B:00409BC4 SS:ESP:0023:0006FC8C
DS:0023 ES:0023 FS:003B GS:0000
Flags:00010202
CS:EIP: F6 46 01 20 74 0B 56 E8 10 06 09 00 83 C4 04 89
SS:ESP: 0006FE00 00AE23A8 00000001 0065AC8C 0040EB45 00580C6C 00000001 00000
000 00689670 0040B3B4 00000034 00000000 00AE961C 00000000 00010015 0006FE00
C stack:
EIP: EBP: Frame: OldEBP, RetAddr, Params...
Modules:
0x00400000 0x002C1000 D:\NOWEPROD\EXE\homar.exe
0x7C900000 0x000B2000 C:\WINDOWS\system32\ntdll.dll
0x7C800000 0x000FC000 C:\WINDOWS\system32\kernel32.dll
0x77D30000 0x00090000 C:\WINDOWS\system32\USER32.DLL
0x77F10000 0x00047000 C:\WINDOWS\system32\GDI32.dll
0x77DC0000 0x000AC000 C:\WINDOWS\system32\ADVAPI32.DLL
0x77E70000 0x00091000 C:\WINDOWS\system32\RPCRT4.dll
0x72F90000 0x00026000 C:\WINDOWS\system32\WINSPOOL.DRV
0x77C00000 0x00058000 C:\WINDOWS\system32\msvcrt.dll
0x76360000 0x0001D000 C:\WINDOWS\system32\IMM32.DLL
Called from RTZP(21) in rtzp.prg
Called from KOMPILATOR(0) in kompilat.prg
Called from BOSS(0) in boss.prg
Called from START(0) in START.PRG
Called from MAIN(163) in homar.prg
Regards,
Marek Horodyski
----------------------------------------------------------------------
Fantastyczne nagrody do zgarniecia!
Zagraj >> http://link.interia.pl/f2177
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
