Wenn der String leer ist, dann ist diesem kein Speicher zugewiesen, wodurch natürlich kein Zugrif auf das 1. Zeichen möglich ist.
if (ws <> '') and (ws[1] = '*') then
Zitat:
if ws[1] = '' then
außerdem kann ein Char nie leer sein ... ws[1] <> '' (dieses trifft immer zu)
Was willst du überhaupt testen?
@AndreasP: Delphi hat selber auch schon ein Length für die WideStrings drin