Проблема с определением кодировки

[ZePr]

Проблема такая, пишу программу. К ней из сети приходит строка. Если она на английском то всё нормально, если на русском то тоже всё нормально, но вот если на русском и в UTF8 то отображаются крякозябры. При использовании UTF8Decode она конечно своё отрабатывает, но если текст был не в UTF8 и на русском то выходит пустая строка. Что не есть хорошо. Прошу помощи)
Проблема на скринах:
Всё нормально:

UTF8:

Есть ли какое то решение для нормального отображения?

[GunSmoker]

Есть ли какое то решение для нормального отображения?

Не мешать всё в одну кучу, а отслеживать кодировки.

То, что отдаёт строку - это кто такой будет? В какой кодировке он должен её отдавать? Что написано в спецификации? Может кодировка как-то указывается?

[ZePr]

if Length(utf8decode(s))=0 then Result:=s
else Result:=UTF8Decode(s)

Извиняюсь, решил сам)

[Mad_Cat]

Извиняюсь, решил сам)

Ай, молодец какой)

[censored] (23:32) :
Ну [censored] его знает пустая или на вид, во всяком случае ни одногго символа

MAD_CAT (23:32) :
посмотри на длину строки после >> если она была на русском но не в UTF8

MAD_CAT (23:34) :
вот так и сравнивай)
s --- полученная строка
buf:=s;
if Trim(UTF8Decode(s))='' then {вывод buf}
else {вывод s}

[GunSmoker]

Пиздец решение.

[Mad_Cat]

GunSmoker,

3.14здец решение.

А чего заморачиваться то? )))

[Аватар]

А чего заморачиваться то? )))

А если еще в какой-то 3-ей или 4-ой кодировке строка будет?

[Mad_Cat]

А если еще в какой-то 3-ей или 4-ой кодировке строка будет?

Когда будет тогда и придумает) Решайте проблемы по мере их поступления)

[FaTaL]

Выложите куда нибудь Вашу программу, хоть радио украинское послушаю.