[РЕШЕНО] взять string от и до.

[Кольша]

всем привет извените конечно за глупый вопрос но все же как взять string от и до например есть строка : "12345-54321" как взять текст до и после "-"?

При создании темы или ответа на существующий вопрос вам необходимо соблюдать следующие несложные правила:

0. Воспользоваться поиском по форуму (или "погуглить") по интересующему вас вопросу. Темы, созданные без выполнения этого пункта и имеющие кучу "близнецов" в "Похожих темах", будут просто молча закрываться, а затем уничтожаться. Так что не стоит удивляться и возмущаться - проще подумать...
И еще. Ни слова про варез! Никаких вопросов про кряки, кейгены, пиратки. А также - никаких тем о создании вирусов, взломщиков и т.п. Для этого есть ЛС и почта.

Подобные темы или вопросы будут моментально удаляться, а нарушитель - получать нарушение №4.

Решение в следующем сообщении

[Shouldercannon]

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := '12345-54321';
  ShowMessage(Copy(s, 1, Pos('-', s) - 1) + #13#10 + Copy(s, Pos('-', s) + 1, Length(s)));
end;

[Кольша]

спасибо Shouldercannon