在Delphi中编辑文本文件

Question

我的画布上有一个编辑和一个列表框，列表框内容加载了一个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;

现在我的画布上有一个按钮，我想从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);