Delphi 字符串上未声明的标识符

我真的需要一些帮助，我迫切需要一个解决方案

我有一个离线发送表单/单元。它不允许我编译

以下是完整的代码：

我得到以下错误：

Build
  [Error] OfflinesUnit.pas(103): Undeclared identifier: 'LoadString'
  [Error] OfflinesUnit.pas(142): Undeclared identifier: 'LoadString'
  [Fatal Error] MainUnit.pas(480): Could not compile used unit 'OfflinesUnit.pas'

错误1：

procedure TOfflinesForm.FormShow(Sender: TObject);
var
  i: Integer;
  PMText: string;
begin
  for i := 0 to OfflineList.Count - 1 do
  begin
    OfflineListView.Items.Add;
    OfflineListView.Items.Caption := OfflineSenders.Strings;
    OfflineListView.Items.SubItems.Add(OfflineList.Strings);
    Viewer.LoadString(PChar(OfflineList.Objects), '', HTMLType);
    Viewer.SelectAll;
    PMText := Viewer.SelText;
    Viewer.SelLength := 0;
    Viewer.Clear;
    OfflineListView.Items.SubItems.Add(PMText);
  end;
end;

错误2：

procedure TOfflinesForm.SendTextToViewer(User, Text: string; UserColor: TColor);
var
  Str: string;
begin
  Str := '<B><font size=0 color=#' + IntToHeWebColor(BUDDYNICKCOLOR, 8) + '>' +
    User + ':</font></B> ';
  Str := Str + ReplaceSmilesText(' ' + Text);
  // Str := CorrectHTMLLinks(Str);
  Viewer.LoadString(Str, '', HTMLType);
  Viewer.VScrollBarPosition := Viewer.VScrollBar.Max;
  Viewer.Invalidate;
end;

过程TOfflinesForm.SendTextToViewer（用户，文本：字符串；用户颜色：TColor）；
变量
Str：字符串；
开始
Str:=''+
用户+'：'；
Str:=Str+ReplaceSmilesText（“”+Text）；
//Str:=正确的htmlinks（Str）；
LoadString（Str'，HTMLType）；
Viewer.VScrollBar位置：=Viewer.VScrollBar.Max；
无效；
结束；

错误信息非常清楚。无论

Viewer

是什么，它都没有名为

LoadString

的成员，或者它没有声明为

private

的同名成员

以下是错误的原因：

编译器找不到给定的标识符-很可能是在声明点或使用点拼写错误。它可能来自另一个没有提到uses子句的单元

您需要检查

Viewer

是什么类型的类型声明，并找出编译器不这样说时，您希望

LoadString

被声明的原因。显然，我们无法回答这一具体问题，因为我们没有所需的信息。你忽略了那些细节

---

但关键是，您现在知道了错误消息是什么，您现在可以找出代码出错的原因。

这是完整代码的链接David Heffernan，如果您能帮忙的话？：（我回答了你问的问题。我不想继续调试你的其余代码。好吧，如果我无法修复它，你愿意付费修复吗？@TyroneSummers:该链接是用于下载预编译的DCU文件，而不是下载Pascal源代码。你可能是指instead@Tyrone：这不是程序员的租金站点。在该站点上完成的所有操作都在此处完成，在该站点上。如果您想雇佣编码人员，请转到其他地方。如果您想在此处获得帮助，请在问题中包含必要的信息。正如David所说，您没有提供任何关于查看器是什么或它是否实际具有LoadString方法的指示。欢迎使用堆栈溢出。请阅读“”，包括底部的链接和“”。