如何将/ text输出的文本文件加载到memo1

时间:2010-08-01 20:06:09

标签: delphi

我正在尝试从/ stext命令行创建后加载文件,但它没有加载

我的代码

ShellExecute(0, nil, PChar(path+'test.exe'), PChar('/stext "' + path + 'save.txt"'), nil, SW_HIDE);

创建文件后,我试图从另一个按钮加载到memo1,单击

喜欢

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(path+'save.txt');
end;

但它加载了一些未知的3个字符

ÿþ=

P.S:我手动打开它有30行真实数据:)

为什么会发生这种情况?

还有一件事是在我执行了我的第一个命令shellexecute之后我怎么知道文件创建是在不使用sleep函数的情况下加载到我的memo中的同一个函数:S

提前致谢

问候

1 个答案:

答案 0 :(得分:0)

试试看是否有效

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile(path+'save.txt', TEncoding.UTF8);
end;

因为我认为您发布的第一个字符来自UTF8编码。

另外,要仔细检查是否是编码。尝试在记事本中打开该文件,看看它是否正常。