Memo1, Utf8Decode - Cannot open '''' file...

[FleXik]

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]

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;

вроде пашет...

[Человек_Борща]

Так у TStrings есть TEncoding его используйте.

[FleXik]

Сообщение от Человек_Борща

Так у TStrings есть TEncoding его используйте.

примеры использования можна? спасибо.

[FleXik]

Сообщение от 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 раза одно и то же... Как только уже не делал... Помогите пожалуйста. Спасибо.

[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]

Сообщение от 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;

ппц я тупанул, спасибо