database - 从备注字段的内容中删除特定行

Question

我怎样才能使用 Delphi 从某个字符串后面的备注字段中删除数据，例如我正在浏览的数据库中的数据显示如下:

<Data I want to keep>

======= Old Data ========
<line 1>
<line 2>
etc.

我如何告诉 Delphi 删除旧数据行之后(包括)的所有数据？但不触摸我希望保留的数据？

Answer 1

类似于:

var
  I: Integer;
  s: string;
begin
  s := 'your big string with ======= Old Data ======== and more';
  I:=Pos('======= Old Data ========',s);
  if I>0 then
    Delete(s, I, MaxInt);
  ShowMessage(s);