文本字段中的先入先出行

Question

我有一个日志文件，我希望保持较小。

我有一个TDBListBox。

我有一个通过串行端口传入数据流。

procedure LogIt(tStr : String); 
begin 
    dm.tblLogs.Edit; 
    dm.tblLogs.FieldByName(fldCommands).AsString:= 
    dm.tblLogs.FieldByName(fldCommands).AsString+#10+tStr; 
    dm.tblLogs.Post; 
end; 

这是工作，但该名单还在不断增加，我也不需要比对过去十年的条目多。

我能想到这样做的唯一方法是野外数据加载到不可见TMemo然后

if Memo1.Lines.Count > 0 then 
    Memo1.Lines.Delete(0); 

加入下一行之前，然后通过Memo.Lines.Text到数据库字段。

有没有更好的方法？

Answer 1

您可以使用TStringList而不是TMemo。但是，是的，您可以在内存中维护一个单独的日志消息列表，然后在列表更新时仅将最新的10条消息保存到数据库。例如：

var 
    log: TStringList; 

... 

log := TStringList.Create; 
log.Capacity := 10; 

... 

procedure LogIt(tStr : String); 
begin 
    while log.Count >= 10 then 
    log.Delete(0); 
    log.Add(tStr); 

    dm.tblLogs.Edit; 
    try 
    dm.tblLogs.FieldByName(fldCommands).AsString := log.Text; 
    dm.tblLogs.Post; 
    except 
    dm.tblLogs.Cancel; 
    end; 
end;