Как разделить строку TStringlist без цикла?

Question

[Александр Николаевич]

Допустим имеется строка: "Hello world!" в TStringList ,как присвоить другой TStringlist "Hello" без цикла ?

Answer 1

[Александр]

Какая задача - такое и решение:

procedure someProcedure();
var
  s1, s2 : TStringList;
begin
  s1 := TStringList.Create;
  s2 := TStringList.Create;
  try
    s1.LineBreak := ' ';
    s1.Text := 'Hello world!';
    s2.Text := s1.Strings[0];
    ShowMessage(s2.Text);
  finally
    s1.Free;
    s2.Free;
  end;
end;

Comments

[Александр Николаевич]

Отладчик написал Undeclear indifenet на line.Break

[Александр]

Какая у вас версия Delphi?

[Александр Николаевич]

Delphi 7

[Александр]

По всей видимости в Delphi 7 нету этого свойства. К сожалению у меня нету под рукой 7 версии, чтобы глянуть.

[Freeman]

Александр Николаевич: В Delphi 7 нужно использовать свойства Delimiter и DelimitedText.

[Александр]

Vapaamies каким образом можно узнать?