24/03/2011, 12:30
après quelques test complémentaire jai décidé d utiliser string equal
tcl
proc ::tcl::string::empty string {
::tcl::string::equal $string ""
}