delphi - 在 Delphi 中编辑文本文件

Question

我的 Canvas 上有一个编辑和一个列表框，列表框内容加载了一个 txt 文件的内容，为了做到这一点，我使用了代码:

  listbox1.Items.LoadFromFile('data\data.dat');

在编辑时输入名称时，我想在列表框中突出显示它，所以我使用了代码:

procedure TformMain.Edit1Change(Sender: TObject);
const
   indexStart = -1;
 var
   search : array[0..128] of Char;
begin
   StrPCopy(search, Edit1.Text) ;
   ListBox1.ItemIndex := ListBox1.Perform(LB_SELECTSTRING, indexStart, LongInt(@search));
end;

现在我的 Canvas 上有一个按钮，我想从 txt 中删除选定的名称。

我怎样才能做到这一点？

提前致谢!

Answer 1

如果您只想删除与编辑控件匹配的文本:

var
  newS : string;
...
newS := ListBox1.Items[ListBox1.ItemIndex];
Delete(newS,Pos(Edit1.Text,newS),Length(Edit1.Text));
ListBox1.Items[ListBox1.ItemIndex] := newS;

如果要删除整行:

ListBox1.Items.Delete(ListBox1.ItemIndex);