我在备忘录中有这样的行:
111111.kll
222222.kll
我需要从每行中删除最后 4 个字符以获得如下结果:
111111
222222
最佳答案
作为 GolezTrol 解决方案的替代方案,您可以直接操作 Memo 内容,而不是先在内存中复制它:
var
i, LineStart, LineLen: Integer;
begin
Memo1.Lines.BeginUpdate;
try
for i := 0 to Memo1.Lines.Count - 1 do
begin
LineStart := Memo1.Perform(EM_LINEINDEX, i, 0);
LineLen := Memo1.Perform(EM_LINELENGTH, LineStart, 0);
Memo1.Perform(EM_SETSEL, LineStart + LineLen - 4, LineStart + LineLen);
Memo1.SelText := '';
end;
finally
Memo1.Lines.EndUpdate;
end;
end;
关于Delphi 7从备注行中删除一些字符,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/31416370/