Как изменить неизвестное слово в строке

@kszam · Регистрация: 08.02.2014

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

Допустим нам известно что слово состоит из 5 букв и символов и стоит в начале строки.
На второй строке нам известно что есть слово delphi, но после него опять неизвестное слово
Вот пример:
xxxxx
delphi-xxxxx
Нам нужно записать первое слово в первой строке в переменную Slowo, а второе слово в переменную Simvol.
Как это сделать?

ВАСИЛЕВС · 08.02.2014, 12:51

Если знаете длину слова и индекс первого символа, то можно использовать Copy.

Функция Copy ( S; Index, Count: Integer ): string;

Описание

Функция возвращает подстроку или сегмент массива размером Count, начиная с элемента S[Index].
Параметр S - выражение типа string или динамический массив. Если Index>Length(S), то функция возвращает пустую строку или пустой массив.
Если значение параметра Count больше, чем может быть возвращено функцией, то возвращаются символы или элементы, начиная с S[Index] и до конца S.

Пример

Delphi

var
   S: string;
begin
   S:= 'Победа';
   S:= Copy( S, 3, 4);     // S := 'беда'
end;

@kszam · 08.02.2014, 13:43 **[ТС]**

Сообщение от ВАСИЛЕВС

Если знаете длину слова и индекс первого символа, то можно использовать Copy.

А если длина его неизвестна, но известно индекс первого и последнего символа, то как быть?

ВАСИЛЕВС · 08.02.2014, 13:56

Индекс последнего - индекс первого и будет длиной, не? Можно сделать свою реализацию, копируя символы от первого до последнего символа.

@U_Dimas · 08.02.2014, 14:00

Если принять, что тире это разделитель можно вот так:
(нужно добавить memo1):

Delphi

var
Data: TStringList;
i:Integer;
begin
data:=TStringList.Create;
data.Delimiter:='-';
Data.DelimitedText :=('delphi-xxxx');
for i := 0 to data.Count-1 do
begin
memo1.Lines.Add(data.Strings[i]);
end;
data.Free;
end;

@NIKOLAYY · 08.02.2014, 14:17

Все очень просто, функция Pos совместно с функцией Copy

Pos считает откуда и до куда копировать, данный пример копирует любой текст что нажодится между словами Меня и Вася.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
   s,p: string;
   s1,s2: Integer;
begin
  s:= 'Меня зовут Вася';
  s1:= Pos( 'Меня', s);
  s2:= Pos( 'Вася', s);
  p:= Copy( s, s1+5, s2-s1-6);
  ShowMessage(p);
end;

@kszam 0 / 0 / 0 Регистрация: 08.02.2014 Сообщений: 15
		1
	Как изменить неизвестное слово в строке 08.02.2014, 12:42. Показов 546. Ответов 5 Метки нет (Все метки) Допустим нам известно что слово состоит из 5 букв и символов и стоит в начале строки. На второй строке нам известно что есть слово delphi, но после него опять неизвестное слово Вот пример: xxxxx delphi-xxxxx Нам нужно записать первое слово в первой строке в переменную Slowo, а второе слово в переменную Simvol. Как это сделать? 0

@kszam 0 / 0 / 0 Регистрация: 08.02.2014 Сообщений: 15
	08.02.2014, 13:43 [ТС]	3
	Сообщение от ВАСИЛЕВС Если знаете длину слова и индекс первого символа, то можно использовать Copy. А если длина его неизвестна, но известно индекс первого и последнего символа, то как быть? 0

ВАСИЛЕВС 561 / 484 / 168 Регистрация: 14.02.2012 Сообщений: 1,561
	08.02.2014, 13:56	4
	Индекс последнего - индекс первого и будет длиной, не? Можно сделать свою реализацию, копируя символы от первого до последнего символа. 0

	08.02.2014, 14:17