Question

我想向用户显示代码执行期间发生的所有相关消息的摘要（例如解析，算法，转换，验证等）。这个过程完成后，消息应该一起显示出来。

类似的事件可能不会发生，一次或多次。如果事件发生，应通知用户。可能有几种类型的事件。

我不确定方案是否清晰，但也许一些代码会有所帮助：

伪码：

begin
  //Execute computing process//
  repeat
    Set a flag if an incident occurs
    Set another flag if another incident occurs
  until done

  //Show message to user//
  if AnyFlagIsSet then
    ShowPrettyMessageToUser     
end;

EXECUTABLE DELPHI CODE：

program Test;

{$APPTYPE CONSOLE}

uses
  SysUtils, StrUtils;

var
  i: Integer;
  tmpFlags: Array[1..4] of Boolean;
  tmpMessage: String;
  tmpChar: Char;
begin
  Randomize;
  repeat
    //Initialization//
    for i := 1 to 4 do
      tmpFlags[i] := False;

    //Will insident occur?//
    for i := 0 to 5 do
    begin
      if (Random(10) = 0) then tmpFlags[1] := True;
      if (Random(10) = 0) then tmpFlags[2] := True;
      if (Random(10) = 0) then tmpFlags[3] := True;
      if (Random(10) = 0) then tmpFlags[4] := True;
    end;

    //Show message//
    tmpMessage := '';
    if tmpFlags[1] then tmpMessage := tmpMessage + IfThen(tmpMessage <> '', #13#10+#13#10) + 'Incident 1';
    if tmpFlags[2] then tmpMessage := tmpMessage + IfThen(tmpMessage <> '', #13#10+#13#10) + 'Incident 2';
    if tmpFlags[3] then tmpMessage := tmpMessage + IfThen(tmpMessage <> '', #13#10+#13#10) + 'Incident 3';
    if tmpFlags[4] then tmpMessage := tmpMessage + IfThen(tmpMessage <> '', #13#10+#13#10) + 'Incident 4';

    Writeln('----------');
    Writeln(tmpMessage);
    Writeln('----------');

    Writeln;
    Write('Again? (Y/N) ');
    Readln(tmpChar);
  until tmpChar <> 'y';
end.

当然，迭代中的代码在现实生活中是非常复杂的。消息也提供了更多信息，甚至可以格式化和多行化。

因此...

是否有可用于此的最佳实践或模式？
任何处理这个的Delphi组件？

Answer 1

一个简单的解决方案是使用TStringList收集所有邮件。然后，您可以在列表框中显示字符串或连接字符串（在这种情况下，所有消息都应该是有效的句子）。

<强>伪代码：

procedure DoSomething(Log : TStrings);
begin
//...
Log.Add ('Some hint.');
//...
Log.Add ('Some error happened.');
//...
end;

DoSomething (Log);
if (Log.Count > 0) then
  LogListBox.Items.AddStrings (Log);

对于格式化或多行消息，您可以将HTML字符串存储在字符串列表中，并使用可以显示HTML格式文本的组件来显示消息。

修改：如果您不想重复留言，请执行

Log.Duplicates := dupIgnore;

Answer 2

我愿意（内存要求不是因素）创建一个使用散列字符串列表作为目录的类，其中可以插入X个“logitems”作为对象。这允许对项目的分组方式进行一些控制。通过使用普通索引访问字符串列表，您将获得线性时间轴。但是通过它的哈希键访问项目，您可以获得按内容分组的项目。使用散列字符串列表要快得多，因为它使用了查找表。

对于整个应用程序范围的解决方案，我使用了midas库的TClientDataset，它已经与Delphi一起使用了很长时间。只需记住将“midaslib”声明为项目中的第一个单元，并将其直接链接到二进制文件中（无需发送midaslib.dll）。这为您提供了字段和按消息/错误类型排序的好处。只要记录数不超过10k，就可以快速稳定地工作。

向用户显示累积的消息

2 个答案: