freepascal.ru

Лекс Айрин писал(а):А пробовал #0? Символы табуляции?

Лекс Айрин писал(а):табуляция бывает как горизонтальная, так и вертикальная 0B(11). Возможно, что это какой-то управляющий юникодный символ.

pupsik писал(а):а что length говорит?
т.е.

Код: Выделить всё

for i:=StringList.Count-1 downto 0 do begin
   If utf8length(utf8trim(StringList[i])) = 0 then StringList.Delete(i);
end;

Вроде в stringlist utf8 должен быть.

arriah писал(а):Вечером проверю, обычный length (без utf8) говорит - 2

- LF (U+000A): англ. line feed — подача строки;
- CR (U+000D): англ. carriage return — возврат каретки;
- NEL (U+0085): англ. next line — переход на следующую строку;
- LS (U+2028): англ. line separator — разделитель строк;
- PS (U+2029): англ. paragraph separator — разделитель абзацев.

Лекс Айрин писал(а):проверьте так же

Лекс Айрин писал(а):arriah, скорее, все же не так. Мой запрос "юникодный конец строки" Кстати,только теперь заметил в нем опечатку. Искал юниксовый

Лекс Айрин писал(а):arriah вообще, такие вещи надо хранить отдельно -- для тестов.

var
s:char;
ss:string;
begin
   if utf8trim(str)='' then
   begin
     ss:='';
     for k:=1 to length(str) do begin
      s:=str[k];
      ss:=ss+IntToStr(ord(s))+'  ';
     end;
     showmessage(ss); 
 end;
end;   

pupsik писал(а):А что это покажет?

Код: Выделить всё

for k := 1 to Length(str) do
  ss := ss + '$'+IntToHex(Ord(str[k]),2)) ;