[alexingor]

Имеется string-строка, например, "Ger:ausch", в которой записано немецкое слово с умляутом, представленным двоеточием. Передо мной стоит задача - в этой строке провести обратное преобразование, т.е. :а заменить на а с умляутом (unicode #$0228) и передать полученную WideString-строку в элемент типа Надпись. Для преобразования я написал функцию:

Код:

  function UMLAUT(s:String): String;
  var
    t: string;
    ws: WideString;
  begin
    t:=s+' ';
    ws:=WideString('');
    i:=0;
    while i<Length(t) do begin
      if Copy(t,i,2) = ':a' then begin ws:=ws+WideChar(228); i:=i+2; end else
      if Copy(t,i,2) = ':o' then begin ws:=ws+WideChar(246); i:=i+2; end else
      if Copy(t,i,2) = ':u' then begin ws:=ws+WideChar(252); i:=i+2; end else
      if Copy(t,i,2) = '&s' then begin ws:=ws+WideChar(223); i:=i+2; end else
      begin ws:=ws+WideChar(t[i]); inc(i); end;
    end;
    Result:=Copy(ws,2,1000);
  end;

Когда результат ее работы передаю на TTnLabel, я вижу "Gerausch" то есть просто исчезло двоеточие. Что я не так делаю?
Delphi 7, Windows XP.
PS. Оператор Result:=Copy(ws,2,1000); понадобился потому, что в начале строки образовался нуль-символ. Как это происходит - я не понимаю.