Разбить строку в разные переменные

@Bookkc1 · Регистрация: 01.11.2012

Студворк — интернет-сервис помощи студентам

Есть в переменной такой текст

text:= 'aaa1bbb';

Нужно взять из этой переменной все что находится до символа 1 и занести в переменную first и взять всё что находится после символа 1 и занести в переменную second

Думаю понятно что мне нужно. Прошу помощи, натолкните как это сделать, очень прошу

@cfbogd · 18.12.2016, 17:27

ну да, с пробелами не получиться

@D1973 · 18.12.2016, 17:31

Bookkc1, вот еще бы и версию Дельфи указать!
См. скрин. На нем работающеи программы для Дельфи7 и для Rad XE3... Выбирай, что нравится...

Delphi 7

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses ..., StrUtils;
...
procedure TForm1.Button1Click(Sender: TObject);
var L : TStringList;
    s : string;
    i : integer;
begin
 L := TStringList.Create;
 s := StringReplace(Edit1.Text, ' ', '_', [rfReplaceAll]);
 L.Delimiter := '1';
 L.DelimitedText := s;
 for i := 0 to L.Count - 1 do
  L.Strings[i] := StringReplace(L.Strings[i], '_', ' ', [rfReplaceAll]);
 Memo1.Text := L.Text;
 L.Free;
end;

RAD XE...

Delphi
1
2
3
4
5
6
7
8
9
10
uses ..., System.Types, System.StrUtils;
...
procedure TForm1.Button1Click(Sender: TObject);
var s : TStringDynArray;
    i : integer;
begin
 s := SplitString(Edit1.Text, '1');
 for i := 0 to Length(s) - 1 do
  Memo1.Lines.Add(s[i]);
end;

Memo - чисто для демонстрации разделения строк.

@Hikari · 18.12.2016, 19:45

Сообщение от cfbogd

ну да, с пробелами не получиться

Все получится:

Delphi
1
2
3
4
5
With TStringList.Create do begin
 Text:=StringReplace(<строка>,' ',#13#10,[rfReplaceAll]);
 ....
 Free;
end;

@Bookkc1 · 18.12.2016, 22:45 **[ТС]**

спасибо, уже юзаю код с массивом. пока не планируется добавление ещё одной строки, если же , то добавлю в массив ещё одну позицию . спасибо за код, на будущее будет полезен

@D1973 · 22.12.2016, 16:22

Hikari, и что Вы в итоге получите? Замещение пробела на перенос строки! Но вся идея-то в том, чтобы сохранить пробелы. Читайте ТЗ внимательнее.

@volvo · 22.12.2016, 16:26

А StrictDelimiter в какой версии Дельфи появился?

@D1973 · 22.12.2016, 16:33

Сообщение от volvo

А StrictDelimiter в какой версии Дельфи появился?

М-да, а хорошо бы знать, в какой... В 7-й его, вроде бы, нет

@Hikari · 22.12.2016, 17:07

Сообщение от D1973

Замещение пробела на перенос строки!

Да, верно, там вместо пробела нужно было единицу поставить, если по ТЗ.

@Vlad1451 · 14.11.2023, 11:12

Доброго всем времени суток. Есть такая задача, строка принимаемая с Com порта, состоящая из числовых значений (3,15,27,100.5,11). Необходимо её разбить на переменные (byte, Integer, float). Делаю так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
      p:= pos(',',s);
      sl[1]:=copy(s,1,p-1);
      delete(s,1,p);
      RzMemo1.Lines.Add(sl[1]);
 
      p:= pos(',',s);
      sl[2]:=copy(s,1,p-1);
      delete(s,1,p);
      RzMemo1.Lines.Add(sl[2]);
 
      p:= pos(',',s);
      sl[3]:=copy(s,1,p-1);
      delete(s,1,p);
      RzMemo1.Lines.Add(sl[3]);
 
      p:= pos(',',s);
      sl[4]:=copy(s,1,p-1);
      delete(s,1,p);
      RzMemo1.Lines.Add(sl[4]);
 
      sl[5] := s;
      RzMemo1.Lines.Add(sl[5]);
      RzEdit10.SelText := sl[5];

А возможно весь процесс как то упростить? Возможно использовать цикл (For). Дело в том, что данный код расчитан на определённое колличество частей, а у меня принимаемая строка переодически меняется (от 6 до 10 значений).

P.S. Использую Delphi 7.

@D1973 · 14.11.2023, 11:27

Сообщение от Vlad1451

Необходимо её разбить на переменные (byte, Integer, float). Делаю так:

то, что Вы делаете, никакого отношения к перечисленным типам данных не имеет - Вы работаете только со строками. И со строками можно поступить гораздо проще:

Delphi
1
2
3
const s: String = '3,15,27,100.5,11';
...
RZMemo1.Lines.CommaText := s;

@krapotkin · 14.11.2023, 11:29

зачем лезть в старую тему с новым вопросом??
заведите новую

Новые блоги и статьи Все статьи Все блоги /
Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .
Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026

@Bookkc1 3 / 3 / 0 Регистрация: 01.11.2012 Сообщений: 803

	Разбить строку в разные переменные 14.12.2016, 20:32. Показов 3299. Ответов 30 Метки нет (Все метки) Есть в переменной такой текст text:= 'aaa1bbb'; Нужно взять из этой переменной все что находится до символа 1 и занести в переменную first и взять всё что находится после символа 1 и занести в переменную second Думаю понятно что мне нужно. Прошу помощи, натолкните как это сделать, очень прошу 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	18.12.2016, 17:27
	ну да, с пробелами не получиться 0

@Bookkc1 3 / 3 / 0 Регистрация: 01.11.2012 Сообщений: 803
	18.12.2016, 22:45 [ТС]
	спасибо, уже юзаю код с массивом. пока не планируется добавление ещё одной строки, если же , то добавлю в массив ещё одну позицию . спасибо за код, на будущее будет полезен 0

@D1973 Модератор 9952 / 6487 / 2461 Регистрация: 21.01.2014 Сообщений: 27,488 Записей в блоге: 3
	22.12.2016, 16:22
	Hikari, и что Вы в итоге получите? Замещение пробела на перенос строки! Но вся идея-то в том, чтобы сохранить пробелы. Читайте ТЗ внимательнее. 0

@volvo Супер-модератор 33470 / 21569 / 8249 Регистрация: 22.10.2011 Сообщений: 37,021 Записей в блоге: 12
	22.12.2016, 16:26
	А StrictDelimiter в какой версии Дельфи появился? 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	14.11.2023, 11:29
	зачем лезть в старую тему с новым вопросом?? заведите новую 0