Глобальные проблеммы со строками

[Alex2013]

При использовании TStringList обнаружил странную ошибку
Код примерно такой

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

Var
L:TStringList;
S:String;
begin
L:=TStringList.Create;
L.LoadFromFile('cur1.Log');
S:=L.Text;
ShowMessage(L.Text);//Тут нормально
ShowMessage(S);// А тут обрезает  ...
L.Free;
////
end;

Лог размером с "полкило" или даже меньше
как результат все операции с полученной строкой происходят с ошибкой .
Вопрос в чем может быть проблема?
Версия 1.0.02 кодировка UTF8 среда Win32

[SeZuka]

Код примерно такой

А можно не примерно, а оригинал?

[SSerge]

в чем может быть проблема?

Директиву {$H+} в начале файла скорее всего не впечатали.
Без нее (или без аналогичной опции компилятора) строки будут String=ShortString до 255 байт длиной.

[Alex2013]

в чем может быть проблема?

Директиву {$H+} в начале файла скорее всего не впечатали.
Без нее (или без аналогичной опции компилятора) строки будут String=ShortString до 255 байт длиной.

Надо попробовать ... Спасибо за совет!
Зы

А можно не примерно, а оригинал?

Если не поможет {$H+} выложу хотя смысла особого не вижу
Увидел что строки где-то обрезает начал отлаживать и добрался до
вот этого куска кода

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

S:=L.Text;
ShowMessage(L.Text);//Тут нормально
ShowMessage(S);// А тут обрезает  ..


Где четко видно что ошибка не в алгоритме ..

[SeZuka]

добрался до
вот этого куска кода

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

S:=L.Text;
ShowMessage(L.Text);//Тут нормально
ShowMessage(S);// А тут обрезает  ..


Весьма странный у вас кусок "рабочего" кода...

[Alex2013]

{$Н+} Помогло ... Я думал что подобные объявления должны работать из файла проекта на всю программу и видимо при написании комментария к модулю случайно стер .
Но кроме того у меня в проекте есть не визуальный модуль где все работает без всякого {$Н+}
странно ... Может из за {$mode ..} который добавляется дизайнером форм ?
Ps
Из "рабочего кода" только S:=L.text; дальше отладка ...
PS PS
Кстати есть вопрос как можно посмотреть значения строчных переменных в виде текста а то все через #nnn (в ранних версиях было иначе) ? .