Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.02.2013, 12:43   #1
FleXik
Форумчанин
 
Регистрация: 01.11.2012
Сообщений: 770
Вопрос Memo1, Utf8Decode - Cannot open '''' file...

Код:
procedure TForm2.sButton5Click(Sender: TObject);
begin
if sOpenDialog1.Execute then
Form2.sMemo1.Lines.LoadFromFile(UTF8Decode(Form2.sOpenDialog1.FileName));
end;
Вобщем ошибка Cannot open '''' file. Системе не удается найти указанный путь.

Пробовал по разному в том числе и так:
Код:
var
ws:widestring;
begin
ws:=Memo1.Text; // пробовал и Memo1.Lines.Text;
Memo1.Text:=Utf8Decode(PwideChar(ws));
end;
Вобщем нужно "заутэфить" Memo.
FleXik вне форума Ответить с цитированием
Старый 18.02.2013, 13:02   #2
FleXik
Форумчанин
 
Регистрация: 01.11.2012
Сообщений: 770
По умолчанию

Код:
procedure TForm2.sButton5Click(Sender: TObject);
var
q:string;
begin
if sOpenDialog1.Execute then
Form2.sMemo1.Lines.LoadFromFile(Form2.sOpenDialog1.FileName);
q:=UTF8Decode(Form2.sMemo1.Text);
Form2.sMemo1.Lines.Add(q);
end;
вроде пашет...
FleXik вне форума Ответить с цитированием
Старый 18.02.2013, 13:27   #3
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,442
По умолчанию

Так у TStrings есть TEncoding его используйте.
Человек_Борща вне форума Ответить с цитированием
Старый 18.02.2013, 14:00   #4
FleXik
Форумчанин
 
Регистрация: 01.11.2012
Сообщений: 770
По умолчанию

Цитата:
Сообщение от Человек_Борща Посмотреть сообщение
Так у TStrings есть TEncoding его используйте.
примеры использования можна? спасибо.
FleXik вне форума Ответить с цитированием
Старый 26.02.2013, 16:16   #5
FleXik
Форумчанин
 
Регистрация: 01.11.2012
Сообщений: 770
По умолчанию

Цитата:
Сообщение от FleXik Посмотреть сообщение
Код:
procedure TForm2.sButton5Click(Sender: TObject);
var
q:string;
begin
if sOpenDialog1.Execute then
Form2.sMemo1.Lines.LoadFromFile(Form2.sOpenDialog1.FileName);
q:=UTF8Decode(Form2.sMemo1.Text);
Form2.sMemo1.Lines.Add(q);
end;
вроде пашет...
Опять проблема, если делаю т.к выше то загружает 2 раза одно и то же... Как только уже не делал... Помогите пожалуйста. Спасибо.
FleXik вне форума Ответить с цитированием
Старый 26.02.2013, 19:16   #6
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
procedure TForm2.sButton5Click(Sender: TObject);
var
 q:string;
begin
  if sOpenDialog1.Execute then begin
    sMemo1.Lines.LoadFromFile(sOpenDialog1.FileName);
    q:=UTF8Decode(sMemo1.Text);
    sMemo1.Text := q;
  end;
end;
Serge_Bliznykov вне форума Ответить с цитированием
Старый 26.02.2013, 21:35   #7
FleXik
Форумчанин
 
Регистрация: 01.11.2012
Сообщений: 770
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
Код:
procedure TForm2.sButton5Click(Sender: TObject);
var
 q:string;
begin
  if sOpenDialog1.Execute then begin
    sMemo1.Lines.LoadFromFile(sOpenDialog1.FileName);
    q:=UTF8Decode(sMemo1.Text);
    sMemo1.Text := q;
  end;
end;
ппц я тупанул, спасибо
FleXik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
File - Open - ERROR! (VS6) NonStopT29 Visual C++ 0 02.02.2012 23:05
Ошибка unable to open file 'COS.OBJ' Apricus Общие вопросы C/C++ 10 25.01.2011 22:03
Прога выдает ошибку file not open!!! Anytocccchka Помощь студентам 5 20.12.2010 08:18
ошибка: c1083 cannot open include file 'windows.h' xosevilla Общие вопросы C/C++ 3 29.11.2009 13:18
Error 1 fatal error C1083: Cannot open include file: 'iostream.h': No such file or directory s20 Общие вопросы C/C++ 2 26.09.2009 23:28