如何删除MEMO中EDIT的内容

如果想在MEMO中的每行删除最后一位，比如：
9000
0090
0888
EDIT->TEXT输入0
变成
900
009
0888

如果EDIT->TEXT输入00
变成
90
0090
0888

先保存一份memo中的字符串列表，然后每次修改后重写memo

先保存一份memo中的字符串列表，然后每次修改后重写memo

先保存一份memo中的字符串列表，然后每次修改后重写memo
正确的如下:
for(int len0= Edit->Text.Length(), len1, pos, i = 0; i < Memo1->Lines->Count; i++)
  if(len1= Memo1->Lines->Strings[i].Length(), Memo1->Lines->Strings[i].SubString(len1- len0+ 1, len0)== Edit->Text)
  Memo1->Lines->Strings[i]= Memo1->Lines->Strings[i].Delete(len1- len0+ 1, len0);