OpenDialog мистика...

[FleXik]

begin
if Form2.sOpenDialog1.Execute then
Form2.sMemo1.Lines.LoadFromFile(Form2.sOpenDialog1.FileName);
//q:=Form2.sMemo1.Lines.Text;
Form2.sMemo1.Lines.Text:=UTF8Decode(Form2.sMemo1.Lines.Text);
end;

Опять проблема при загрузке списка в Memo, загружает и сразу же удаляет, пробовал заводить переменную, не помагает, мистика...

[tsar_]

Хм, проверил код в delphi 7 и 2010 - работает...
ОС - windows xp sp2.

Что за файл загружаете?

[Kix.IV]

Опять проблема при загрузке списка в Memo, загружает и сразу же удаляет, пробовал заводить переменную, не помагает, мистика...

Кажется проблема в UTF8Decode. Попробуй UTf8toAnsi.

[FleXik]

файл .txt конечно же... код то рабочий но вот почему их загружает и сразу же удаляет я без понятия, раньше была фигня когда проэкт сохранил в два места и потом так же всегда была одна и та же ошибка, но тут проэкт слишком большой чтобы переделывать с нуля...

[Kix.IV]

файл .txt конечно же... код то рабочий но вот почему их загружает и сразу же удаляет я без понятия, раньше была фигня когда проэкт сохранил в два места и потом так же всегда была одна и та же ошибка, но тут проэкт слишком большой чтобы переделывать с нуля...

Видимо проблема где-то дальше в коде. Попробуй "пройтись" с f7.

[FleXik]

Сообщение от Kix.IV

Видимо проблема где-то дальше в коде. Попробуй "пройтись" с f7.

Что делает f7? Проблема не дальше в коде, это исключено.

[Kix.IV]

Что делает f7?

https://www.google.ru/search?q=трассировка+delphi

Проблема не дальше в коде, это исключено.

Если не дальше, то где? Код, который выше рабочий.

[FleXik]

Form2.sMemo1.Lines.Text:=UTF8Decode(Form2.sMemo1.Lines.Text);

если убрать эту строку то всё работает...

[Kix.IV]

Сообщение от FleXik

Form2.sMemo1.Lines.Text:=UTF8Decode(Form2.sMemo1.Lines.Text);

если убрать эту строку то всё работает...

Так он загружает и сразу же удаляет?
Или вообще текст не появляется?
Если первое, то ошибку надо искать дальше в коде.
Если второе, то попробуй заменить UTF8Decode.

[Luuzuk]

Если я ничего не путаю, то в Delphi7 штатные VCL-компоненты не поддерживают UTF8.
Следовательно, следующая строка

Form2.sMemo1.Lines.LoadFromFile(Form2.sOpenDialog1.FileName);

не сможет корректно загрузить в sMemo1 UTF-шный текст.
Следовательно, в Form2.sMemo1.Lines.Text будет какая-то хрень вместо валидного UFT-шного текста.
UTF8Decode нормально отработать не сможет, т.к. ему вместо UTF8 подсовывают какой-то суррогат.
На выход он тоже ничего хорошего не выдаст => это "ничего хорошего" и окажется в Form2.sMemo1.Lines.Text, что и требовалось доказать
-----------------------------
Вариант решения: загружать текст не "быстро и на халяву через Memo", а с помощью файловой переменной. В memo этот загруженный текст записывать СТРОГО ПОСЛЕ UTF8Decode.
P.S. отпишитесь, угадал ли я