Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/16: Рейтинг темы: голосов - 16, средняя оценка - 4.88
1 / 1 / 1
Регистрация: 31.12.2009
Сообщений: 33
1

Разделение строки

17.02.2010, 11:23. Просмотров 2968. Ответов 3
Метки нет (Все метки)

Здравствуйте. Подскажите как можно разделить строку до точки и фразу после точки и до конца строки поместить в переменную.
Пример строки: TYM073047_416_PCB04_GPRS_MT6228_S02.073047_416_V1819
Нужно что бы получилось:073047_416_V1819
Заранее благодарен
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.02.2010, 11:23
Ответы с готовыми решениями:

Разделение строки с одинаковыми элементами
Как отделить от строки MAUI_06B_W07_12 последнее значение?

Разделение строки (Эдит), на несколько(Эдит2-4)
Имеется строка символов, разделенные запятыми и пробелами. текст1,(пробел)Текст2,(пробел)текст3...

Отсортировать строки по возрастанию используя разделение строк
Всем Привет! Помогите отсортировать строки по возрастанию используя разделение строк...

Разделение строки на подстроки
Есть строка вида 'А=5,Б=3,В=1,Г=2,Д=0'. Надо разделить на подстроки, разделитель - запятая....

3
13057 / 5843 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
17.02.2010, 11:54 2
Delphi
1
2
3
4
5
6
7
8
9
10
var
  StrSrc, StrRes : String;
  Pos1 : Integer;
begin
  StrSrc := 'TYM073047_416_PCB04_GPRS_MT6228_S02.073047_416_V18 19';
  StrRes := '';
  Pos1 := Pos('.', StrSrc);
  if Pos1 > 0 then StrRes := Copy(StrSrc, Pos1 + 1, Length(StrSrc) - Pos1);
  ShowMessage(StrRes);
end;
1
6 / 6 / 2
Регистрация: 24.09.2012
Сообщений: 381
30.04.2013, 19:39 3
а как сделать так, чтобы программа разделяла строку на символы, и записывала их в Мемо1 каждый с новой строки?
0
13057 / 5843 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
30.04.2013, 19:59 4
Цитата Сообщение от vadim23409 Посмотреть сообщение
а как сделать так, чтобы программа разделяла строку на символы, и записывала их в Мемо1 каждый с новой строки?
Delphi
1
2
3
4
5
6
7
8
9
var
  S : String;
  i : Integer;
begin
  S := '0123456789';
  Memo1.Clear;
  for i := 1 to Length(S) do
    Memo1.Lines.Add(S[i]);
end;
Если в строке есть не отображаемые коды, то можно выводить их коды:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
var
  S : String;
  i : Integer;
begin
  S := '01234'#9'56789';
  Memo1.Clear;
  for i := 1 to Length(S) do
    if S[i] <= #32 then
      Memo1.Lines.Add( '#' + IntToStr(Ord(S[i])) )
    else
      Memo1.Lines.Add(S[i]);
end;
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.04.2013, 19:59

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Разделение чисел
Здравствуйте! Задача такая в memo записаны данные в таком формате: 51-31-45-1 мне необходимо...

разделение окна
Всем доброго времени суток , я тут по такому вопросу , нужно разделить кнопки чужого окна на цифры...

разделение изображения
Добрый день, нужна помощь. Нужно разделить изображение на 16 равных частей. Помогите пожалуйста

Разделение текста
Приветствую Нужна помощь.У меня есть memo1 куда вставляются емаилы и пароли в виде email;passworld...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.