- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
ResetList( Chars( ) )
While NextElement( Chars( ) )
Define Address.l = @Chars( )
Define Reference.s = Chars( )
While NextElement( Chars( ) )
If Chars( ) = Reference
DeleteElement( Chars( ) )
EndIf
Wend
ChangeCurrentElement( Chars( ), Address )
Wend
Stertor 09.07.2013 09:41 # −1
Минуисуя участников, ты помогаешш обществу снижать ЧСВ.