Converting between a multiline string and a TstringList

Question

I have a multi-line string and I want to remove some lines from it. The TMemo component contains the necessary code to do this.

MyMemo:=TMemo.Create(nil);
try
   MyMemo.Text:=MyString;
   MyMemo.Lines.Delete(x); // lines I want to delete
   MyMemo.Lines.Delete(y);
   MyString:=MyMemo.Text;
finally
   MyMemo.Free;
end;

But it seems wrong to use a visual component to do basic conversions. Is there a different, but equally simple, way to do this? Thanks

You should be aware, that the order of x and y matters. If x is smaller than y, you will delete line y-1 of the original list. — Sebastian Proske, Apr 11 '17 at 11:24

score 5 · Accepted Answer · answered Apr 11 '17 at 11:18

5

You have the answer right in the question title - use a TStringList:

procedure MyProcedure(var MyString: string);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Text := MyString;
    sl.Delete(x); // lines I want to delete
    sl.Delete(y);
    MyString := sl.Text;
  finally
    sl.Free;
  end;
end;

answered Apr 11 '17 at 11:18

Uli Gerhardt

13,748
1
45
83

Thanks I thought the Text was only applicable to the TMemo, not the TStrings within Tmemo – kaj66 Apr 11 '17 at 11:22
There's more - you might want to check `CommaText`, `StrictDelimiter` and the like. – Uli Gerhardt Apr 11 '17 at 11:23

score 0 · Answer 2 · answered Apr 11 '17 at 11:21

0

I've just realised that TStringlist itself has a Text property. So that answers my own question.

answered Apr 11 '17 at 11:21

kaj66

153
1
11

This adds nothing to Uli's answer. Can't you remove this and accept his answer? – David Heffernan Apr 11 '17 at 12:19
I added this comment before I saw Uli's answer – kaj66 Apr 12 '17 at 12:02

Converting between a multiline string and a TstringList

2 Answers2